Baidu URL บริการสั้น ๆ บทนำ: http://www.baidu.com/search/dwz.html
โดยทั่วไปจะถูกนำไปใช้ใน PHP ดังนั้นวิธีการใช้ ASP สำหรับการใช้งานนั้นง่ายมาก
------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ------- --------------------------------------- ----------------
<%@language = vbscript codepage = 65001%>
-
Response.charset = UTF-8
session.codepage = 65001
session.timeout = 1440
Server.ScriptTimeOut = 99999
'การซื้อกิจการระยะไกล
ฟังก์ชั่น postthttppage (posturl, postset, postdata, postreferr)
ถ้า instr (lcase (posturl), http: //) = 0 แล้ว
postthttppage = $ null $: ฟังก์ชันออก
สิ้นสุดถ้า
เมื่อเกิดข้อผิดพลาดต่อไป
สลัว posthtp
'ตั้งค่า posthttp = server.createObject (msxml2.xmlhttp)
'ตั้งค่า posthttp = server.createObject (microsoft.xmlhttp)
ตั้งค่า posthttp = server.createObject (msxml2.serverxmlhttp)
'ตั้งค่า posthttp = server.createObject (msxml2.serverxmlhttp.3.0)
'ตั้งค่า posthttp = server.createObject (msxml2.serverxmlhttp.4.0)
PONTHTTP.Settimeouts 10,000, 10,000, 15000, 15000
posthttp.open post, posturl, false
POSTHTTP.SetReqUSTHEADER ความยาวเนื้อหา LEN (POSTDATA)
POSTHTTP.SetRequestHeader ประเภทเนื้อหาแอปพลิเคชัน/x-www-form-urlencoded
Postthttp.setRequestheader ผู้อ้างอิง, postreferr
postthttp.send postdata
ถ้า posthttp.reamstate <> 4 และ posthttp.status <> 200 แล้ว
ตั้งค่า posthttp = ไม่มีอะไร
postthttppage = $ null $: ฟังก์ชันออก
สิ้นสุดถ้า
POSTHTTPPAGE = BYTESTOBSTR (POSTHTTP.RESPONSEBODY, POSTSET)
ตั้งค่า posthttp = ไม่มีอะไร
ถ้า err.number <> 0 err.clear
ถ้า postppage = หรือ isnull (posthttppage) จากนั้น posthttppage = $ null $
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น bytestobstr (body, cset)
สลัว objstream
ตั้งค่า objstream = server.createObject (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 = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
function urlencoding (datastr)
Dim Strreturn, Si, thiskr, InnerCode, Hight8, low8
strreturn =
สำหรับ si = 1 ถึง len (dataStr)
thischr = mid (datastr, si, 1)
ถ้า abs (asc (thiscr)) <& hff แล้ว
strreturn = strreturn & thiskr
อื่น
InnerCode = ASC (ThisChr)
ถ้า InnerCode <0 แล้ว
InnerCode = InnerCode + & H10000
สิ้นสุดถ้า
Hight8 = (InnerCode และ & HFF00)/ & HFF
low8 = innerCode และ & hff
strreturn = strreturn & % & 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 เว็บไซต์ต้นฉบับ: & v_json.longurl & <br/>
Response.write URL สั้น ๆ : & v_json.tinyurl & <br/>
ตั้งค่า v_json = ไม่มีอะไร
-
<script language = jscript runat = เซิร์ฟเวอร์>
ฟังก์ชั่น toobject (json) {
eval (var o = + json);
กลับ o;
-
</script>
------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ ----------------------------------------------- ------------------------------------------------------ --------
ผลลัพธ์ของรหัสด้านบนมีดังนี้:
ข้อมูล JSON ที่ได้รับ: {longurl: http:////www.vevb.com//develop//asp/v74697,Status: 0, TinyUrl: http: ///www.dwz.cn/2gggul}}
เว็บไซต์ดั้งเดิม: http://www.vevb.com/develop/asp/v74697
URL สั้น ๆ ที่ได้รับ: http://www.dwz.cn/2ggul
ข้างต้นเป็นเพียงการเขียนหลักการปฏิบัติการ