Eu queria fazer um álbum de fotos no meu próprio espaço, então pesquisei e usei o picasa. A única desvantagem é que é muito difícil obter links externos. um, então escrevi um simples usando o programa asp + javascript para compartilhar com vocês. Com uma pequena modificação, funções mais poderosas podem ser alcançadas.
Use o código a seguir para exportar simplesmente os links externos do álbum do Picasa em lotes.
Copie o código do código da seguinte forma:
<%@LANGUAGE=PÁGINA DE CÓDIGO VBSCRIPT=65001%>
<%
dim xmlget,xmlhttp,e-mail,paswd
email=youremail 'Insira o e-mail da conta do picasa
paswd=suasenha 'Digite a senha do picasa
Definir xmlhttp = CreateObject(Msxml2.ServerXMLHTTP)
Com 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 CONTEÚDO, aplicação/x-www-form-urlencoded
.Enviar
xmlget = getRedirect(bin2str(.responseBody))
.Abra GET,xmlget
.Enviar
xmlget=bin2str(.responseBody)
if request(type)=foto então
.Abra GET, solicitação (url)
.Enviar
xmlget=bin2str(.responseBody)
xmlget = Substituir(xmlget, pwa.setup, test2)
outro
xmlget = Substituir(xmlget, pwa.setup, teste)
terminar se
Terminar com
definir xmlhttp = nada
Função bin2str(binstr)
Const adTypeBinary = 1
Const adTypeText = 2
Dim BytesStream,StringReturn
Definir BytesStream = Server.CreateObject(ADODB.Stream)
Com BytesStream
.Type = adTypeText
.Abrir
.WriteText binstr
.Posição = 0
.Charset=UTF-8
.Posição = 2
StringReturn = .ReadText
.Fechar
Terminar com
Definir BytesStream = Nada
bin2str = StringReturn
Função final
Função getRedirect(str)
str = Mid(str, Instr(str, location.replace))
str = Meio(str, 19, Instr(str, ))-19)
str = Substituir(str, /x3d, =)
getRedirect = Substituir(str, /x26, &)
Função final
%>
<%
if request(type)<>foto então
%>
<linguagem de script=javascript><!--
teste de função()
{
if(argumentos.comprimento! = 8)
retornar;
varhtml = <ul>;
var álbuns = argumentos[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)+'>+álbums[i].title+</a></li><br/><img src=+albums[i].src+ src=+albums[i].src+/> ;
html+=</ul>;
document.body.innerHTML=html;
}
// --></script>
<%
outro
%>
<linguagem de script=javascript><!--
função teste2()
{
if(argumentos.comprimento! = 15)
retornar;
varhtml = <ul>;
var fotos = argumentos[6].feedPreload.feed.entry;
for (var i=0;i<fotos.comprimento;i++)
html+=<li>+fotos[i][content$src]+</li>;
html+=</ul>;
document.body.innerHTML=html;
}
// --></script>
<%
terminar se
%>
<%=xmlget%>
Altere o nome de usuário e a senha do Picasa no código acima, salve-o como um arquivo ASP, acesse-o no servidor e você poderá ver o efeito.