ASP300源码

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

下载地址

下载地址已转移到新版网站，请点击左上角-首页，在新版网站搜索此套源码的标题进行下载。