asp javascript picasa 앨범 외부 체인 대량 내 보 내기

여러분 과 나 누 겠 습 니 다.조금 만 개조 하면 더욱 강력 한 기능 을 실현 할 수 있다.아래 코드 를 사용 하면 picasa 앨범 의 외 사슬 을 간단하게 대량으로 내 보 낼 수 있 습 니 다

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
    dim xmlget,xmlhttp,email,paswd
    email="youremail"    ' picasa email
    paswd="yourpassword"    ' picasa
    Set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP")
    With xmlhttp
        .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)

        if request("type")="photo" then
            .Open "GET", request("url")
            .Send ""
            xmlget = bin2str(.responseBody)
            xmlget = Replace(xmlget, "pwa.setup", "test2")
        else
            xmlget = Replace(xmlget, "pwa.setup", "test")
        end if
    End With
    set xmlhttp = nothing

    Function bin2str(binstr)
        Const adTypeBinary = 1
        Const adTypeText = 2
        Dim BytesStream,StringReturn
        Set BytesStream = Server.CreateObject("ADODB.Stream")
        With BytesStream
            .Type = adTypeText
            .Open
            .WriteText binstr
            .Position = 0
            .Charset = "UTF-8"
            .Position = 2
            StringReturn = .ReadText
            .Close
        End With
        Set BytesStream = Nothing
        bin2str = StringReturn
    End Function

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

<%
    if request("type")<>"photo" then
%>
<script language="javascript"><!--
    function test()
    {
        if(arguments.length != 8)
            return;
        var html = "<ul>";
        var albums = arguments[3];
        for (var i=0;i<albums.length;i++)
            html+="<li><a href='http://<%=Request.ServerVariables("Server_Name")&Request.ServerVariables("SCRIPT_NAME")%>?type=photo&url="+escape(albums

[i].url)+"'>"+albums[i].title+"</a></li><br/><img src=""+albums[i].src+"" src="&quot;+albums[i].src+&quot;"/>";
        html+="</ul>";
        document.body.innerHTML=html;
    }
// --></script>
<%
    else
%>
<script language="javascript"><!--
    function test2()
    {
        if(arguments.length != 15)
            return;
        var html = "<ul>";
        var photoes = arguments[6].feedPreload.feed.entry;
        for (var i=0;i<photoes.length;i++)
            html+="<li>"+photoes[i]["content$src"]+"</li>";
        html+="</ul>";
        document.body.innerHTML=html;
    }
// --></script>
<%
    end if
%>
<%=xmlget%>
위의 코드 에 있 는 picasa 의 사용자 이름 비밀 번 호 를 바 꾸 고 ASP 파일 로 저장 하여 서버 아래 에 접근 하면 효 과 를 볼 수 있 습 니 다.

좋은 웹페이지 즐겨찾기