表单提交的问题

我用表单提交新闻内容后，从数据库提出显示的时候，格式不显示。所有的内容挨在一起如何解决？？？ 问题点数：0、回复次数：2Top

1 楼zht_ok（葬月）回复于 2003-06-01 18:02:21 得分 0

function   archer(str)  
  archer=replace(replace(replace(replace(str,"<","&it;"),">","&gt;"),chr(13),"<br/>"),"","&nbsp;")  
  end   function  
   
  入库时把内容里的格式替换一下  
  看看这个贴子：  
  http://expert.csdn.net/Expert/TopicView1.asp?id=1847132Top

2 楼linuxsun999（）回复于 2003-06-01 20:08:46 得分 0

<%      
  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     VBCrLf         :     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(Request.Form("content"))     '将这个转换过的文本存入数据库即可      
  %>Top

相关问题

• 内容
• coder
• chr
• replace
• case
• str
• function

• 帖主：xuguoxin

• Web开发类图书