转换<br>和&nbsp;

在将TEXTAREA输入的内容存入数据库后，再读出来，发现换行和空格不能识别，哪位大哥能帮我解决一下这个问题，估计是要写一个函数，将字符转换一下，再请教一下，你们是怎么解决这一个问题的？ 问题点数：0、回复次数：5Top

1 楼mackyliu（才子-54caizi.com）回复于 2004-09-03 18:31:35 得分 0

Function   HTMLEncode(fString)  
  if   not   isnull(fString)   and   fString   <>   ""   then  
  fString   =   Replace(fString,   ">",   "&gt;")  
  fString   =   Replace(fString,   "<",   "&lt;")  
  fString   =   Replace(fString,   CHR(32),   "&nbsp;")  
  fString   =   Replace(fString,   CHR(9),   "&nbsp;&nbsp;")  
  fString   =   Replace(fString,   CHR(34),   "&quot;")  
  fString   =   Replace(fString,   CHR(39),   "&#39;")  
  fString   =   Replace(fString,   CHR(13),   "")    
  fString   =   Replace(fString,   CHR(10)   &   CHR(10),   "</P><P>   ")  
  fString   =   Replace(fString,   CHR(10),   "<BR>   ")  
  fString   =   Replace(fString,   CHR(255),   "&nbsp;")  
  HTMLEncode   =   fString  
  end   if  
  End   Function  
  Top

2 楼mjpclab（有只大猫猫 mjpclab.net）回复于 2004-09-03 18:31:57 得分 0

str=rs("text")  
  str=replace(str,chr(13)&chr(10),"<br>)  
  str=replace(str,"   ","&nbsp;"Top

3 楼dengliangwei（枝上柳绵）回复于 2004-09-05 14:00:01 得分 0

有没有JAVASCRIPT   版本的HTMLEncode(fString)函数啊？  
  Function   HTMLEncode(fString)  
  if   not   isnull(fString)   and   fString   <>   ""   then  
  fString   =   Replace(fString,   ">",   "&gt;")  
  fString   =   Replace(fString,   "<",   "&lt;")  
  fString   =   Replace(fString,   CHR(32),   "&nbsp;")  
  fString   =   Replace(fString,   CHR(9),   "&nbsp;&nbsp;")  
  fString   =   Replace(fString,   CHR(34),   "&quot;")  
  fString   =   Replace(fString,   CHR(39),   "&#39;")  
  fString   =   Replace(fString,   CHR(13),   "")    
  fString   =   Replace(fString,   CHR(10)   &   CHR(10),   "</P><P>   ")  
  fString   =   Replace(fString,   CHR(10),   "<BR>   ")  
  fString   =   Replace(fString,   CHR(255),   "&nbsp;")  
  HTMLEncode   =   fString  
  end   if  
  End   Function  
   
  Top

4 楼yufish123（酷鱼.CN）回复于 2004-09-05 15:16:15 得分 0

Replace   函数  
  返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。  
  语法  
  Replace(expression,   find,   replacewith[,   compare[,   count[,   start]]])  
   
  描述    
  expression   必选。   字符串表达式   包含要替代的子字符串。      
  find   必选。被搜索的子字符串。    
  replacewith   必选。用于替换的子字符串。    
  start   可选。expression   中开始搜索子字符串的位置。如果省略，默认值为   1。在和count   关联时必须用      
  count   可选。执行子字符串替换的数目。如果省略，默认值为   -1，表示进行所有可能的替换。在和   start   关联时必须用。    
  compare   可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略,缺省值为   0   ,这意味着必须进行二进制比较。    
   
  设置  
  compare   参数可以有以下值：  
  常数   值   描述    
  vbBinaryCompare   0   执行二进制比较。    
  vbTextCompare   1   执行文本比较。    
   
  返回值  
  Replace   返回以下值：  
  如果   Replace   返回    
  expression   为零长度   零长度字符串   ("")。    
  expression   为   Null   错误。    
  find   为零长度   expression   的副本。    
  replacewith   为零长度   expression   的副本，其中删除了所有由   find   参数指定的内容。    
  start   >   Len(expression)   零长度字符串。    
  count   为   0   expression   的副本。    
   
  Top

5 楼shootarrow（劝君更进一杯酒， 西出阳关无故人）回复于 2004-09-05 15:27:50 得分 0

记号Top

相关问题

• 函数
• 执行
• start
• fstring
• 字符串
• htmlencode
• 长度
• replace
• 替换
• replacewith

• 帖主：dengliangwei

• Web开发类图书