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

【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！