#22006/7/6 7:29:41
'--------------------------------------------------
' 转化HTML格式的字符
'--------------------------------------------------
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "<P></P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
end function
非常大鱼