asp下实现对HTML代码进行转换的函数 |
|
<% ****************************** 函数：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 %> |
