输入的格式和显示的格式为什么不一致?

在输入表单的textarea里输入多段文字,然后将其提交到数据库里,在从数据库里将其取出显示在页面上,输入的多段文字显示的时候全都连了起来,成了一段,为什么?
---------------------------------------------------------------

str为你的那个字段数据
str=replace(str,chr(13),"

1<br/>

" & chr(13)+chr(10))
str=replace(str,chr(32)," ")
response.write str
---------------------------------------------------------------

入库之前做一下转换HTML标签的转换

 1   
 2Function coder(str)   
 3Dim i   
 4If IsNull(str) Then : coder="" : Exit Function : End If   
 5For i = 1 to Len(str)   
 6Select case mid(str,i,1)   
 7Case "<" : coder = coder &"<"   
 8Case ">" : coder = coder &">"   
 9Case "&" : coder = coder &"&"   
10Case chr(9) : coder = coder &"    "   
11Case chr(13) : coder = coder &"

``` " Case chr(32) : coder = coder &" " Case chr(34) : coder = coder &""" Case chr(39) : coder = coder &"'" Case Else : coder = coder & mid(str,i,1) End Select Next End Function
1\---------------------------------------------------------------   
2  
3因为回车、换行的代码出于安全的角度,被过滤了,要想有的话,对应楼上的程序,自己修改一下,就好了。
Published At
Categories with Web编程
Tagged with
comments powered by Disqus