IDC资讯中心
asp 里面没有urldecode函数，好象aspx里有吧，我不太清楚，但asp里面还是用得很多。在网上查找了有别人写的urldecode函数，但是这个函数有错误，而且在一些方面写得比较难理解。而且有错误，当里面有生僻双字节文字时就会产生错误，如“乄”经urlencoder后为“%81w”，解码就不能成功。
其实双字节编码在这里只要把"w"也编成16进制asc码就可以。
知识点：计算机里的cookie也是经过urlencode编码的，所以urldecode对破解cookie也很有用呵。
下面是源代码：
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(str)<>3 then isvalidhex=false:exit function
if left(str,1)<>"%" then isvalidhex=false:exit function
c=mid(str,2,1)
if not (((c>="0") and (c<="9")) or ((c>="a") and (c<="z"))) then isvalidhex=false:exit function
c=mid(str,3,1)
if not (((c>="0") and (c<="9")) or ((c>="a") and (c<="z"))) then isvalidhex=false:exit function
end function
你用此方法解码“%81w”看看，可以了。
当然，你还可以玩点小段，使之成为自己的一种字符串加密方式。
