本程序需要注册加载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