|
发表于 2010-1-13 05:15:58
|
显示全部楼层
IP:江苏扬州
function HTMLEncode(fString) 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) & CHR(10), "</P><P> ") fString = Replace(fString, CHR(10), "<BR> ")
HTMLEncode = fString
end function |
|