Saya ingin membuat album foto di ruang saya sendiri, jadi saya mencari-cari dan menggunakan picasa. Fungsinya sangat nyaman. Satu-satunya kelemahan adalah terlalu merepotkan untuk mendapatkan tautan eksternal satu, jadi saya menulis yang sederhana menggunakan program asp+javascript untuk dibagikan kepada Anda. Dengan sedikit modifikasi, fungsi yang lebih canggih dapat dicapai.
Gunakan kode berikut untuk mengekspor tautan eksternal album picasa secara berkelompok.
Copy kode kodenya sebagai berikut:
<%@LANGUAGE=KODE VBSCRIPT=65001%>
<%
redupkan xmlget,xmlhttp,email,paswd
email=youremail 'Masukkan email akun picasa
paswd=kata sandi Anda 'Masukkan kata sandi picasa
Setel xmlhttp = Buat Objek(Msxml2.ServerXMLHTTP)
Dengan xmlhttp
.Buka 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, Salah
'.setRequestHeader CONTENT-TYPE,application/x-www-form-urlencoded
.Mengirim
xmlget = getRedirect(bin2str(.responseBody))
.Buka DAPATKAN,xmlget
.Mengirim
xmlget = bin2str(.responseBody)
jika permintaan(ketik)=foto maka
.Buka GET, permintaan(url)
.Mengirim
xmlget = bin2str(.responseBody)
xmlget = Ganti(xmlget, pwa.setup, test2)
kalau tidak
xmlget = Ganti(xmlget, pwa.setup, test)
berakhir jika
Akhiri Dengan
atur xmlhttp = tidak ada
Fungsi bin2str(binstr)
Konstan adTypeBinary = 1
Konstan adTypeText = 2
Redupkan BytesStream,StringReturn
Setel BytesStream = Server.CreateObject(ADODB.Stream)
Dengan BytesStream
.Tipe = adTypeText
.Membuka
.WriteText binstr
.Posisi = 0
.Charset=UTF-8
.Posisi = 2
StringReturn = .BacaTeks
.Menutup
Akhiri Dengan
Setel BytesStream = Tidak Ada
bin2str = StringKembali
Fungsi Akhir
Fungsi getRedirect(str)
str = Tengah(str, Instr(str, lokasi.ganti))
str = Pertengahan(str, 19, Instr(str, ))-19)
str = Ganti(str, /x3d, =)
getRedirect = Ganti(str, /x26, &)
Fungsi Akhir
%>
<%
jika permintaan(ketik)<>foto lalu
%>
<bahasa skrip=javascript><!--
tes fungsi()
{
if(argumen.panjang != 8)
kembali;
varhtml = <ul>;
var album = argumen[3];
untuk (var i=0;i<album.panjang;i++)
html+=<li><a href='http://<%=Request.ServerVariables(Server_Name)&Request.ServerVariables(SCRIPT_NAME)%>?type=photo&url=+escape(album
[i].url)+'>+album[i].title+</a></li><br/><img src=+album[i].src+ src=+album[i].src+/> ;
html+=</ul>;
dokumen.tubuh.innerHTML=html;
}
// --></skrip>
<%
kalau tidak
%>
<bahasa skrip=javascript><!--
tes fungsi2()
{
if(argumen.panjang != 15)
kembali;
varhtml = <ul>;
var foto = argumen[6].feedPreload.feed.entry;
untuk (var i=0;i<photoes.length;i++)
html+=<li>+foto[i][konten$src]+</li>;
html+=</ul>;
dokumen.tubuh.innerHTML=html;
}
// --></skrip>
<%
berakhir jika
%>
<%=xmldapatkan%>
Ubah nama pengguna dan kata sandi picasa pada kode di atas, simpan sebagai file ASP, akses di server, dan Anda dapat melihat efeknya.