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