asp 过滤html <>敏感字符转换成html编码实例

function dvHTMLCode(byval fString)
 if isnull(fString) or trim(fString)="" then
  dvHTMLCode=""
  exit function
 end if
    fString = replace(fString, ">", ">")
    fString = replace(fString, "<", "

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

",CHR(10) & CHR(10))
    fString = Replace(fString, "
", CHR(10))

    dvHTMLCode = fString
end function
%>