Saya tidak tahu apakah Anda sangat akrab dengan msxml2.xmlhttp, tetapi fungsinya dapat dikatakan ekstrem. Anda dapat menggunakannya untuk "memindahkan" situs web orang lain, haha, sesumbar !!
Hari ini saya akan menggunakannya untuk mendapatkan avatar nomor QQ dari situs web Tencent. Situasi online (saya tidak bisa melakukannya jika seseorang tidak terlihat). Tentu saja, Anda juga bisa mendapatkan nama panggilan QQ, lokasi, dll. Metode implementasi spesifik adalah sebagai berikut:
Buat dua fungsi terlebih dahulu untuk memproses URL
Salinan kode adalah sebagai berikut:
<%
functionGetHttppage (URL)
DIMHTTP
setthttp = createObject ("msxml2.xmlhttp")
Http.open "get", url, false
Http.send ()
ifhttp.readystate <> 4then
fungsi keluar
endif
getHttppage = bytes2btr (http.responseBody)
setthttp = tidak ada
iferr.number <> 0thenerr.clear
fungsi endfungsi
'' '' '' '' 'Karakter pemrosesan berikut
FunctionBytes2BTR (VIN)
Dimstrreturn
DIMI, Kode ini, NextCharcode
strreturn = ""
Fori = 1TolenB (VIN)
Kode ini = ASCB (midb (vin, i, 1))
Ifthischarcode <& H80then
Strreturn = Strreturn & CHR (Kode ini)
Kalau tidak
NextCharCode = ASCB (midb (vin, i+1,1)))
Strreturn = Strreturn & Chr (Clng (ThisCharcode)*& H100+CINT (NextCharCode))
i = i+1
Endif
Berikutnya
BYTES2BSTR = Strreturn
Fungsi endfungsi
%>
Anda dapat mengumpulkan dua fungsi ini, yang sangat bermanfaat.
Anda pertama-tama dapat memeriksa alamat ini http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
(QQ adalah milik saya. Saya sangat sibuk setiap hari. Harap sadar. Haha, saya sangat dipersilakan untuk membahas masalah)
Di bawah ini kami akan mendapatkan informasi melalui pencarian teman Tencent.
<%
functionqqhead (qq)
url = "http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=" & qq
konten = getHttppage (url)
iflen (konten)> 6360then'if qq tidak valid, lakukan beberapa pemrosesan untuk menghindari kesalahan.
konten = ganti (mid (konten, instr instr (konten, "http://img.tencent.com"), 38), "" "," ")
qqhead = "<ahref = 'http: //friend.qq.com/cgi-bin/friend/user_show_info? ln =" & qq & "' target = '_ blank'> <imgsrc = '" & konten & "' title = 'qq:" & qq & "' '0'> </a &" 'title =' qq: "& qq &" '' 0 '> </a/"'
kalau tidak
qqhead = ""
endif
fungsi endfungsi
'Oke, pekerjaan sudah selesai. Sekarang semua orang hanya perlu menyebutnya.
Response.WriteQQhead (5292816)
Jika qq avatar diwarnai, itu berarti teman online, dan yang abu -abu tidak online.
%>
Anda dapat pergi ke http://www.okwest.net/books untuk melihat efeknya. Ha ha.