Não sei se você está muito familiarizado com o msxml2.xmlHttp, mas suas funções podem ser consideradas no extremo. Você pode usá -lo para "mudar de volta" os sites de outras pessoas, haha, gangue !!
Hoje vou usá -lo para obter um avatar de número QQ no site da Tencent. A situação online (não posso fazer isso se alguém for invisível). Obviamente, você também pode receber o apelido de QQ, localização etc. O método de implementação específico é o seguinte:
Crie duas funções primeiro para processar um URL
A cópia do código é a seguinte:
<%
functiongethttppage (URL)
dimhttp
setthttp = createObject ("msxml2.xmlhttp")
Http.open "get", url, falso
Http.send ()
ifhttp.readyState <> 4Then
saída de saída
endif
gethttppage = bytes2bst (http.Responsebody)
setthttp = nada
iferr.number <> 0TheNerr.clear
Função final
'' '' '' '' 'Os seguintes caracteres de processamento
FunctionBytes2BStr (VIN)
DIMSTRRETURN
Dimi, ThisCharCode, NextCharCode
strreturn = ""
Fori = 1tolenb (VIN)
ThisCharcode = ASCB (MIDB (VIN, i, 1))
IfthScharcode <& h80Then
strreturn = strreturn & ch (thischarcode)
Outro
NextcharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & ch (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
Endif
Próximo
bytes2bstr = strreturn
Função final
%>
Você pode coletar essas duas funções, que são de grande utilidade.
Você pode primeiro conferir este endereço http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
(QQ é meu próprio. Estou muito ocupado todos os dias. Por favor, esteja consciente. Haha, sou muito bem -vindo para discutir questões)
Abaixo, obteremos informações através da pesquisa de amigos de Tencent.
<%
functionqqhead (qq)
url = "http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=" & qq
Content = Gethttppage (URL)
IFLEN (Conteúdo)> 6360hen'if QQ é inválido, faça algum processamento para evitar erros.
Content = Substitua (MID (Content, Instr (Content, "http://img.tencent.com"), 38), "" "," ")
qqhead = "<ahref = 'http: //friend.qq.com/cgi-bin/friend/user_show_info? ln =" & qq & "' alvo = '_ blank'> <imgsrc = '" & content & "title =' qq:" & qq & "'border =' 0 '>
outro
qqhead = ""
endif
Função final
'OK, o trabalho está feito. Agora todo mundo só precisa chamá -lo.
Response.Writeqqhead (5292816)
Se o avatar QQ for colorido, significa que o amigo está online e o cinza não está online.
%>
Você pode acessar http://www.okwest.net/books para ver o efeito. Haha.