<% '****************************** '函数: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