英国肯特大学(University of Kent)线上分享会2022.4.13
Function HTMLEncode(str)
If IsNull(str) Then str = ""
str = Replace(str, "&", "&")
str = Replace(str, "<", "<")
str = Replace(str, ">", ">")
str = Replace(str, """", """)
str = Replace(str, "'", "'")
HTMLEncode = str
End Function
%>