'********************************
'过程名:HTML格式化
'参 数:无
'********************************
function HTMLEncode(byval fString)
if isnull(fString) or trim(fString)="" then
HTMLEncode=""
exit function
end if
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), "<br> ")
HTMLEncode = fString
end function
function HTMLDecode(byval fString)
if isnull(fString) or trim(fString)="" then
HTMLDecode=""
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, "<br> ", CHR(10))
HTMLDecode = fString
End function
01-21