asp下实现对HTML代码进行转换的函数

<% ‘****************************** ‘函数:HTMLEncode(reString) ‘参数:reString,待编码转换处理的字符串 ‘作者:阿里西西 ‘日期:2007/7/15 ‘描述:对HTML代码进行转换 ‘示例:HTMLEncode(“欢迎访问阿里西西”) ‘****************************** Function HTMLEncode(reString) Dim Str:Str=reString If Not IsNull(Str) Then Str = UnCheckStr(Str