|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全xml|初学|在线不晓得人人对MSXML2.XMLHTTP是否是很熟习,不外它的功效能够说是到达了顶点.你能够经由过程它把他人的网站都"搬返来",呵呵,吹嘘啦!!
明天我就用它从腾讯网站猎取一个QQ号码的头像,在线情形(人家隐身了我也没举措).固然人人也能够猎取QQ的昵称,地点地等.详细完成办法以下:
先创建两个函数,用来处置一个URL
<%
functiongetHTTPPage(url)
dimhttp
sethttp=createobject("MSXML2.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate4then
exitfunction
endif
getHTTPPage=bytes2BSTR(Http.responseBody)
sethttp=nothing
iferr.number0thenerr.Clear
endfunction
以下处置字符
Functionbytes2BSTR(vIn)
dimstrReturn
dimi,ThisCharCode,NextCharCode
strReturn=""
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR=strReturn
EndFunction
%>
这两个函数你能够保藏起来,用途年夜得不得了.
人人能够先看看这个地点http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
(QQ是自己的,我天天都很忙,请人人盲目,呵呵,会商成绩十分接待)
以下我们就经由过程腾讯的密友查找来猎取信息,
<%
functionqqhead(qq)
url="http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no="&qq
content=getHTTPPage(url)
iflen(content)>6360then假如QQ有效,做一些处置,制止毛病产生.
content=replace(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>"
else
qqhead=""
endif
endfunction
OK了,半途而废了.如今人人只需挪用就好了.
response.writeqqhead(5292816)
假如QQ头像是黑色的,申明密友在线,灰的就是不在线.
%>
</p>asp可以轻松地实现对页面内容的动态控制,根据不同的浏览者,显示不同的页面内容。而浏览者一点觉察不出来,就像为他专门制作的页面一样。使用各种各样的组件,asp可以完成无比强大的功能。 |
|