在输入表单的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因为回车、换行的代码出于安全的角度,被过滤了,要想有的话,对应楼上的程序,自己修改一下,就好了。