asp 友情链接检查工具源码下载

asp 友情链接检查工具源码下载
<%
If not isEmpty(Request.Querystring("d")) Then
 dm = Request.Querystring("d")

 Set obj = Server.CreateObject("liuganExt.friendLink")
 arr = obj.getLinks(dm)
 linkArr = arr(0)
 linkCount = arr(1)
 pagecount = arr(2)

 '功能实现
 If not isEmpty(Request.Querystring("f")) Then
  fn = Request.Querystring("f")
  u = Request.Querystring("u")
  
  set re = new RegExp
  re.pattern = "http://([^/]+).*"
  If re.test(u) Then
   dm2 = re.execute(u)(0).subMatches(0)
  Else
   Response.Write("格式错误1")
   Response.End
  End If
  set re = nothing

  If fn="wl" Then
   dm2 = dm
  End If

  execute("rt=obj."&fn&"("""&dm2&""","""&u&""")")
  set obj = nothing
  Response.Write(rt)
  Response.End
 End If
 
 '页面
 page = Request.Querystring("p")
 If page<>"" Then
  page = int(page)
 Else
  page = 1
 End If
 offset = (page-1)*10 +1
 limit = offset +9
 
 linkList = ""

 For k=offset To limit
  If k>UBound(linkArr) Then
   Exit For
  End If

  linkUrl = linkArr(k)(0)
  linkText = linkArr(k)(1)

  set re = new RegExp
  re.pattern = "http://([^/]+).*"
  If re.test(linkUrl) Then
   linkDomain = re.execute(linkUrl)(0).subMatches(0)
  Else
   linkDomain = "域名格式错误"
  End If
  set re = nothing

  linkList = linkList & "<tr><td class=""l"" title="""&linkUrl&""">"&gs(linkUrl,25)&" ("&linkText&")</td>"
  linkList = linkList & "<td><span id=""spn_wl_"&k&"""><img src=""linkimg/load.gif"" /></span></td>"
  linkList = linkList & "<td><span id=""spn_kz_"&k&"""><img src=""linkimg/load.gif"" /></span> <b>|</b> <span id=""spn_baidu_"&k&"""><img src=""linkimg/load.gif"" /></span></td>"
  linkList = linkList & "<td><span id=""spn_guge_"&k&""" class=""pr""><img src=""linkimg/load.gif"" /></span> <b class=""pr"">&nbsp;|&nbsp;</b> "&obj.pr(linkDomain,none)&"</td>"
  linkList = linkList & "<td><a href=""http://www.liugan.info/"&linkDomain&""">"&linkDomain&"</a></td></tr>" & vbCrLf
  linkList = linkList & "<script type=""text/javascript"">" & vbCrLf
  linkList = linkList & "load('"&dm&"','wl','"&linkUrl&"','spn_wl_"&k&"');" & vbCrLf
  linkList = linkList & "load('"&dm&"','kz','"&linkUrl&"','spn_kz_"&k&"');" & vbCrLf
  linkList = linkList & "load('"&dm&"','guge','"&linkUrl&"','spn_guge_"&k&"');" & vbCrLf
  linkList = linkList & "load('"&dm&"','baidu','"&linkUrl&"','spn_baidu_"&k&"');" & vbCrLf
  linkList = linkList & "</script>"

 Next

 '分页列表
 pageList = "<div style=""text-align:center;margin-top:8px"">共<b>"&linkCount&"</b>个外部友情链接，分<b>"&pageCount&"</b>页显示 第"
 For p=1 To pageCount
  If page = p Then
   pageList = pageList & " <b>" & p & "</b>"
  Else
   pageList = pageList & " <a href=""?d="&dm&"&p="&p&""">" & p & "</a>"
  End If
 Next
 pageList = pageList & "页</div>"

 set re = nothing
 set obj = nothing

End If

Function gs(str,strlen)
 dim l,t,c, i
 strlen = strlen + 2
 l = len(str)
 t = 0
 for i = 1 to l
  c = Abs(Asc(Mid(str,i,1)))
  if c > 255 then
   t = t + 2
  else
   t = t + 1
  end if
  if t >= strlen then
   gs = left(str,i-2)&"..."
   exit for
  else
   gs = str
  end if
 next
End function
%>
<%="<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"">"%>
<html>
<head>
<title>友情链接检查工具</title>
<meta name="keywords" content="友情链接" />
<meta name="description" content="检查友情链接情况的工具" />
<script type="text/javascript">
<!--
function $(id){
 return document.getElementById(id);
}

function GetXMLHttp()
{
    var xmlhttp=false;
   
    try
    {
        xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
    }
    catch (e)
    {
        try
        {
            xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
        }
        catch (E)
        {
            xmlhttp = false;
        }
    }
    if (!xmlhttp && typeof XMLHttpRequest!='undefined') {
       xmlhttp = new XMLHttpRequest();
    }
   
    return xmlhttp;
}

function load(dm,fn,ur,ps){
    var xmlhttp = GetXMLHttp();
    var url='./?d='+dm+'&f='+fn+'&u='+ur+'&t='+Math.random();
    var div = $(ps);
    xmlhttp.open("GET",url,true);
    xmlhttp.onreadystatechange=function()
    {
        if (xmlhttp.readyState==4)
        {
            div.innerHTML = xmlhttp.responseText;
        }
    }
    xmlhttp.send();
}

//-->
</script>
<style type="text/css">
body{font-size:12px;color:#333;font-family:Verdana, Arial, Helvetica, sans-serif;padding:0;margin:0;}
body{margin-top:10px}
table{background:#799AE1}
td{background:#FFFFFF;text-align:center;padding:5px}
.l{background:#FFFFFF;text-align:left}
.pr{float:left;height:20px;line-height:20px;}
</style>
</head>
<body>
<div style="text-align:center">
<form method="get" action="./">
<b>要检查友情链接的网站</b> http://<input type="text" name="d" size="30" value="<%=dm%>" id="fcs"/> <input type="submit" value="查链接">
</form>
</div>
<%If dm<>"" Then%>
<div style="margin-top:10px">
<table border="0" cellpadding="5" cellspacing="1" class="tb" align="center">
 <th align="left"><%=dm%>的外部链接</th>
 <tr><td>外部链接</td><td>互连</td><td>Baidu快照/收录</td><td>Google收录/PR</td><td>其他数据</td></tr>
 <%=linkList%>
</table>
</div>
<%=pageList%>
<%End If%>
<div>
</div>
<script type="text/javascript" defer>
 $('fcs').focus();
</script>
</body>
</html>

时间： 2024-07-29 11:45:25

asp 友情链接检查工具源码下载的相关文章

DotNet4应用程序打包工具-&gt;升级版【三】宿主程序分析+全部源码下载

索引 DotNet4应用程序打包工具->升级版[三]宿主程序分析+全部源码下载 DotNet4应用程序打包工具->升级版[二]安装工具分析 DotNet4应用程序打包工具(把DotNet4安装程序打包进你的应用程序:WINAPI开发,无dotNet环境也可顺利执行)[一]整体思路   废话少说 入口函数 入口函数是所有逻辑的集合体 int WinMain(HINSTANCE hInstance,HINSTANCE hPreInstance,LPSTR lpCmdLine,int nCmdSho

winform天气预报小工具（附源码下载）_C#教程

所以我们要添加web引用共两个 1.根据IP地址获取你所在城市(假如没有这个,而直接引用相关网站提供的webservice,你所在的地点可能不是很准确,假如,你用了路由器....等,不知道大家是有同感) 2.根据上一部获取的城市,调用获取天气数据的webservice 贴取部分代码: 复制代码 代码如下: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data;

开源Asp.Net MVC网上商城BrnShop正式发布，提供源码下载(非官方文章)

BrnShop网上商城是以Asp.Net mvc3为基础开发的网上商城,源代码完全开源(企业版的源代码目前还没有完全整理完成,一旦整理完成也全部开源). 源码下载地址: asp.net(c#)开源商店系统Brn shop 1.9(免费仿京东商城) asp.net(c#)开源商店系统Brn shop 2.1(免费仿京东商城) 项目结构图如下: 后台管理页面: 功能简介: 1 基本数据:品牌,分类,属性(有些属性用作sku,有些属性还要提供商品筛选功能). 2 商品属性:商品图库,商品属性列表,商品

动手写一个Remoting接口测试工具（附源码下载）

      基于.NET开发分布式系统,经常用到Remoting技术.在测试驱动开发流行的今天,如果针对分布式系统中的每个Remoting接口的每个方法都要写详细的测试脚本,无疑非常浪费时间.所以,我想写一个能自动测试remoting接口的小工具InterfaceTester.而且,当分布式系统中的某个remoting接口出现bug时,该小工具可以提交需要模拟的数据,以便在调试remoting服务的环境中,快速定位和解决bug. InterfaceTester运行起来后的效果如下图:      

秋色园QBlog技术原理解析：博客一键安装工具技术实现[附源码下载]

曾经在:秋色园QBlog V2.5 后台管理系统源码发布下载 一文中,有网友 parabeyond 留言: 秋天哥问下 秋色园将完了吗  可以介绍下 一键安装工具 是怎么实现的吗 想学 本人答复: 引用parabeyond:秋天哥问下 秋色园将完了吗  可以介绍下 一键安装工具 是怎么实现的吗 想学 想学啊,好,改天写一篇文章分享下源码和知识!   既然答应了,今天就为大伙分享一下 路过秋天版博客一键安装工具.exe 的技术原理.   一:秋色园QBlog 一键安装工具的界面   1:web.c

通用社区登陆组件技术分享（开源）下篇：OAuth 源码下载及原理解说

上节内容: 1:通用社区登陆组件技术分享(开源)上篇:OAuth 授权登陆介绍 2:通用社区登陆组件技术分享(开源)中篇:OAuth 登陆组件流程及组件集成方法   本节内容: 1:简述组件设计的过程及思路及部分重点源码讲解 2:源码下载 3:扩展机制说明  附源码截图:等会看以下思路时,可以对照着看:   一:简述组件设计的过程及思路   1:为什么想到弄成组件? 当重复的代码或相似的事件>=2个时,我都会想一下,是否还可能有第3个,第4个相近的,如果有,就会统一处理,组件就是设计的再通用一些

《Android的设计与实现：卷I》——第1章　1.3Android源码下载和编译

1.3 Android源码下载和编译 Android源码的开发需要Linux环境,读者可以安装Ubuntu 10.04及其后续版本,推荐安装Ubuntu的10.04或者12.04这两个LTS(长期技术支持)版本.本书基于Jelly Bean(Android 4.1)分析源代码,该部分源代码的编译需要64位操作系统环境.本节将介绍如何在Ubuntu 12.04(LTS)-64bit上搭建Android源码开发所需环境,这是保障后续步骤能够顺利进行的前提条件,必须准确无误.Android源码分成上层

CYQ.Data.Orm.DBFast 新增类介绍（含类的源码及新版本配置工具源码）

前言: 以下功能在国庆期就完成并提前发布了,但到今天才有时间写文介绍,主要是国庆后还是选择就职了,悲催的是上班的地方全公司都能上网,唯独开发部竟不让上网,是个局域网. 也不是全不能上,房间里有三台能上网的机子(两台笔记本+一台台式机),下载资料还得用公司的U盘再转到自己电脑,这种半封闭的环境,相当的让人不适应,有种欲仰天吐血的感觉. 这一周我都向三个带总的领导反映了上网问题,不过没啥响应,估计是没戏. 于是我只有把其中一台能上网的笔记本拿到自己桌子上去独自占用了,勉强也能上下网了,不过基于安全问

Android自定义UI手势密码改进版源码下载_Android

在之前文章的铺垫下,再为大家分享一篇:Android手势密码,附源码下载,不要错过. 源码下载:http://xiazai.jb51.net/201610/yuanma/androidLock(jb51.net).rar 先看第一张图片的布局文件 activity_main.xml <LinearLayout xmlns:android="http://schemas.android.com/apk/res/android" xmlns:tools="http://sc