<%
'******************************
'函数：HTMLEncode(reString)
'参数：reString,待编码转换处理的字符串
'作者：阿里西西
'日期：2007/7/15
'描述：对HTML代码进行转换
'示例：HTMLEncode("<p>欢迎访问<br>阿里西西</p>")
'******************************
FunctionHTMLEncode(reString)
DimStr:Str=reString
IfNotIsNull(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
EndIf
EndFunction
'反转换HTML代码
FunctionHTMLDecode(reString)
DimStr:Str=reString
IfNotIsNull(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
EndIf
EndFunction
%>
【asp下实现对HTML代码进行转换的函数】相关文章：