天枫庄资源网 Design By www.wosibo.com
来与大家分享。稍加改造就可以实现更强大的功能了。
用下面的代码就可以简单的批量导出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="/UploadFiles/2021-04-02/"> 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文件,放到服务器下访问,就可以看到效果了。
用下面的代码就可以简单的批量导出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="/UploadFiles/2021-04-02/"> 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文件,放到服务器下访问,就可以看到效果了。
天枫庄资源网 Design By www.wosibo.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
天枫庄资源网 Design By www.wosibo.com
暂无asp javascript picasa相册外链批量导出的评论...
更新日志
2024年12月25日
2024年12月25日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]