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