欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

ASP常用函數(shù):HTMLDecode

 更新時(shí)間:2007年02月07日 00:00:00   作者:  
<%
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
%>

相關(guān)文章

最新評(píng)論