asp的HTMLEncode 如果自己写的话，要怎么写？

asp的 server.HTMLEncode 将html编码 转换成编码形式 如 <>变成 &lt;&gt;

那如果自己写这个函数来替换的话， 要替换什么字符呢？

VBScript code

Function HTMLEncode(ByVal str)
     If str = "" Then Exit Function
     str = Replace(str, "&", "&")
     str = Replace(str, "<", "&lt;")
     str = Replace(str, ">", "&gt;")
     str = Replace(str, """", "&quot;")      
     HTMLEncode = str
End Function

还要替换什么呢？ 有没有 谁给个完整的 替换的。 功能等同于 server.HTMLEncode

另外，想问下，一般从request的内容，除了替换单引号双引号，还要替换什么呢 ？为什么

常用的差不多就这些

差不多啦。但是为什么有现成的不用，而要自己写呢？