Я хотел создать фотоальбом в своем собственном пространстве, поэтому поискал и использовал функцию Picasa. Единственный недостаток - слишком сложно получить внешние ссылки. Их слишком сложно скопировать и вставить. один, поэтому я написал простой, используя программу asp+javascript, чтобы поделиться с вами. После небольшой модификации можно получить более мощные функции.
Используйте следующий код, чтобы просто экспортировать внешние ссылки альбома Picasa в пакетном режиме.
Скопируйте код кода следующим образом:
<%@LANGUAGE=КОДОВАЯ СТРАНИЦА VBSCRIPT=65001%>
<%
dim xmlget, xmlhttp, электронная почта, paswd
email=youremail 'Введите адрес электронной почты учетной записи Picasa
paswd=yourpassword 'Введите пароль Picasa
Установите xmlhttp = CreateObject(Msxml2.ServerXMLHTTP)
С помощью xmlhttp
.Откройте 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, False
'.setRequestHeader CONTENT-TYPE,application/x-www-form-urlencoded
.Отправлять
xmlget = getRedirect(bin2str(.responseBody))
.Откройте GET,xmlget
.Отправлять
xmlget = bin2str(.responseBody)
если запрос(тип)=фото, то
.Откройте GET, запрос (url)
.Отправлять
xmlget = bin2str(.responseBody)
xmlget = Заменить (xmlget, pwa.setup, test2)
еще
xmlget = Заменить (xmlget, pwa.setup, test)
конец, если
Конец с
установить xmlhttp = ничего
Функция bin2str(binstr)
Константа adTypeBinary = 1
Конст адтипетекст = 2
Тусклый байтовый поток, StringReturn
Установить BytesStream = Server.CreateObject(ADODB.Stream)
С байтовым потоком
.Тип = текстобъявления
.Открыть
.WriteText бинстр
.Позиция = 0
.Кодировка=UTF-8
.Позиция = 2
StringReturn = .ReadText
.Закрывать
Конец с
Установить BytesStream = Ничего
bin2str = Возврат строки
Конечная функция
Функция getRedirect(str)
str = Mid(str, Instr(str, location.replace))
str = Mid(str, 19, Instr(str, ))-19)
стр = Заменить (строка, /x3d, =)
getRedirect = Заменить (str, /x26, &)
Конечная функция
%>
<%
если запрос(тип)<>фото тогда
%>
<script Language=JavaScript><!--
функциональный тест()
{
если(аргументы.длина!= 8)
возвращаться;
вар HTML = <ul>;
вар альбомы = аргументы[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 Language=JavaScript><!--
функция тест2()
{
если(аргументы.длина!= 15)
возвращаться;
вар HTML = <ul>;
вар фотографии = аргументы[6].feedPreload.feed.entry;
для (var i=0;i<photoes.length;i++)
html+=<li>+photos[i][content$src]+</li>;
html+=</ul>;
document.body.innerHTML=html;
}
// --></скрипт>
<%
конец, если
%>
<%=xmlget%>
Измените имя пользователя и пароль Picasa в приведенном выше коде, сохраните его как файл ASP, получите к нему доступ на сервере, и вы увидите эффект.