本文讲一下asp读取网站alexa排名的方法,都是抓取远程服务器的数据实现。开始查看显示排名的那两页。 以下为引用的内容: 分析了一下前后的代码,发现数据后面的</td><td class="bodybold" align="center" bgcolor="#ffffff"><img这段代码是唯一的,于是开始编程工作。 下面的源代码示例,供大家参考: 以下为引用的内容: dim i, thischrcode, nextchrcode strreturn = "" for i = 1 to lenb(vin) thischrcode = ascb(midb(vin, i, 1)) if thischrcode < !amp;h80 then strreturn = strreturn !amp; chr(thischrcode) else nextchrcode = ascb(midb(vin, i + 1, 1)) strreturn = strreturn !amp; chr(clng(thischrcode) * !amp;h100 + cint(nextchrcode)) i = i + 1 end if next bytes2bstr = strreturn end function function geturl(url) set retrieval = server.createobject("microsoft.xmlhttp") with retrieval。open "get", url, false, "", ""。send geturl = .responsetext geturl = bytes2bstr(。responsebody) end with set retrieval = nothing end function 以上是使用xmlhttp读取页面代码的通用代码 function getalexarank(url) on error resume next dim tempstr,trueurl,x,keystr trueurl = "http://www.alexa.com/data/details/traffic_details@q=!amp;url=" !amp; url tempstr=geturl(trueurl) keystr = "</td><td class=""bodybold"" align=""center"" bgcolor=""#ffffff""><img" tempstr = split(tempstr,keystr)(0) x = instrrev(tempstr,">") + 1 tempstr = mid(tempstr,x) if err then getalexarank=err.description err.clear else getalexarank=tempstr end if end function
%> 嘿嘿,以后公司的相关网站排名,就不用再一个一个去查了,只需要把那些网站依此放在程序里,就可以让程序一个一个的读出来了。 |