<%

'******************************

'函数：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

%>