关于数据的写入和输出的格式问题!
请问怎么让数据的写入和输出的格式一样的,我添加的新闻进入 数据表,然后用浏览新闻的方式从另一个页面打开,结果打开的文字都是一句到头,没有段落,也没有空格!!
写个函数即可
Function HTMLEncode(fString)'HTML加码函数If Not IsNull(fString) Then
fString = Replace(fString, CHR(38), "&")
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10), "<br>")
HTMLEncode = fString
End If
End Function
输出内容时,调用即可
Response.Write HTMLEncode(内容) 好用,非常感谢~~~ 看不明白,我是新手,以后请多关照
页:
[1]
