ฉันต้องการสร้างอัลบั้มรูปภาพในพื้นที่ของตัวเอง ดังนั้นฉันจึงค้นหาไปรอบๆ และใช้ 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, เท็จ
'.setRequestHeader ประเภทเนื้อหา,application/x-www-form-urlencoded
.ส่ง
xmlget = getRedirect(bin2str(.responseBody))
.เปิด GET,xmlget
.ส่ง
xmlget = bin2str(.responseBody)
ถ้า request(type)=photo แล้ว
. เปิด GET ขอ (url)
.ส่ง
xmlget = bin2str(.responseBody)
xmlget = แทนที่ (xmlget, pwa.setup, test2)
อื่น
xmlget = แทนที่ (xmlget, pwa.setup, ทดสอบ)
สิ้นสุดถ้า
จบด้วย
ตั้งค่า xmlhttp = ไม่มีเลย
ฟังก์ชั่น bin2str(binstr)
ค่าคงที่ adTypeBinary = 1
ค่าคงที่ adTypeText = 2
Dim BytesStream, StringReturn
ตั้งค่า BytesStream = Server.CreateObject (ADODB.Stream)
ด้วย BytesStream
.Type = adTypeText
.เปิด
.ช่องเก็บข้อความ
.ตำแหน่ง = 0
.ชุดอักขระ=UTF-8
.ตำแหน่ง = 2
StringReturn = .อ่านข้อความ
.ปิด
จบด้วย
ตั้งค่า BytesStream = ไม่มีเลย
bin2str = StringReturn
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น getRedirect(str)
str = กลาง (str, Instr (str, location.replace))
str = กลาง(str, 19, Instr(str, ))-19)
str = แทนที่ (str, /x3d, =)
getRedirect = แทนที่ (str, /x26, &)
ฟังก์ชันสิ้นสุด
-
-
ถ้าขอ(พิมพ์)<>รูปภาพแล้ว
-
<script language=javascript><!--
การทดสอบฟังก์ชัน ()
-
ถ้า(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)+'>+albums[i].title+</a></li><br/><img src=+albums[i].src+ src=+albums[i].src+/> ;
html+=</ul>;
document.body.innerHTML=html;
-
// --></สคริปต์>
-
อื่น
-
<script language=javascript><!--
ฟังก์ชั่น test2()
-
ถ้า(arguments.length != 15)
กลับ;
var html = <ul>;
var photos = ข้อโต้แย้ง [6].feedPreload.feed.entry;
สำหรับ (var i=0;i<photoes.length;i++)
html+=<li>+รูปภาพ[i][เนื้อหา$src]+</li>;
html+=</ul>;
document.body.innerHTML=html;
-
// --></สคริปต์>
-
สิ้นสุดถ้า
-
<%=xmlget%>
เปลี่ยนชื่อผู้ใช้และรหัสผ่าน Picasa ในโค้ดด้านบน บันทึกเป็นไฟล์ ASP เข้าถึงได้บนเซิร์ฟเวอร์ แล้วคุณจะเห็นผลลัพธ์