msxml2.xmlhttpに非常に精通しているかどうかはわかりませんが、その機能は極端にあると言えます。それを使用して、他の人のウェブサイト、ハハ、自慢して「戻る」ことができます!!
今日は、Tencent WebサイトからQQ番号アバターを取得するために使用します。オンラインの状況(誰かが見えない場合はできません)。もちろん、QQニックネーム、場所などを取得することもできます。特定の実装方法は次のとおりです。
最初に2つの関数を作成して、URLを処理します
コードコピーは次のとおりです。
<%
functiongethttppage(url)
dimhttp
setthttp = createObject( "msxml2.xmlhttp")
http.open "get"、url、false
http.send()
ifhttp.ReadyState <> 4then
exitFunction
endif
gethttppage = bytes2bstr(http.responsebody)
setthttp =何もない
iferr.number <> 0thenerr.clear
エンド機能
'' '' '' ''次の処理文字
functionbytes2bstr(vin)
dimstrreturn
Dimi、このCharcode、Next Charcode
strreturn = ""
fori = 1tolenb(vin)
thischarcode = ascb(midb(vin、i、1))
ifthischarcode <&h80then
strreturn = strreturn&chr(thischarcode)
それ以外
NextCharcode = ascb(midb(vin、i+1,1))
strreturn = strreturn&chr(clng(thischarcode)*&h100+cint(nextcharcode)))
i = i+1
endif
次
bytes2bstr = strreturn
エンド機能
%>
これらの2つの機能を収集できますが、これは非常に有用です。
最初にこのアドレスをチェックしてくださいhttp://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
(QQは私自身のものです。私は毎日とても忙しいです。意識してください。
以下に、Tencentの友人検索を通じて情報を取得します。
<%
functionqqhead(qq)
url = "http://friend.qc.com/cgi-bin/friend/oicq_find?oicq_no="&qq
content = gethttppage(url)
iflen(content)> 6360then'if qqは無効です。エラーを回避するために処理を行います。
content = fack(mid(content、strun)(content、 "http://img.tencent.com")、38)、 "" "、" ")
qqhead = "<ahref = 'http://friend.qq.com/cgi-bin/friend/user_show_info?ln ="&qq& "'ターゲット= '_ blank'> <imgsrc = '"& "' title = 'qq:"&qq& "' border = '0
それ以外
qqhead = ""
endif
エンド機能
「わかりました、仕事は終わりました。今、誰もがそれを呼ぶ必要があります。
respons.writeqqhead(5292816)
QQアバターが着色されている場合、友人がオンラインであり、灰色のアバターがオンラインではないことを意味します。
%>
http://www.okwest.net/booksにアクセスして、効果を確認できます。ハハ。