ASP常用函数:HTMLDecode

答案：
<% 
Function HTMLDecode(sText) 
    Dim I 
    sText = Replace(sText, "&" , Chr(38)) 
    sText = Replace(sText, """", Chr(34)) 
    sText = Replace(sText, "<" , Chr(60)) 
    sText = Replace(sText, ">" , Chr(62)) 
    sText = Replace(sText, " ", Chr(32)) 
    For I = 1 To 255 
        sText = Replace(sText, "&#" & I & ";", Chr(I)) 
    Next 
    HTMLDecode = sText 
End Function 
%> 

上一个：ServerVariables集合检索预定的环境变量
下一个：On Error Resume Next 语句