picasa相册外链批量导出 asp+javascript

最新推荐文章于 2024-09-21 11:29:05 发布

snowfall111

最新推荐文章于 2024-09-21 11:29:05 发布

阅读量847

点赞数 1

文章标签： javascript 相册 asp html vbscript email

本文链接：https://blog.csdn.net/snowfall111/article/details/4139889

版权

本文分享了一个使用ASP和JavaScript编写的程序，可以批量导出Picasa相册的外链。通过替换代码中的Picasa账户邮箱和密码，用户可以方便地获取相册图片链接，无需手动复制粘贴。该程序适用于想要自建相册功能的网站。

摘要由CSDN通过智能技术生成

自己的空间想做一个相册，找来找去用了picasa，功能很方便，唯一不足之处是获取外链太麻烦，一个一个的复制粘贴太辛苦，于是用asp+javascript的方法写了个简单的程序，来与大家分享。稍加改造就可以实现更强大的功能了。欢迎大家去我的网站 http://www.goodkr.cn ,里面的相册就是用这种方法管理的。
用下面的代码就可以简单的批量导出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 %> <mce:script language="javascript"></mce:script> <% else %> <mce:script language="javascript"></mce:script> <% end if %> <%=xmlget%>

将上面的代码里picasa的用户名密码改好，保存成ASP文件，放到服务器下访问，就可以看到效果了。