ASP中只有UrlEncode，没有Urldecode问题的解决方法？


            在ASP中传递参数时有一个很有用的系统函数Server.UrlEncode，可以将一些非字母数字的特殊符号转换成标准URL编码（其实就是16进制ASC码），这样就解决了参数传递问题，然后我以为也提供了Server.UrlDecode，但使用后却发现程序报错，原来系统并没有提供这个我想象中的解码函数。怎幺办，自己动手吧。

UrlEncode的原理其实很简单，就是将特殊字符转换成16进制ASC码值，那么译码函数就只要将16进制ASC转回对应的字符就OK了。





Function URLDecode(enStr)          'URL解碼函數 

 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



经测试gb312格式的asp使用没有问题。