您的位置:首页 > 编程语言 > ASP

ASP常用函数:HTMLDecode

2018-10-12 14:05 459 查看
<%
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
%>

您可能感兴趣的文章:

内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: