来与大家分享。稍加改造就可以实现更强大的功能了。用下面的代码就可以简单的批量导出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<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%> 将上面的代码里picasa的用户名密码改好，保存成ASP文件，放到服务器下访问，就可以看到效果了。

　　推荐阅读

　　启动iis出现发生意外0x8ffe2740的解决方法

默认情况下，IIS 使用端口 80 进行 HTTP 通信。如果除 IIS 以外的某个应用程序正在运行并在使用相同 IP 地址的端口 80，当您尝试使用 IIS 管理器启动网站时，可能会收到该错误消息。 解决方法：将80端口改成其它端>>>详细阅读

本文标题：asp javascript picasa相册外链批量导出

地址：http://www.17bianji.com/kaifa2/ASP/32046.html

 1/2    1