HTML 编码与解码函数(VBScript )
以下代码是用VBScript 语言实现HTML 编码与解码,
'HTML 编码函数
Function textHTMLEncode(fString)
fString = Replace(fString, Chr(62), ">")
fString = Replace(fString, Chr(60), "<")
fString = Replace(fString, Chr(32), " ")
fString = Replace(fString, Chr(9), " ")
fString = Replace(fString, Chr(34), """)
fString = Replace(fString, Chr(39), "'")
fString = Replace(fString, Chr(38), "&")
fString = Replace(fString, Chr(13) & Chr(10), "</P><P>")
fString = Replace(fString, Chr(13), "<BR>")
fString = Replace(fString, Chr(10), "<BR>")
textHTMLEncode = fString
End Function
'HTML 解码函数
Function textHTMLDecode(fString)
fString = Replace(fString, ">", Chr(62))
fString = Replace(fString, "<", Chr(60))
fString = Replace(fString, " ", Chr(32))
fString = Replace(fString, " ", Chr(9))
fString = Replace(fString, """, Chr(34))
fString = Replace(fString, "'", Chr(39))
fString = Replace(fString, "&", Chr(38))
fString = Replace(fString, "</P><P>", Chr(13) & Chr(10))
fString = Replace(fString, "<BR>", Chr(10))
textHTMLDecode = fString
End Function