asp下实现对HTML代码进行转换的函数
2018-09-06 12:19
<%
******************************
函数：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
%>
上一篇：在主页中编制音频播放器