IT码农库

您当前所在位置:首页 > 网络编程 > ASP编程

ASP编程

ASP常用函数:HTMLDecode

网络 2007-02-07ASP编程8388
<% Function HTMLDecode(sText)     Dim I     sText = Replace(sText, "&" , Chr(38))     sText = Replace(sText, """", Chr(34))   ...
<%
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
%>
大图广告(830*140)