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。gxlsystem。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>
<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文件，放到服务器下访问，就可以看到效果了。