自分のスペースにフォトアルバムを作りたくて、色々探して picasa を使いました。 唯一の欠点は、外部リンクをコピーして貼り付けるのが面倒なことです。 1 つなので、asp+javascript を使用して簡単なプログラムを作成しました。少し変更を加えることで、より強力な機能を実現できます。
次のコードを使用して、picasa アルバムの外部リンクをバッチで簡単にエクスポートします。
次のようにコードをコピーします。
<%@LANGUAGE=VBSCRIPT コードページ=65001%>
<%
dim xmlget、xmlhttp、電子メール、paswd
email=youremail ' Picasa アカウントのメールアドレスを入力してください
paswd=yourpassword 'Picasa のパスワードを入力してください
xmlhttp = CreateObject(Msxml2.ServerXMLHTTP) を設定します。
xmlhttpを使用
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
。送信
xmlget = getRedirect(bin2str(.responseBody))
.Open GET、xmlget
。送信
xmlget = bin2str(.responseBody)
リクエスト(タイプ)=写真の場合
.Open GET、リクエスト(url)
。送信
xmlget = bin2str(.responseBody)
xmlget = 置換(xmlget, pwa.setup, test2)
それ以外
xmlget = Replace(xmlget, pwa.setup, test)
終了する場合
で終わる
xmlhttp = 何も設定しない
関数 bin2str(binstr)
Const adTypeBinary = 1
Const adTypeText = 2
Dim BytesStream、StringReturn
BytesStream = Server.CreateObject(ADODB.Stream) を設定します。
バイトストリームあり
.Type = adTypeText
。開ける
.WriteText binstr
.位置 = 0
.Charset=UTF-8
.位置 = 2
StringReturn = .ReadText
。近い
で終わる
BytesStream = なしを設定します
bin2str = 文字列戻り値
終了機能
関数 getRedirect(str)
str = Mid(str, Instr(str, location.replace))
str = Mid(str, 19, Instr(str, ))-19)
str = 置換(str, /x3d, =)
getRedirect = 置換(str, /x26, &)
終了機能
%>
<%
if request(type)<>photo then
%>
<script language=javascript><!--
関数テスト()
{
if(引数.長さ!= 8)
戻る;
var html = <ul>;
var アルバム = 引数[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>
<%
それ以外
%>
<script language=javascript><!--
関数 test2()
{
if(引数.長さ!= 15)
戻る;
var html = <ul>;
var photos = argument[6].feedPreload.feed.entry;
for (var i=0;i<photoes.length;i++)
html+=<li>+写真[i][content$src]+</li>;
html+=</ul>;
document.body.innerHTML=html;
}
// --></script>
<%
終了する場合
%>
<%=xmlget%>
上記のコードで Picasa のユーザー名とパスワードを変更し、ASP ファイルとして保存し、サーバー上でアクセスすると、効果が確認できます。