ASP link Check tool source download

ASP link Check tool source download
<%
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)

' Function implementation
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 ("Format error 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
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 = "Domain name format error"
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& "" "> </span></td> "
linklist = linklist & "<td><span id=" "Spn_kz_" &k& "" "> </span> <b>|</b> <span id= "" Spn_baidu_ "&k&" "></span></td> "
linklist = linklist & "<td><span id=" "Spn_guge_" &k& "" "class=" "PR" "></span> <b class=" "PR" ">&nbsp;|&nbsp;</b>" &AMP;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

' Pagination list
PageList = "<div style=" "text-align:center;margin-top:8px" > Total <b> "&linkCount&" </b> External links, points <b> "&pageCount&" </b> page Show section "
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 & "Page </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 "" > "% >
<title> Links Inspection Tools </title>
<meta name= "keywords" content= "friendship link"/>
<meta name= "description" content= "Tools to check Links"/>
<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>
<body>
<div style= "Text-align:center" >
<form method= "Get" action= "./" >
<b> to check the links of the website </b> http://<input type= "text" name= "D" size= "" value= "<%=dm%>" id= "FCS"/> <input type= "Submit" value= "Check link" >
</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%> External links </th>
<tr><td> External links </td><td> interconnect </td><td>baidu snapshots/</td><td>google included/PR </td><td> Other data </td></tr>
<%=linkList%>
</table>
</div>
<%=pageList%>
<%end if%>
<div>
</div>
<script type= "Text/javascript" defer>
$ (' FCS '). focus ();
</script>
</body>