server.urlencode的反编码

最新推荐文章于 2021-02-16 10:05:41 发布

「已注销」

最新推荐文章于 2021-02-16 10:05:41 发布

阅读量678

点赞数

分类专栏： sql 文章标签： function c hex

本文链接：https://blog.csdn.net/ck0074451665/article/details/5355499

版权

sql 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

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