aspjavascriptpicasa相册外链批量导出

<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>
<%
    dimxmlget,xmlhttp,email,paswd
    email="youremail"    "输入picasa的账户email
    paswd="yourpassword"    "输入picasa的密码
    Setxmlhttp=CreateObject("Msxml2.ServerXMLHTTP")
    Withxmlhttp
        .Open"GET","https://www.google.com/accounts/ServiceLoginAuth?service=lh2&continue=http://picasaweb.google.com/lh/login?continue=http%3A%2F%

2Fpicasaweb.google.com%2Fhome&ltmpl=gp&h1=zh_CN&GALX=ip37cq7CgwE&Email="&email&"&Passwd="&paswd,False
        ".setRequestHeader"CONTENT-TYPE","application/x-www-form-urlencoded"
        .Send""
        xmlget=getRedirect(bin2str(.responseBody))

        .Open"GET",xmlget
        .Send""
        xmlget=bin2str(.responseBody)

        ifrequest("type")="photo"then
            .Open"GET",request("url")
            .Send""
            xmlget=bin2str(.responseBody)
            xmlget=Replace(xmlget,"pwa.setup","test2")
        else
            xmlget=Replace(xmlget,"pwa.setup","test")
        endif
    EndWith
    setxmlhttp=nothing

    Functionbin2str(binstr)
        ConstadTypeBinary=1
        ConstadTypeText=2
        DimBytesStream,StringReturn
        SetBytesStream=Server.CreateObject("ADODB.Stream")
        WithBytesStream
            .Type=adTypeText
            .Open
            .WriteTextbinstr
            .Position=0
            .Charset="UTF-8"
            .Position=2
            StringReturn=.ReadText
            .Close
        EndWith
        SetBytesStream=Nothing
        bin2str=StringReturn
    EndFunction

    FunctiongetRedirect(str)
        str=Mid(str,Instr(str,"location.replace"))
        str=Mid(str,19,Instr(str,""")")-19)
        str=Replace(str,"\x3d","=")
        getRedirect=Replace(str,"\x26","&")
    EndFunction
%>

<%
    ifrequest("type")<>"photo"then
%>
<scriptlanguage="javascript"><!--
    functiontest()
    {
        if(arguments.length!=8)
            return;
        varhtml="<ul>";
        varalbums=arguments[3];
        for(vari=0;i<albums.length;i++)
            html+="<li><ahref="http://<%=Request.ServerVariables("Server_Name")&Request.ServerVariables("SCRIPT_NAME")%>?type=photo&url="+escape(albums

[i].url)+"">"+albums[i].title+"</a></li><br/><imgsrc=""+albums[i].src+""src=""+albums[i].src+""/>";
        html+="</ul>";
        document.body.innerHTML=html;
    }
//--></script>
<%
    else
%>
<scriptlanguage="javascript"><!--
    functiontest2()
    {
        if(arguments.length!=15)
            return;
        varhtml="<ul>";
        varphotoes=arguments[6].feedPreload.feed.entry;
        for(vari=0;i<photoes.length;i++)
            html+="<li>"+photoes[i]["content$src"]+"</li>";
        html+="</ul>";
        document.body.innerHTML=html;
    }
//--></script>
<%
    endif
%>
<%=xmlget%>