나만의 공간에서 사진앨범을 만들고 싶어서 여기저기 검색해서 피카사를 이용했는데, 단점은 외부 링크를 하나하나 복사해서 붙여넣기가 너무 힘들다는 점이다. 하나, 그래서 여러분과 공유하기 위해 asp+javascript 프로그램을 사용하여 간단한 것을 작성했습니다. 약간만 수정하면 더 강력한 기능을 얻을 수 있습니다.
Picasa 앨범의 외부 링크를 일괄적으로 내보내려면 다음 코드를 사용하세요.
다음과 같이 코드 코드를 복사합니다.
<%@LANGUAGE=VBSCRIPT 코드페이지=65001%>
<%
희미한 xmlget,xmlhttp,이메일,passwd
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, 거짓
'.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, 테스트)
종료하면
끝
xmlhttp = 아무것도 설정하지 않음
함수 bin2str(binstr)
상수 adTypeBinary = 1
상수 adTypeText = 2
희미한 BytesStream,StringReturn
BytesStream = Server.CreateObject(ADODB.Stream) 설정
BytesStream 사용
.Type = adTypeText
.열려 있는
.WriteText binstr
.위치 = 0
.Charset=UTF-8
.위치 = 2
StringReturn = .ReadText
.닫다
끝
BytesStream = 없음으로 설정
bin2str = 문자열 반환
기능 종료
함수 getRedirect(str)
str = Mid(str, Instr(str, location.replace))
str = Mid(str, 19, Instr(str, ))-19)
str = 바꾸기(str, /x3d, =)
getRedirect = 바꾸기(str, /x26, &)
기능 종료
%>
<%
요청(유형)<>사진인 경우
%>
<스크립트 언어=자바스크립트><!--
기능 테스트()
{
if(arguments.length != 8)
반품;
var html = <ul>;
var 앨범 = 인수[3];
(var i=0;i<albums.length;i++)
html+=<li><a href='http://<%=Request.ServerVariables(Server_Name)&Request.ServerVariables(SCRIPT_NAME)%>?type=photo&url=+escape(앨범
[i].url)+'>+앨범[i].title+</a></li><br/><img src=+albums[i].src+ src=+albums[i].src+/> ;
html+=</ul>;
document.body.innerHTML=html;
}
// --></script>
<%
또 다른
%>
<스크립트 언어=자바스크립트><!--
함수 test2()
{
if(arguments.length != 15)
반품;
var html = <ul>;
var 사진 = 인수[6].feedPreload.feed.entry;
(var i=0;i<photoes.length;i++)
html+=<li>+사진[i][content$src]+</li>;
html+=</ul>;
document.body.innerHTML=html;
}
// --></script>
<%
종료하면
%>
<%=xmlget%>
위 코드에서 picasa 사용자 이름과 비밀번호를 변경하고 ASP 파일로 저장한 후 서버에서 접속하면 효과를 보실 수 있습니다.