Je voulais créer un album photo dans mon propre espace, j'ai donc cherché et utilisé Picasa. La fonction est très pratique. Le seul inconvénient est qu'il est trop difficile d'obtenir des liens externes. un, j'en ai donc écrit un simple en utilisant le programme asp+javascript à partager avec vous. Avec une petite modification, des fonctions plus puissantes peuvent être obtenues.
Utilisez le code suivant pour exporter simplement les liens externes de l'album picasa par lots.
Copiez le code comme suit :
<%@LANGUAGE=VBSCRIPT CODEPAGE=65001%>
<%
faible xmlget, xmlhttp, email, paswd
email=votreemail 'Entrez l'adresse e-mail du compte Picasa
paswd=votre mot de passe 'Entrez le mot de passe picasa
Définir xmlhttp = CreateObject (Msxml2.ServerXMLHTTP)
Avec XMLhttp
.Ouvrez 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, Faux
'.setRequestHeader CONTENU-TYPE,application/x-www-form-urlencoded
.Envoyer
xmlget = getRedirect(bin2str(.responseBody))
.Ouvrez GET,xmlget
.Envoyer
xmlget = bin2str(.responseBody)
si demande(type)=photo alors
.Ouvrez GET, demande (url)
.Envoyer
xmlget = bin2str(.responseBody)
xmlget = Remplacer (xmlget, pwa.setup, test2)
autre
xmlget = Remplacer (xmlget, pwa.setup, test)
finir si
Terminer par
définir xmlhttp = rien
Fonction bin2str(binstr)
Const adTypeBinary = 1
Const adTypeText = 2
Dim BytesStream, StringReturn
Définir BytesStream = Server.CreateObject (ADODB.Stream)
Avec BytesStream
.Type = adTypeText
.Ouvrir
.WriteText binstr
.Position = 0
.Charset=UTF-8
.Position = 2
StringRetour = .ReadText
.Fermer
Terminer par
Définir BytesStream = Rien
bin2str = ChaîneRetour
Fonction de fin
Fonction getRedirect(str)
str = Milieu (str, Instr (str, location.replace))
str = Milieu(str, 19, Instr(str, ))-19)
str = Remplacer (str, /x3d, =)
getRedirect = Remplacer (str, /x26, &)
Fonction de fin
%>
<%
si demande(type)<>photo alors
%>
<langage de script=javascript><!--
test de fonction()
{
si(arguments.longueur != 8)
retour;
varhtml = <ul>;
var albums = arguments[3];
pour (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>
<%
autre
%>
<langage de script=javascript><!--
fonction test2()
{
si(arguments.longueur != 15)
retour;
varhtml = <ul>;
var photos = arguments[6].feedPreload.feed.entry;
pour (var i=0;i<photoes.length;i++)
html+=<li>+photos[i][content$src]+</li>;
html+=</ul>;
document.body.innerHTML=html;
}
// --></script>
<%
finir si
%>
<%=xmlget%>
Modifiez le nom d'utilisateur et le mot de passe picasa dans le code ci-dessus, enregistrez-le en tant que fichier ASP, accédez-y sur le serveur et vous pourrez voir l'effet.