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