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

ID:29701
声明:本站所有资源均来源于互联网收集,仅供学习参考使用,如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。