<% '****************************** '函数：HTMLEncode(reString) '参数：reString,待编码转换处理的字符串 '作者：阿里西西 '日期：2007/7/15 '描述：对HTML代码进行转换 '示例：HTMLEncode("<p>欢迎访问<br>阿里西西</p>") '****************************** Function HTMLEncode(reString) Dim Str:Str=reString If Not IsNull(Str) Then Str = UnCheckStr(Str) Str = Replace(Str, "&", "&") Str = Replace(Str, ">", ">") Str = Replace(Str, "<", "<") Str = Replace(Str, CHR(32), " ") Str = Replace(Str, CHR(9), " ") Str = Replace(Str, CHR(9), "    ") Str = Replace(Str, CHR(34), """) Str = Replace(Str, CHR(39), "'") Str = Replace(Str, CHR(13), "") Str = Replace(Str, CHR(10), "<br>") HTMLEncode = Str End If End Function '反转换HTML代码 Function HTMLDecode(reString) Dim Str:Str=reString If Not IsNull(Str) Then Str = Replace(Str, "&", "&") Str = Replace(Str, ">", ">") Str = Replace(Str, "<", "<") Str = Replace(Str, " ", CHR(32)) Str = Replace(Str, " ", CHR(9)) Str = Replace(Str, "    ", CHR(9)) Str = Replace(Str, """, CHR(34)) Str = Replace(Str, "'", CHR(39)) Str = Replace(Str, "", CHR(13)) Str = Replace(Str, "<br>", CHR(10)) HTMLDecode = Str End If End Function %>

　　推荐阅读

　　asp 生成任意英文+数字位数长度的随机码函数

<% '****************************** '函数：Generator(Length) '参数：Length,任意长度的数值，随机码位数 '作者：阿里西西 '日期：2007/7/15 '描述：生成任意英文+数字位数长度的随机码函数 '示例：Generator(80>>>详细阅读

本文标题：asp下实现对HTML代码进行转换的函数

地址：http://www.17bianji.com/kaifa2/ASP/32477.html

 1/2    1