asp 过滤简单html代码程序

Public Function HTMLEncode(fString)
If Not IsNull(fString) Then
fString = replace(fString ">" ">")
fString = replace(fString "<" "&lt;")
fString = Replace(fString CHR() " ")
fString = Replace(fString CHR() "&quot;")
fString = Replace(fString CHR() "&#;")
fString = Replace(fString CHR() "&nbsp;")
fString = Replace(fString CHR() "")
fString = Replace(fString CHR() & CHR() "<p></p> ")
fString = Replace(fString CHR() "<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())
fString = Replace(fString "&nbsp;" CHR())
fString = Replace(fString "&quot;" CHR())
fString = Replace(fString "&#;" CHR())
fString = Replace(fString "" CHR())
fString = Replace(fString "<p></p> "CHR() & CHR() )
fString = Replace(fString "<br /> "CHR() )
HTMLDncode = fString
End If
End Function