如何 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>
转自：http://dotnet.btobcn.net/Article_Detail.aspx?Aid=75

本文地址：http://com.8s8s.com/it/it30888.htm