求将url编码后的字符解码的asp程序
来源:百度知道 编辑:UC知道 时间:2024/08/20 20:13:51
例如:将以下url编码
http%3A%2F%2Fl.qq.com%2Flview%3Fc%3Dwww%26type%3Dxml%26loc%3DBB_Pre_Roll%2CB
解码成:http://xx.qq.com/flview........
即能正常显示url的地址。
http%3A%2F%2Fl.qq.com%2Flview%3Fc%3Dwww%26type%3Dxml%26loc%3DBB_Pre_Roll%2CB
解码成:http://xx.qq.com/flview........
即能正常显示url的地址。
转的。不是原创。
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
v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
deStr=deStr&chr(v)
i=i+3
end if
else
destr=destr&c
end if
end if
else
if c="+" then
deStr=deStr&" "
else
deStr=deStr&c
end if
end if
next
URLDecode=deStr
end function
function isvalidhex(str)
isvalidhex=true
str=ucase(str)
if len(s