导读:function HTMLConvert(fString) if not isnull(fString) then fString = replace(fString, , gt;) fString = replace(fString, , lt;) fString = Replace(fString, CHR(34), ) fString = replace(fString, CHR(32), ) fString = Replace(fString, CHR(39), )...
functionHTMLConvert(fString)
if not isnull(fString) then
fString = replace(fString,">",">")
fString = replace(fString,"<","<")
fString = Replace(fString,CHR(34)," ")
fString = replace(fString,CHR(32)," ")
fString = Replace(fString,CHR(39),"")
Fstring = Replace(fString,"-[ChangeLine]-","<br>")
HTMLConvert = fString
end if
end function