如何 Encode 和 Decode URL 地址？

ASP 的 Server 对象提供了一个 Server.Encode() 方法，但是却没有相应的 Server.Decode() 方法或者 Unencode() 方法。也许 MS认为这没必要。其实这样的方法非常有用，这里提供一种实现～包括 VBScript 和 JScript 代码。

VBscript  1 < %       2 Function  URLDecode(str)           3     str  =   Replace (str,  " + " ,  "   " )           4      For  i  =   1   To   Len (str)  5         sT  =   Mid (str, i,  1 )  6          If  sT  =   " % "   Then  7              If  i + 2   <   Len (str)  Then  8                 sR  =  sR  &   Chr ( CLng ( " &H "   &   Mid (str, i + 1 ,  2 )))  9                 i  =  i + 2 10              End   If   11          Else 12             sR  =  sR  &  sT 13          End   If 14      Next 15     URLDecode  =  sR 16 End Function 17 18 Function  URLEncode(str) 19     URLEncode  =  Server.URLEncode(str) 20 End Function 21 22 str1  =   " http://www.foo.com/blah.asp?foo=1 & 2 &g=0 " 23 str2  =  URLEncode(str1) 24 str3  =  URLDecode(str2) 25 Response.Write(str1  &   " <br> "   &  str2  &   " <br> "   &  str3)  26 % > JScript  1 < script language = JScript runat = server >         2 function  URLDecode(str)       3 {  4     return unescape(str);  5 }  6  7 function  URLEncode(str)  8 {  9     str  =  escape(str); 10 }

转载于:https://www.cnblogs.com/hardyfan/articles/244977.html