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