您的位置:首页 > 编程语言 > ASP

asp 去除html的函数,要保留段落,换行和空格

2011-05-05 15:05 597 查看
Function HTMLEncode(fString)

If not IsNull(fString) Then

fString = Replace(fString, ">", ">")

fString = Replace(fString, "<", "<")

fString = Replace(fString, CHR(32), " ")

fString = Replace(fString, CHR(9), " ")

fString = Replace(fString, CHR(34), """)

fString = Replace(fString, CHR(39), "'")

fString = Replace(fString, CHR(13), "")

fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")

fString = Replace(fString, CHR(10), "<BR> ")

HTMLEncode = fString

End If

End Function
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: