Я не знаю, очень ли вы очень знакомы с msxml2.xmlhttp, но можно сказать, что его функции находятся на крайности. Вы можете использовать его, чтобы «вернуть» веб -сайты других людей, ха -ха, Brag !!
Сегодня я буду использовать его, чтобы получить аватар номер QQ с сайта Tencent. Ситуация в Интернете (я не могу сделать это, если кто -то невидим). Конечно, вы также можете получить прозвище QQ, местоположение и т. Д. Конкретный метод реализации заключается в следующем:
Сначала создайте две функции для обработки URL
Кода -копия выглядит следующим образом:
<%
functiongethttppage (url)
Dimhttp
setThttp = createObject ("msxml2.xmlhttp")
Http.open "Get", url, false
Http.send ()
ifhttp.readystate <> 4then
Выходная функция
эндиф
gethttppage = bytes2bstr (http.responsebody)
SETTHTTP = ничего
iferr.number <> 0thenerr.clear
конечная функция
'' '' '' '' '' Следующие обработки символов
Functionbytes2bstr (VIN)
DimStrreturn
DiMi, ThisChode, NextChode
strreturn = ""
Fori = 1tolenb (vin)
ThisChode = ASCB (MIDB (VIN, I, 1))
IfThischarcode <& H80Then
strreturn = strreturn & chr (this charcode)
Еще
NextChode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thisChode)*& h100+cint (nextcharcode))
i = i+1
Эндиф
Следующий
Bytes2bstr = strreturn
Конечная функция
%>
Вы можете собрать эти две функции, которые отлично используются.
Сначала вы можете проверить этот адрес http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
(QQ - это мое. Я очень занят каждый день. Пожалуйста, будьте осознавать. Ха -ха, я рад обсудить проблемы)
Ниже мы получим информацию через поиск друга Tencent.
<%
functionQqhead (QQ)
url = "http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=" & qq
Содержание = Gethttppage (URL)
iflen (content)> 6360then'if QQ недействителен, сделайте некоторую обработку, чтобы избежать ошибок.
content = reply (mid (content, instr (content "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>"
еще
qqhead = ""
эндиф
конечная функция
«Хорошо, работа сделана. Теперь всем просто нужно назвать это.
response.writeqqhead (5292816)
Если QQ Avatar окрашен, это означает, что друг онлайн, а серый не онлайн.
%>
Вы можете перейти на http://www.okwest.net/books, чтобы увидеть эффект. Хаха.