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

自己的空间想做一个相册，找来找去用了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, Fals