基于ASP的六赶 ASP 友情链接查询工具.zip

本程序需要注册加载liuganExt组件(http://www.liugan.info开发)， 运行Install.bat注册组件,成功后就可以直接在ASP中使用了。 如何在ASP中使用的例子： Set obj = Server.CreateObject("liuganExt.friendLink") arr = obj.getLinks(dm) linkArr = arr(0) '获得所有友情链接并放到数组linkArr里。 linkUrl = linkArr(0)(0) '第一个友情链接的url linkText = linkArr(0)(1) '第一个友情链接的描文字 linkUrl = linkArr(1)(0) '第二个友情链接的url linkText = linkArr(1)(1) '第二个友情链接的描文字 linkUrl = linkArr(2)(0) '第三个友情链接的url linkText = linkArr(2)(1) '第三个友情链接的描文字 ....... ....... linkCount = arr(1) '友情链接数量 pagecount = arr(2) '以每页10个链接分，可以分成多少页 baiduShouLu = obj.baidu("www.liugan.info") '获得www.liugan.info的百度收录 googleShoulu = obj.gegu("www.liugan.info") '获得www.liugan.info的百度收录 baiduKuaiZhao = obj.kz("www.liugan.info") '获得www.liugan.info的百度快照 pageRank = obj.pr("www.liugan.info") '获得www.liugan.info的PR(注意这里获得的是一个含有PR的Iframe) Set obj = nothing 更多查看index.asp