Quería hacer un álbum de fotos en mi propio espacio, así que busqué y usé picasa. La función es muy conveniente. El único inconveniente es que es demasiado complicado obtener enlaces externos y es demasiado difícil copiarlos. uno, así que escribí uno simple usando el programa asp+javascript para compartirlo con ustedes. Con una pequeña modificación, se pueden lograr funciones más potentes.
Utilice el siguiente código para exportar simplemente los enlaces externos del álbum de picasa en lotes.
Copie el código de código de la siguiente manera:
<%@LANGUAGE=PÁGINA DE CÓDIGOS VBSCRIPT=65001%>
<%
dim xmlget,xmlhttp,correo electrónico,contraseña
email=tucorreo electrónico 'Introduce el correo electrónico de la cuenta de picasa
paswd=tucontraseña 'Introduce la contraseña de picasa
Establecer xmlhttp = CreateObject(Msxml2.ServerXMLHTTP)
Con xmlhttp
.Abra 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, Falso
'.setRequestHeader TIPO DE CONTENIDO,aplicación/x-www-form-urlencoded
.Enviar
xmlget = getRedirect(bin2str(.responseBody))
.Abrir GET,xmlget
.Enviar
xmlget = bin2str(.responseBody)
si solicitud (tipo) = foto entonces
.Abrir GET, solicitar (url)
.Enviar
xmlget = bin2str(.responseBody)
xmlget = Reemplazar (xmlget, pwa.setup, test2)
demás
xmlget = Reemplazar (xmlget, pwa.setup, prueba)
terminar si
Terminar con
establecer xmlhttp = nada
Función bin2str(binstr)
Tipo de anuncio constanteBinario = 1
Texto de tipo de anuncio constante = 2
Dim BytesStream,StringReturn
Establecer BytesStream = Server.CreateObject(ADODB.Stream)
Con BytesStream
.Tipo = textoTipo de anuncio
.Abierto
.WriteText binstr
.Posición = 0
.Juego de caracteres=UTF-8
.Posición = 2
StringReturn = .ReadText
.Cerca
Terminar con
Establecer BytesStream = Nada
bin2str = StringReturn
Función final
Función getRedirect(cadena)
cadena = Medio(cadena, Instr(cadena, ubicación.reemplazar))
cadena = Medio(cadena, 19, Instr(cadena, ))-19)
cadena = Reemplazar (cadena, /x3d, =)
getRedirect = Reemplazar (cadena, /x26, &)
Función final
%>
<%
si solicitud (tipo) <> foto entonces
%>
<lenguaje de escritura=javascript><!--
prueba de función()
{
si(argumentos.longitud!= 8)
devolver;
varhtml=<ul>;
var álbumes = argumentos[3];
para (var i=0;i<álbumes.longitud;i++)
html+=<li><a href='http://<%=Request.ServerVariables(Server_Name)&Request.ServerVariables(SCRIPT_NAME)%>?type=photo&url=+escape(álbumes
[i].url)+'>+álbumes[i].title+</a></li><br/><img src=+álbumes[i].src+ src=+álbumes[i].src+/> ;
html+=</ul>;
documento.body.innerHTML=html;
}
// --></script>
<%
demás
%>
<lenguaje de escritura=javascript><!--
prueba de función2()
{
si(argumentos.longitud!= 15)
devolver;
varhtml=<ul>;
var fotos = argumentos[6].feedPreload.feed.entry;
para (var i=0;i<fotos.longitud;i++)
html+=<li>+fotos[i][contenido$src]+</li>;
html+=</ul>;
documento.body.innerHTML=html;
}
// --></script>
<%
terminar si
%>
<%=xmlget%>
Cambie el nombre de usuario y la contraseña de picasa en el código anterior, guárdelo como un archivo ASP, acceda a él en el servidor y podrá ver el efecto.