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

　　%>