Baidu Short URL Layanan Pendahuluan: http://www.baidu.com/search/dwz.html
Ini umumnya diimplementasikan dalam PHP, jadi cara menggunakan ASP untuk implementasi sebenarnya sangat sederhana.
-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- ------- ------------------------------------------- ----------------
<%@Language = vbscript codepage = 65001%>
<%
Response.charset = UTF-8
Session.codepage = 65001
Session.timeout = 1440
Server.ScriptTimeout = 99999
'Akuisisi jarak jauh
Fungsi posttppage (posturl, postset, postdata, postreferr)
If instr (lcase (posturl), http: //) = 0 lalu
Postttppage = $ null $: fungsi keluar
Akhiri jika
Pada kesalahan resume berikutnya
Posthtp redup
'Set postttp = server.CreateObject (msxml2.xmlhttp)
'Set postttp = server.createObject (microsoft.xmlhttp)
Set postttp = server.createObject (msxml2.serverxmlhttp)
'Set postttp = server.CreateObject (msxml2.serverxmlhttp.3.0)
'Set postttp = server.CreateObject (msxml2.serverxmlhttp.4.0)
Postttp.setTimeout 10000, 10000, 15000, 15000
Postttp.open post, posturl, false
Postttp.setreqUStheader konten-panjang, len (postdata)
POSTHTTP.SetRequestHeader tipe konten, aplikasi/x-www-form-urlencoded
POSTHTTP.SetRequestHeader Referer, Postreferr
Postttp.send postdata
Jika postttp.reamstate <> 4 dan postttp.status <> 200 lalu
Atur postttp = tidak ada
Postttppage = $ null $: fungsi keluar
Akhiri jika
Postttppage = bytestoBstr (posthttp.responseBody, postset)
Atur postttp = tidak ada
Jika err.number <> 0 err.clear
Jika postppage = atau isnull (postttppage) maka postttppage = $ null $
Fungsi akhir
Fungsi bytestoBstr (body, cset)
Redup objstream
Set 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
atur objstream = tidak ada
Fungsi akhir
Fungsi urlencoding (dataStr)
Redup strreturn, si, thiskr, innercode, hight8, low8
Strreturn =
Untuk si = 1 ke len (datastr)
Thischr = mid (datastr, si, 1)
Jika abs (asc (thiscr)) <& hff maka
Strreturn = Strreturn & Thiskr
Kalau tidak
InnerCode = ASC (Thischr)
Jika kode dalam <0
InnerCode = InnerCode + & H10000
Akhiri jika
Hight8 = (kode dalam dan & hff00)/ & hff
Low8 = Innercode dan & HFF
Strreturn = Strreturn & % & Hex (Hight8) & % & Hex (Low8)
Akhiri jika
Berikutnya
Urlencoding = strreturn
Fungsi akhir
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)
Data JSON yang diperoleh dengan respons.write: & v_date & <br/>
DIM V_JSON: Set V_JSON = TOObject (V_Date)
Response.Write Situs web asli: & v_json.longurl & <br/>
Response.write URL pendek: & v_json.tinyurl & <br/>
Atur v_json = tidak ada
%>
<bahasa skrip = jscript runat = server>
Function toobject (json) {
Eval (var o = + json);
Kembali o;
}
</script>
-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- --------------------------------------------------- -------------------------------------------------- --------
Hasil kode di atas adalah sebagai berikut:
JSON Data diperoleh: {longurl: http:////www.vevb.com//develop//asp/v74697,status: 0, tinyurl: http: ///www.dwz.cn/2gggul}
Situs web asli: http://www.vevb.com/develop/asp/v74697
URL pendek yang diperoleh: http://www.dwz.cn/2ggul
Di atas hanya menulis prinsip operasi.