asp 过滤简单html代码程序

来源：互联网   发布日期：2016-03-01 11:04:53   浏览：1271次  

Public Function HTMLEncode(fString)

If Not IsNull(fString) Then

fString = replace(fString, ">", ">")

fString = replace(fString, "<", "&lt;")

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

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

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

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

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

==============================

函 数 名：HTMLDncode

作用：字符转回函数

参数：需要转换的文本fString

==============================

Public Function HTMLDncode(fString)

If Not IsNull(fString) Then

fString = Replace(fString, "&gt;",">" )

fString = Replace(fString, "&lt;", "<")

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, "<p></p> ",CHR(10) & CHR(10) )

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

HTMLDncode = fString

End If

End Function

赞助本站