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
%>