<%@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<mpl=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=""+albums[i].src+""/>";         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%>