页面导航： 首页 → 网络编程 → ASP编程 → ASP基础 → 正文内容

发布：dxy 发布日期：2007-2-7 字体：[增加 减小] 类型：转载

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

文章评论

共有 位脚本之家网友发表了评论我来说两句