ASP 转换HTML特殊字符【HTMLEncode(转码)和HTMLDecode(解码)】

'********************************
'过程名：HTML格式化
'参  数：无
'********************************
function HTMLEncode(byval fString)
	if isnull(fString) or trim(fString)="" then
		HTMLEncode=""
		exit function
	end if
    fString = replace(fString, ">", ">")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10), "<br> ")
    HTMLEncode = fString
end function

function HTMLDecode(byval fString)
	if isnull(fString) or trim(fString)="" then
		HTMLDecode=""
		exit function
	end if
    fString = replace(fString, "&gt;", ">")
    fString = replace(fString, "&lt;", "<")
    fString = Replace(fString,  "&nbsp;"," ")
    fString = Replace(fString, "&quot;", CHR(34))
    fString = Replace(fString, "&#39;", CHR(39))
    fString = Replace(fString, "<br> ", CHR(10))
    HTMLDecode = fString
End function