Je ne sais pas si vous connaissez très bien MSXML2.XMLHTTP, mais ses fonctions peuvent être considérées comme à l'extrême. Vous pouvez l'utiliser pour "reculer" les sites Web des autres, haha, vantaire !!
Aujourd'hui, je vais l'utiliser pour obtenir un Avatar de numéro QQ sur le site Web de Tencent. La situation en ligne (je ne peux pas le faire si quelqu'un est invisible). Bien sûr, vous pouvez également obtenir le surnom QQ, l'emplacement, etc. La méthode de mise en œuvre spécifique est la suivante:
Créez d'abord deux fonctions pour traiter une URL
La copie de code est la suivante:
<%
FonctionGethTTPPAGE (URL)
dimhttp
setTHTP = createObject ("msxml2.xmlhttp")
Http.open "get", URL, faux
Http.send ()
ifhttp.readystate <> 4Then
sortie
endire
GethTTPPAGE = BYTES2BSTR (Http.ResponseBody)
setTHTP = rien
iferr.number <> 0TheRerr.Clear
finition de fin
'' '' '' '' 'Les caractères de traitement suivants
FunctionBytes2BSTR (VIN)
dimstrreturn
Dimi, ThisCharcode, NextCharcode
strreturn = ""
Fori = 1Tolenb (vin)
ThisCharcode = ASCB (midb (vin, i, 1))
Ifthischarcode <& h80Then
Streturn = Strreturn & Chr (ThisCharcode)
Autre
NextCharcode = ASCB (Midb (Vin, I + 1,1))
Streturn = Streturn & Chr (Clng (ThisCharcode) * & H100 + Cint (NextCharcode))
i = i + 1
Endire
Suivant
bytes2bstr = STRRETURN
Finition de fin
%>
Vous pouvez collecter ces deux fonctions, qui sont très utiles.
Vous pouvez d'abord consulter cette adresse http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
(QQ est le mien. Je suis très occupé tous les jours.
Ci-dessous, nous obtiendrons des informations via la recherche d'amis de Tencent.
<%
functionqqhead (qq)
url = "http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=" & qq
Contenu = Gethttppage (URL)
iflen (contenu)> 6360THEN'IF QQ n'est pas valide, faites un traitement pour éviter les erreurs.
Content = remplacer (mid (contenu, instant (contenu, "http://img.tencent.com"), 38), "" "," ")
qqhead = "<ahref = 'http: //friend.qq.com/cgi-bin/friend/user_show_info? ln =" & qq & "' cible = '_ Blank'> <imgsrc = '" & contenu & "' title = 'qq:" & qq & "border =' 0 '> </a>"
autre
qqhead = ""
endire
finition de fin
«OK, le travail est terminé. Maintenant, tout le monde a juste besoin de l'appeler.
Response.WriteQQhead (5292816)
Si l'avatar QQ est coloré, cela signifie que l'ami est en ligne et le gris n'est pas en ligne.
%>
Vous pouvez vous rendre sur http://www.okwest.net/books pour voir l'effet. Haha.