ASP FAQ # Chinese [2] / 天魔窟

ASP FAQ # Chinese [2]

http://www.aspfaq.com/show.asp?id=2404

如何 Encode 和 Decode URL 地址？

这个问题比较热门的说～ASP 的 Server 对象提供了一个 Server.Encode() 方法，但是却没有相应的 Server.Decode() 方法或者 Unencode() 方法 >_< 也许 M$ 认为这没必要……大错特错啊。这样的方法非常有用，这里提供一种实现～包括 VBScript 和 JScript 代码。

VBScript

<% 
    Function URLDecode(str) 
        str = Replace(str, "+", " ") 
        For i = 1 To Len(str) 
            sT = Mid(str, i, 1) 
            If sT = "%" Then 
                If i+2 < Len(str) Then 
                    sR = sR & _ 
                        Chr(CLng("&H" & Mid(str, i+1, 2))) 
                    i = i+2 
                End If 
            Else 
                sR = sR & sT 
            End If 
        Next 
        URLDecode = sR 
    End Function 
 
    Function URLEncode(str) 
        URLEncode = Server.URLEncode(str) 
    End Function 
 
    str1 = "http://www.foo.com/blah.asp?foo=1 & 2 &g=0" 
    str2 = URLEncode(str1) 
    str3 = URLDecode(str2) 
    Response.Write(str1 & "<br>" & str2 & "<br>" & str3) 
%>

JScript

<script language=JScript runat=server> 
 
    function URLDecode(str) 
    { 
        return unescape(str); 
    } 
 
    function URLEncode(str) 
    { 
        str = escape(str); 
 
        // JScript doesn't think '/' needs to be escaped... 
        // I'm not sure it does either, but take it out to be 
        // consistent with VBScript's built-in URLEncode() 
 
        while (str.indexOf("/")!=-1) 
        { 
            str = str.replace("/","%2F"); 
        } 
        return str; 
    } 
 
    var str1 = "http://www.foo.com/blah.asp?foo=1 & 2 &g=0"; 
    var str2 = URLEncode(str1); 
    var str3 = URLDecode(str2); 
    Response.Write(str1 + "<br>" + str2 + "<br>" + str3) 
 
</script>