英国纽卡斯尔大学(Newcastle University)线上分享会
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
%>