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

时间: 2024-02-12 20:29:55

asp javascript picasa相册外链批量导出_应用技巧的相关文章

asp javascript picasa相册外链批量导出

来与大家分享.稍加改造就可以实现更强大的功能了. 用下面的代码就可以简单的批量导出picasa相册的外链了. 复制代码 代码如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%     dim xmlget,xmlhttp,email,paswd     email="youremail"    '输入picasa的账户email     paswd="yourpasswor

asp+javascript实现404页的处理转换_应用技巧

主要是给用户的友好性,原来用户是依靠搜索引擎进入我每篇文章的,怎么能让用户让一个旧的页面跳转到新的页面,且文章不变,如:    程序代码   http://www.jb51.net/blog/article.asp?id=381  //旧网址   进入之后自动跳转到   http://www.jb51.net/article.asp?id=381   这就需要new321服务器的404页来处理了,代码如下:    程序代码   <%    url=Request.ServerVariables(

asp.net(c#)利用构造器链的代码_实用技巧

复制代码 代码如下: using System; using System.Data; using System.Configuration; using System.Collections; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using Syste

电商网站外链的建设策略和技巧

中介交易 http://www.aliyun.com/zixun/aggregation/6858.html">SEO诊断 淘宝客 云主机 技术大厅 电商网站由于本质是在网上卖东西,因而电商网站的外链不同于普通网站外链仅仅是为网站优化而做,我们还应该考虑到目标客户意向问题.对于电商外链的建设策略和技巧,我在此分享几点心得,这些都是我从实际工作中总结出来的,希望对大家有所帮助. 外链能否带来意向流量 意向流量的衡量标准是什么,我个人认为只要在网站的浏览页数大于1都可称为意向流量.外链带来意向

结合祛痘网谈论坛外链建设中的种种技巧

做网站如果不是大型的网站有很多用户帮你发外链,那么很多时候还是需要自己去发外链的,这里我就结合姐妹祛痘网建谈谈我在做论坛外链的的时候用到得种种技巧. 找外链的技巧 外链建设之前需要找到能发外链的地方,而现在很多论坛是不让发外链的,所以我们在找外链的时候就要有技巧,不然等你找到论坛注册了账号而又不能发链接的话,那会很浪费时间也没效率,所以如何找就是很重要的了,这里介绍下我是如何给姐妹祛痘网找链接的?我开始做的时候是通过搜索论坛来做的效率不高,后来做多了,发现分析同行业的别人网站的链接是个很不错的方

javascript动态添加样式(行内式/嵌入式/外链式等规则)_javascript技巧

添加CSS的方式有行内式.嵌入式.外链式.导入式 a)动态引入样式表文件: 复制代码 代码如下: function loadLink(url){ var link = document.createElement("link"); link.type = "text/css"; link.rel = "stylesheet"; link.href = url; var head = document.getElmentsByTagName(&qu

js获取元素外链样式的方法_javascript技巧

本文实例讲述了js获取元素外链样式的方法.分享给大家供大家参考.具体分析如下: 一般给元素设置行内样式,如<div id="div1" style="width:500px;"></div>.如要获取它的样式,即可document.getElementById("div1").style.width来获取或设置.但是如果样式是在外链link中的或者是页面的非行内样式,就获取不到了. 在标准浏览器中可以通过window.ge

浅谈6个常用的外链方法的一些小技巧

在网站优化中有句名言,"内容为王,外链为皇".由此可见外链的重要性,大家都知道发外链的主要目就是为了提高网站关键词的排名,提升网站权重,从而达到良好的收录.对于一个新站来说外链注重的是一个"稳"字,主要是只两个方面,第一个方面是指外链的数量要稳:在做外链要避免忽多忽少的现象,不要第一天做了几百个,第二天就不做了,这样很容易让搜索引擎判定在作弊,后果就严重了.第二个方面就是指所发外链的论坛要保证不能总是删帖,这样给百度蜘蛛留下的印象不好,对新站的影响也是很大的.接下来

霍克:一分享两周实现网站外链提升3倍的技巧

前几天跟大家分享过内链建设方面的一点经验,貌似大家不是很感冒.看来大家都是做运营的哈,那我今天就和大家聊聊有关外链方面的话题. 话说我目前负责的这个房产类网站,主要是做长春二手房和租房,以及银行贷款方面业务的,这个平台在我策划阶段,我做了一些功能策划方面的工作,然后以提升网站内容和外链.接下来我就说说,这个房产网站是如何在两周内实现外链提升3倍的. 如图所示:仅用两周外链增加两倍 一.页面加网址,内容变外链 在每个页面,我都会加上网站的网址,这样,一旦内容被百度收录,外链就会随之有所增长,虽然权