public Function HTMLEncode (fstring)
If not IsNull (fstring) Then
fstring = replace (FS Tring, ">", ">")
fstring = replace (fstring, "<", "<")
fstring = replace (fstring, CHR (), "")
fstring = replace (fstring, CHR (MB), &A Mp;quot; ")
fstring = Replace (fstring, CHR (), "& #39;")
fstring = Replace (fstring, CHR (9), " ")
fstring = replace (fstring, CHR (), "")
fstring = replace (fstring, CHR (a) & CHR (10 ), "<p></p>"
fstring = Replace (fstring, CHR (), <br/>)
Htmlenco de = fstring
End If
end function
==============================
functions Name: Htmldncode
: Character reversal function
parameter number: text to convert fstring
======== ======================
public Function Htmldncode (fstring)
If not IsNull (fstring) Then
fstring = Replace (fstring, ">", "" & gt; ")
fstring = replace (fstring, "<", "<")
fstring = replace (fstring, "", CHR (32))
fstring = replace (fstring, , CHR (9))
fstring = replace (fstring, "" ; ", CHR
fstring = replace (fstring, & #39;, CHR ())
fstring = replace (fstring , "", CHR
fstring = Replace (fstring, <p></p>, CHR (a) & CHR)
fstring = Replace (fstring, "<br/>", CHR)
htmldncode = fstring
End If
en D Function