asp去除所有html函数

'=================================================
'过程名：RemoveHTML( strText )
'作  用：去处HTML
'参  数：strText:操作对象
'=================================================
Public Function RemoveHTML( strText )
        Dim RegEx

        Set RegEx = New RegExp

         RegEx.Pattern = "<[^>]*>"
         RegEx.Global = True

         RemoveHTML = RegEx.Replace(strText, "")
End Function

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), "

")
    fString = Replace(fString, CHR(10), "
")
 fString = Replace(fString, "^{", "^{")
 fString = Replace(fString, "}", "}")
    HTMLEncode = fString
end if
end function
function encodeToTxt(fString)
 if not isnull(fString) then
 fString = replace(fString,">", ">")
    fString = replace(fString, "<","<")
    fString = Replace(fString, "&nbsp;",CHR(9))
    fString = Replace(fString, "&nbsp；",CHR(9))
    fString = Replace(fString, """,CHR(34))
    fString = Replace(fString, "'",CHR(39))
    fString = Replace(fString, "",CHR(13))
    fString = Replace(fString, "

",CHR(10) & CHR(10))
    'fString = Replace(fString, "
",CHR(10))
 fString = Replace(fString, "^{","^{")
 fString = Replace(fString, "}","}")
 end if
 encodeToTxt = fString
end function
function encodeToText(fString)
 if not isnull(fString) then
 fString = replace(fString,">", ">")
    fString = replace(fString, "<","<")
    fString = Replace(fString, "&nbsp;",CHR(9))
    fString = Replace(fString, "&nbsp；",CHR(9))
    fString = Replace(fString, """,CHR(34))
    fString = Replace(fString, "'",CHR(39))
    fString = Replace(fString, "",CHR(13))
    fString = Replace(fString, "

",CHR(10) & CHR(10))
    fString = Replace(fString, "
",CHR(10))
 fString = Replace(fString, "^{","^{")
 fString = Replace(fString, "}","}")
 end if
 encodeToText = fString
end function