数据库中取出文字的格式问题??帮帮忙~~

Question

显示的时候用一个textarea<textarea style="border:none;overflow:visible">
这是内容
</textarea>

Answer 1

temp=replace(rs("demo")," ",&nbsp;)
temp=replace(temp,chr(13),"<br>")
response.write temp

Answer 2

Function HTMLEncode(ByVal reString) 
Dim Str:Str=reString
If Not IsNull(Str) Then
    Str = Replace(Str, ">", "&gt;")
Str = Replace(Str, "<", "&lt;")
    Str = Replace(Str, CHR(9), "&nbsp;")
    Str = Replace(Str, CHR(39), "&#39;")
     Str = Replace(Str, CHR(34), "&quot;")
Str = Replace(Str, CHR(13), "")
Str = Replace(Str, CHR(10), "<br/>")
HTMLEncode = Str
End If
End Function用这个把提交的东西搞一下在存库