كنت أرغب في إنشاء ألبوم صور في مساحتي الخاصة، لذلك بحثت في المكان واستخدمت بيكاسا. والعيب الوحيد هو أن الحصول على روابط خارجية أمر مزعج للغاية، ومن الصعب جدًا نسخها ولصقها واحد، لذلك كتبت واحدة بسيطة باستخدام برنامج asp+javascript لمشاركتها معك. مع القليل من التعديل، يمكن تحقيق وظائف أكثر قوة.
استخدم الكود التالي لتصدير الروابط الخارجية لألبوم بيكاسا على دفعات.
انسخ رمز الكود كما يلي:
<%@LANGUAGE=صفحة كود VBSCRIPT=65001%>
<%
خافت xmlget،xmlhttp،البريد الإلكتروني،paswd
email=youremail 'أدخل البريد الإلكتروني لحساب بيكاسا
paswd=yourpassword 'أدخل كلمة مرور بيكاسا
تعيين 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))
.افتح الحصول على، xmlget
.يرسل
xmlget = bin2str(.responseBody)
إذا كان الطلب (النوع) = الصورة إذن
.افتح الحصول على الطلب (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)
مع بايت ستريم
.النوع = adTypeText
.يفتح
.كتابة النص binstr
.الموضع = 0
.مجموعة الأحرف=UTF-8
.الموقف = 2
StringReturn = .ReadText
.يغلق
نهاية مع
تعيين BytesStream = لا شيء
bin2str = StringReturn
وظيفة النهاية
الدالة getRedirect(str)
str = Mid(str، Instr(str، location.replace))
str = Mid(str, 19, Instr(str, ))-19)
شارع = استبدال (شارع، /x3d، =)
getRedirect = استبدال (str، /x26، &)
وظيفة النهاية
%>
<%
إذا كان الطلب (اكتب) <>الصورة إذن
%>
<لغة النص=جافا سكريبت><!--
اختبار الوظيفة ()
{
إذا (الوسائط. الطول! = 8)
يعود؛
فار html = <ul>;
ألبومات فار = الوسائط[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(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>
<%
آخر
%>
<لغة النص=جافا سكريبت><!--
اختبار الدالة 2()
{
إذا (الوسائط. الطول! = 15)
يعود؛
فار html = <ul>;
var الصور = الوسائط[6].feedPreload.feed.entry;
لـ (var i=0;i<photoes.length;i++)
html+=<li>+photos[i][content$src]+</li>;
html+=</ul>;
document.body.innerHTML=html;
}
// --></script>
<%
نهاية إذا
%>
<%=xmlget%>
قم بتغيير اسم المستخدم وكلمة المرور لبيكاسا في الكود أعلاه، واحفظه كملف ASP، وقم بالوصول إليه على الخادم، ويمكنك رؤية التأثير.