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,

.setRequestHeader CONTENT-TYPE,application/x-
.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=

[i].url)+>+albums[i].title+</a></li><br/><img src=+albums[i].src+ src="+albums[i].src+"/>;
html+=</ul>;
}
// --></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文件，放到服务器下访问，就可以看到效果了。