University of Essex
埃塞克斯大学
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
%>