Baidu Short URL Service مقدمة: http://www.baidu.com/search/dwz.html
يتم تنفيذها بشكل عام في PHP ، لذا فإن كيفية استخدام ASP للتنفيذ أمر بسيط للغاية.
------------------------------------------------- ------------------------------------------------- ------------------------------------------------- ------- ----------------------------------------- -----------------
<٪@language = vbscript codepage = 65001 ٪>
<٪
استجابة. Charset = UTF-8
Session.codepage = 65001
Session.Timeout = 1440
server.scriptTimeout = 99999
'الاستحواذ عن بُعد
وظيفة postttpage (posturl ، postset ، postdata ، posstreferr)
إذا instr (lace (posturl) ، http: //) = 0 ثم
postttpage = $ null $: وظيفة الخروج
إنهاء إذا
عند استئناف الخطأ التالي
قاتمة posthtp
"اضبط postttp = server.createBject (msxml2.xmlhttp)
"اضبط postttp = server.createBject (microsoft.xmlhttp)
تعيين posthttp = server.createBject (msxml2.serverxmlhtp)
"تعيين posthttp = server.createBject (msxml2.serverxmlhttp.3.0)
"تعيين posthttp = server.createBject (msxml2.serverxmlhtp.4.0)
postttp.settimeouts 10000 ، 10000 ، 15000 ، 15000
postttp.open post ، posturl ، false
POSTHTTP.SetRequsTheader طول ، LEN (postdata)
posthttp.setRequestHeader من نوع المحتوى ، Application/x-www-form-urlencoded
POSTHTP.SetRequestHeader PENTERER ، POSTREFERR
postttp.send postdata
إذا postttp.reamstate <> 4 و postttp.status <> 200 ثم
تعيين postttp = لا شيء
postttpage = $ null $: وظيفة الخروج
إنهاء إذا
postttppage = bytestobstr (postttp.responsebody ، postset)
تعيين postttp = لا شيء
إذا err.number <> 0 err.clear
إذا postppage = أو isNull (postttPage) ثم posttTPAGE = $ null $
وظيفة نهاية
وظيفة bytestobstr (الجسم ، CSET)
قاتمة objstream
تعيين OBJStream = server.createBject (ADODB.Stream)
objstream.type = 1
objstream.mode = 3
objstream.Open
objstream.write؟
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
اضبط OBJStream = لا شيء
وظيفة نهاية
وظيفة urlencoding (datast)
Dim Streturn ، SI ، thiskr ، innercode ، hight8 ، low8
streturn =
لـ Si = 1 إلى Len (Datast)
thischr = mid (datast ، si ، 1)
إذا ABS (ASC (thiscr)) <& hff ثم
streturn = streturn & thiskr
آخر
innercode = ASC (thischr)
إذا كانت الرمز الداخلي <0 ثم
innercode = innercode + & H10000
إنهاء إذا
Hight8 = (Innercode و & HFF00)/ & HFF
low8 = innercode و & hff
Streturn = Streturn & ٪ & Hex (Hight8) & ٪ & Hex (Low8)
إنهاء إذا
التالي
urlencoding = streturn
وظيفة نهاية
dim test_url: test_url = url = http://www.vevb.com/develop/asp/v74697
dim p_data: p_data = urlencoding (test_url)
DIM V_DATE: v_date = posthTPPPAGE (http://www.dwz.cn/create.php ، utf-8 ، p_data ، http://www.dwz.cn)
بيانات JSON التي تم الحصول عليها بواسطة Response.write: & v_date & <br/>
DIM V_JSON: SET V_JSON = TOOBJECT (V_DATE)
Response.write Original Website: & v_json.longurl & <br/>
Response.write url القصير: & v_json.tinyurl & <br/>
تعيين v_json = لا شيء
٪>
<لغة البرنامج النصي = jscript runat = server>
وظيفة toobject (json) {
eval (var o = + json) ؛
العودة س ؛
}
</script>
------------------------------------------------- ------------------------------------------------- ------------------------------------------------- ------------------------------------------------- ------------------------------------------------- ------------------------------------------------ ------------------------------------------------- --------
نتائج الكود أعلاه هي كما يلي:
بيانات JSON التي تم الحصول عليها: {longurl: http:////www.vevb.com//develop//asp/v74697،status: 0 ، tinyurl: http: ///www.dwz.cn/2gggg}
الموقع الأصلي: http://www.vevb.com/develop/asp/v74697
عنوان URL القصير الذي تم الحصول عليه: http://www.dwz.cn/2ggul
ما سبق هو ببساطة كتابة مبدأ التشغيل.