拍拍尘土

<%

Function URLDecode(enStr)
    dim deStr
    dim c,i,v
    deStr=""
    for i=1 to len(enStr)
    c=Mid(enStr,i,1)
    if c="%" then
    v=eval("&h"+Mid(enStr,i+1,2))
    if v<128 then
    deStr=deStr&chr(v)
    i=i+2
    else
    if isvalidhex(mid(enstr,i,3)) then
    if isvalidhex(mid(enstr,i+3,3)) then
    v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
    deStr=deStr&chr(v)
    i=i+5
    else
...

阅读全文…