Ich wollte ein Fotoalbum in meinem eigenen Bereich erstellen, also habe ich Picasa verwendet. Der einzige Nachteil ist, dass es zu mühsam ist, einen zu kopieren und einzufügen eines, also habe ich ein einfaches Programm mit asp+javascript geschrieben, um es mit Ihnen zu teilen. Mit einer kleinen Modifikation können leistungsfähigere Funktionen erreicht werden.
Verwenden Sie den folgenden Code, um die externen Links des Picasa-Albums einfach stapelweise zu exportieren.
Kopieren Sie den Codecode wie folgt:
<%@LANGUAGE=VBSCRIPT CODEPAGE=65001%>
<%
dimmen Sie xmlget,xmlhttp,email,paswd
email=youremail 'Geben Sie die E-Mail-Adresse des Picasa-Kontos ein
paswd=yourpassword 'Picasa-Passwort eingeben
Setze xmlhttp = CreateObject(Msxml2.ServerXMLHTTP)
Mit xmlhttp
.Öffnen Sie 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, Falsch
'.setRequestHeader CONTENT-TYPE,application/x-www-form-urlencoded
.Schicken
xmlget = getRedirect(bin2str(.responseBody))
.Öffnen Sie GET,xmlget
.Schicken
xmlget = bin2str(.responseBody)
wenn request(type)=photo dann
.Öffnen Sie GET, Anfrage (URL)
.Schicken
xmlget = bin2str(.responseBody)
xmlget = Ersetzen(xmlget, pwa.setup, test2)
anders
xmlget = Ersetzen(xmlget, pwa.setup, test)
Ende wenn
Ende mit
set xmlhttp = nichts
Funktion bin2str(binstr)
Const adTypeBinary = 1
Const adTypeText = 2
Dimmen Sie BytesStream,StringReturn
Setze BytesStream = Server.CreateObject(ADODB.Stream)
Mit BytesStream
.Type = adTypeText
.Offen
.WriteText binstr
.Position = 0
.Charset=UTF-8
.Position = 2
StringReturn = .ReadText
.Schließen
Ende mit
Setzen Sie BytesStream = Nothing
bin2str = StringReturn
Funktion beenden
Funktion getRedirect(str)
str = Mid(str, Instr(str, location.replace))
str = Mid(str, 19, Instr(str, ))-19)
str = Ersetzen(str, /x3d, =)
getRedirect = Ersetzen(str, /x26, &)
Funktion beenden
%>
<%
wenn Anfrage(Typ)<>Foto dann
%>
<script language=javascript><!--
Funktionstest()
{
if(arguments.length != 8)
zurückkehren;
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>
<%
anders
%>
<script language=javascript><!--
Funktion test2()
{
if(arguments.length != 15)
zurückkehren;
var html = <ul>;
var photos = arguments[6].feedPreload.feed.entry;
for (var i=0;i<photoes.length;i++)
html+=<li>+photos[i][content$src]+</li>;
html+=</ul>;
document.body.innerHTML=html;
}
// --></script>
<%
Ende wenn
%>
<%=xmlget%>
Ändern Sie den Picasa-Benutzernamen und das Passwort im obigen Code, speichern Sie sie als ASP-Datei, greifen Sie auf dem Server darauf zu und Sie können die Auswirkung sehen.