1. <%  
2. '******************************  
3. '函數：HTMLEncode(reString)  
4. '參數：reString,待編碼轉換處理的字符串  
5. '作者：阿里西西  
6. '日期：2007/7/15  
7. '描述：對HTML代碼進行轉換  
8. '示例：HTMLEncode("<p>歡迎訪問<br>阿里西西</p>")  
9. '******************************  
10. Function HTMLEncode(reString)  
11.  Dim Str:Str=reString  
12.  If Not IsNull(Str) Then  
13.   Str = UnCheckStr(Str)  
14.   Str = Replace(Str, "&", "&")  
15.   Str = Replace(Str, ">", ">")  
16.   Str = Replace(Str, "<", "<")  
17.   Str = Replace(Str, CHR(32), " ")  
18.      Str = Replace(Str, CHR(9), " ")  
19.   Str = Replace(Str, CHR(9), "    ")  
20.   Str = Replace(Str, CHR(34), """)  
21.   Str = Replace(Str, CHR(39), "'")  
22.   Str = Replace(Str, CHR(13), "")  
23.   Str = Replace(Str, CHR(10), "<br>")  
24.   HTMLEncode = Str  
25.  End If  
26. End Function  
27.  
28. '反轉換HTML代碼  
29.  
30. Function HTMLDecode(reString)   
31.  Dim Str:Str=reString  
32.  If Not IsNull(Str) Then  
33.   Str = Replace(Str, "&", "&")  
34.   Str = Replace(Str, ">", ">")  
35.   Str = Replace(Str, "<", "<")  
36.   Str = Replace(Str, " ", CHR(32))  
37.      Str = Replace(Str, " ", CHR(9))  
38.   Str = Replace(Str, "    ", CHR(9))  
39.   Str = Replace(Str, """, CHR(34))  
40.   Str = Replace(Str, "'", CHR(39))  
41.   Str = Replace(Str, "", CHR(13))  
42.   Str = Replace(Str, "<br>", CHR(10))  
43.   HTMLDecode = Str  
44.  End If  
45. End Function  
46. %>