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