ASP常用函数:HTMLDecode

1. <%  
2. Function HTMLDecode(sText)  
3.     Dim I  
4.     sText = Replace(sText, "&" , Chr(38))  
5.     sText = Replace(sText, """", Chr(34))  
6.     sText = Replace(sText, "<" , Chr(60))  
7.     sText = Replace(sText, ">" , Chr(62))  
8.     sText = Replace(sText, " ", Chr(32))  
9.     For I = 1 To 255  
10.         sText = Replace(sText, "&#" & I & ";", Chr(I))  
11.     Next  
12.     HTMLDecode = sText  
13. End Function  
14. %>