请教asp高手,新闻发布系统,内容部分的文本域怎么换行或者保持文本格式?

来源:百度知道 编辑:UC知道 时间:2024/06/01 11:59:54

保持文本格式:
<pre>你的内容文本</pre>

换行,我想你可能更需要的是完整的方法:

先将方法放入到asp页面中的<% %>标记中,然后用下面的代码可以完成
dim InfoString
InfoString = MyHTMLEncode("你的内容文本")

方法:
'******************************************************
'过程名称:MyHTMLEncode
'过程作用:将HTML格式代码转换为没有HTML代码的字符串
'过程参数:reString:需要转换的字符串-字符型
'返 回 值:没有HTML代码的字符串
Function MyHTMLEncode(reString)
Dim Str:Str=reString
If Not IsNull(Str) Then
'Str = UnCheckStr(Str)
Str = Replace(Str, "&", "&")
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<")
Str = Replace(Str, CHR(32), " ")
Str = Replace(Str, CHR(9), "    ")
Str = Replace(Str, CHR(9), "    ")
Str = Replace(Str, CHR(34),""")
Str = Replace(