文本内容的输出---------解决马上给分

我用的是Oracle数据库，我想把数据库中一个大文本型的字段内容显示出来，  
  我用<%rs("NR")%>输出后，发现原来的段落都没有区分开，空格也没有了，  
   
  我应该怎样写，才能让结果与原来录入是的格式一样呢--------要区分开段落，包括每一段开始的空格  
   
   
  问题点数：50、回复次数：2Top

1 楼meizz（梅花雪）回复于 2004-12-03 09:55:37 得分 30

HTML标签的转换  
  <%  
  Function   coder(str)  
      Dim   i  
      If   IsNull(str)   Then   :   coder=""   :   Exit   Function   :   End   If  
      For   i   =   1   to   Len(str)  
          Select   case   mid(str,i,1)  
              Case   "<"           :   coder   =   coder   &"&lt;"  
              Case   ">"           :   coder   =   coder   &"&gt;"  
              Case   "&"           :   coder   =   coder   &"&amp;"  
              Case   chr(9)     :   coder   =   coder   &"&nbsp;   &nbsp;   "  
              Case   chr(13)   :   coder   =   coder   &"<br>"  
              Case   chr(32)   :   coder   =   coder   &"&nbsp;"  
              Case   chr(34)   :   coder   =   coder   &"&quot;"  
              Case   chr(39)   :   coder   =   coder   &"&#39;"  
              Case   Else         :   coder   =   coder   &   mid(str,i,1)  
          End   Select  
      Next  
  End   Function  
  %>  
  <%=   coder(rs("NR"))   %>Top

2 楼xczhouyang（）回复于 2004-12-03 09:56:10 得分 20

function   HTMLEncode(fString)  
  '过滤HTML代码  
  if   not   isnull(fString)   then  
          fString   =   replace(fString,   ">",   "&gt;")  
          fString   =   replace(fString,   "<",   "&lt;")  
   
          fString   =   Replace(fString,   CHR(32),   "&nbsp;")  
          fString   =   Replace(fString,   CHR(9),   "&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>   ")  
   
          HTMLEncode   =   fString  
  end   if  
  end   function  
  用这个函数转化一下Top

相关问题

• coder
• fstring
• case chr
• replace
• function

• 帖主：littleflowerfox
• meizz
• xczhouyang

• Web开发类图书