英国埃塞克斯大学(University of Essex)线上分享会-Top up、专升硕
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
%>