No sé si está muy familiarizado con MSXML2.xmlhttp, pero se puede decir que sus funciones están en extremo. ¡Puede usarlo para "retroceder" los sitios web de otras personas, jaja, presumir!
Hoy lo usaré para obtener un avatar de número QQ del sitio web de Tencent. La situación en línea (no puedo hacerlo si alguien es invisible). Por supuesto, también puede obtener el apodo de QQ, la ubicación, etc. El método de implementación específico es el siguiente:
Cree dos funciones primero para procesar una URL
La copia del código es la siguiente:
<%
functiongethttppage (URL)
dimhttp
setThttp = createObject ("msxml2.xmlhttp")
Http.open "Get", URL, falso
Http.send ()
ifhttp.readyState <> 4then
extinción
endif
gethttppage = bytes2bstr (http.ResponseBody)
setthttp = nada
iferr.number <> 0thenerr.Clear
Función final
'' '' '' '' 'Los siguientes caracteres de procesamiento
Functionbytes2bstr (vin)
dimstrreturn
Dimi, ThisCharCode, NextCharCode
strreturn = ""
Fori = 1TolenB (vin)
ThisCharCode = ASCB (MidB (Vin, I, 1))
Ifthischarcode <& h80Then
strreturn = strreturn & chr (thisCharcode)
Demás
Nextcharcode = ascb (midb (vin, i+1,1))
strreturn = strreturn & chr (clng (thisCharCode)*& H100+cint (nextcharcode)))
i = i+1
Endif
Próximo
bytes2bstr = strreturn
Función final
%>
Puede recopilar estas dos funciones, que son de gran utilidad.
Primero puede consultar esta dirección http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
(QQ es mío. Estoy muy ocupado todos los días. Por favor, sé consciente. Jaja, soy bienvenido a discutir temas)
A continuación obtendremos información a través de la búsqueda de amigos de Tencent.
<%
functionqqhead (QQ)
url = "http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=" & Qq
contenido = gethttppage (url)
Iflen (contenido)> 6360Then'i QQ no es válido, realice un procesamiento para evitar errores.
Content = reemplazar (Mid (contenido, instr (contenido, "http://img.tencent.com"), 38), "" "," ")
qqhead = "<ahref = 'http: //friend.qq.com/cgi-bin/friend/user_show_info? ln =" & qq & "' target = '_ blank'> <imgsrc = '" & content & "' title = 'qq:" & qq & "' border = '0'> </a>"
demás
qqhead = ""
endif
Función final
'Ok, el trabajo está hecho. Ahora todos solo necesitan llamarlo.
Response.Writeqqhead (5292816)
Si el avatar QQ está coloreado, significa que el amigo está en línea y el gris no está en línea.
%>
Puede ir a http://www.okwest.net/books para ver el efecto. Ja ja.