asp javascript picasa相册外链批量导出
来源:asp之家 发布时间:2011-03-30 10:52:00
来与大家分享。稍加改造就可以实现更强大的功能了。
用下面的代码就可以简单的批量导出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=""+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文件,放到服务器下访问,就可以看到效果了。
猜你喜欢
- 哎~工作忙死了!!!!!!今天在百度老年看到一个手写输入法,颇感新鲜。so把其框下!请不要用在商业用途,学习之用,版权百度所有。看代码!注:
- 1.建立Recordset对象Dim objMyRstSet objMyRst=Server.CreateObject(&ldquo
- 批量修改: EXEC sp_MSforeachtable 'exec sp_changeob
- 进入sqlplus SQL> set timing on SQL> SQL> select count(*) from c
- 有一天我突发奇想,要是我每到一个网站,那里都能立刻调出我需要看的信息,那岂非美妙得很。接下来我想更深入地考虑这个问题,坐到椅子上拿一支铅笔,
- Function closeUBB(strContent) '*************************
- 我们知道,数组的sort方法可以对数组元素进行排序,默认是按ASCII字母表顺序排序。如果要根据其他的顺序排序就需要为sort方法提供一个比
- 其实就是利用文件“global.asa”!许多ASP编程新手都想知道这东西是什么?事实上,global.asa就是一个事件驱动程序,其中共包
- 增大 SGA 已经缓冲看来对于性能的提升并不显著,加载时间只提升了 1.73%。下面我们增加 SGA 重做日志的大小: DB3: Log B
- 农业银行总行1998年以来正式推广了新版网络版综合业务统计信息系统,该系统是基于WindowsNT4.0平台,采用客户/服务器模式,以Mic
- 在程序的开发过程中,处理分页是大家接触比较频繁的事件,因为现在软件基本上都是与数据库进行挂钓的。但效率又是我们所追求的,如果是像原来那样把所
- 1、灵活运用样式熟悉网页设计的网友就知道,调用Style的方法很多,我们可以单击鼠标右键选择Custo
- 一、增强的可扩展性 Oracle9i Real Application Clusters是Oracle的下一代并行服务器系列产品。Oracl
- 1、前言 MySQL 是完全网络化的跨平台关系型数据库系统,同时是具有客户机/服务器体系结构的分布式数据库管理系统。它具有功能强、使用简便、
- 我在初学时查阅过大量相关资料,发现其中提供的很多方法实际操作起来并不是那么回事。对于简单的应用,这些资料也许是有帮助的,但仅限于此,因为它们
- asp之家注:学习javascript(js),免不了要用到打开新窗口,方法很多,总的来说是使用window.open。不同与HTML中的t
- 清除浮动这个问题的提出,在现在来说应该算是一个非常古老的问题了,很多人对解决办法估计也能烂记于心了,但是我这个落后了不少的前端开发程序员,太
- 这里说的“相对路径”是相对于“主调文件”所在的文件夹。#include file #include file后面跟的是文件的“相对路径”,不
- 问: 如果数据表中有时间字段,现在要迁移到其他时区的服务器上,该如何处理呢?答:在高版本的mysqldump中,新增了一个选项:--tz-u
- 本文回答了如下问题:“MySQL服务器有多稳定?”,以及“在本项目中我能依靠My