|
网站收录查询_PageRank查询_ALEXA查询_综合查询
<%
Dim domain, Url, Url1, strPage, StrPage1
Dim xmldom, SD, SITE, dimg
domain = request.QueryString("domain")
if domain = "" then domain = ".net">www.lrjz.net"
domain=replace(domain,"http://","")
domain=replace(domain,"/","")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=domain%>_网站收录查询_PageRank查询_ALEXA查询_综合查询 - 站长工具</title>
<meta name="keywords" content="网站收录查询,PageRank查询,ALEXA查询,IP查询" />
<meta name="description" content="站长工具提供各大搜索引擎收录查询,反向链接查询和网站信息综合查询!" />
<link href="favicon.ico" type="image/x-icon" rel="shortcut icon" />
<link href="css/toolsite.css" rel="stylesheet" type="text/css" />
</head>
<body onLoad="remove_loading();">
<!--warp-->
<div class="wrap">
<!--top-->
<div class="top-nav">
<div class="top-menu">
<a href="http://www.lrjz.net/" target="_blank"><b>懒人建站</b></a> |
<a href="javascript://" onclick="if(document.all){this.style.behavior='url(#default#homepage)';this.setHomePage('http://'+document.location.host+'/'); }else{setHomePage('http://'+document.location.host+'/')}"><font color=red>设为首页</font></a> | <a href="http://www.o121.cn/" onclick="window.external.addFavorite(this.href,this.title);return false;" title='121网络娱乐' rel="sidebar">收藏本站</A> | <a href="about:blank" target="_blank" title="比直接打开IE浏览器更快、更方便！">新空白页</a>
</div>
<div class="top-nav-logo"><b>站长工具-提供各类站长常用在线查询工具</b></div>
</div>
<div class="top">
<div class="top640-480">仿站长站站长工具测试中,有问题或者建议请加QQ群：26022972。谢谢</div>
</div>
<!--menu-->
<div class="menu">
<a href="/" class="select">站长工具</a>
<a href="#" target="_blank">等待添加</a>
</div>
<!--sub_menu-->
<!--main-->
<div class="main">
<div class="box">
<div id="b_1">
<h1>搜素引擎收录查询</h1>
<div class="box1" style="text-align:center;">
<form method="get" action="" name="domainform" onSubmit="return checkDomain();">
<span class="info3" >带"www"与不带"www"的查询结果不同<br>
请输入你要查询的地址：http:// <input name="domain" type="text" autocomplete="off" onMouseOver="this.focus();this.select();" onkeypress="myhint(event,this)" onkeyup="myhint(event,this)" onmouseenter="this.focus()" onclick="if(this.value=='<%=domain%>'){this.value=''}" onblur="if(this.value==''){this.value='<%=domain%>'}" value="<%=domain%>" id="ctl00_Main_Site_Domain" class="input" style="width:300px;" />
<input name="name" type="submit" class="but" onClick="return check_code();" value="站长工具"/><br />
</span><div id="detail" class="info1">
<img src="css/loading.gif" align="absmiddle"><span>正在查询中,请稍候……</span>
</div></form></div>
<div style="border: 1px solid #BBD7E6;padding:5px;margin:10px 0px 10px 0px;background-color:#FFFFFF;" align="center">
这是一个广告位
</div>
<div class="box">
<div id="b_14">
<h1>工具简介</h1>
<div class="box1">
<span class="info2">
<p>通过本工具可以快速查询各大搜索引擎收录数量!包括:百度,谷歌,雅虎,搜狗,搜搜,有道,Altavista,Alltheweb,必应搜索,以及Google PR查询,SogouRank查询,Alexa全球综合排名,Alexa中文排名查询,域名IP地址查询。</p>
</span>
</div>
</div>
<div id="b_15">
<h1>工具导航地图</h1>
</div><div class="box1">
<span class="info2">
网站信息查询工具：
<a href="">搜素引擎收录查询</a>
</span>
</div></div>
</div><script language="JavaScript" src="tool.asp?d=<%=domain%>" type="text/javascript"></script>
<div class="bot-nav">
<a href="#" target="_blank">关于我们</a> |
<a href="#" target="_blank">联系我们</a> |
<a href="http://www.111cn.net/">网页制作</a> |
<a href="http://christmas.111cn.net/">圣诞节素材</a> |
<a href="/">巴巴在线电影</a> |
</div>
<div class="foot">
© CopyRight 2009-2010, , Inc.All Rights Reserved.
<br> <a href="http://www.miibeian.gov.cn">湘ICP备09022381号</a> | <script language="javascript" src="/stat.js"></script>
</div>
</div>
</body>
</html>
<!-- v1.0 Beat updata 2009/11/26-->
inc.asp文件
<%
Dim PageCode,PageCodes,Conn,Rs,Sqlstr,startstr,overstr,gestxt
Function GetHtml(PageCode,startstr,overstr)
Dim start,over
If InStr(PageCode,startstr) > 0 And InStr(PageCode,overstr) > 0 Then
start=Instr(1,PageCode,startstr,vbBinaryCompare)+len(startstr)
over=Instr(start,PageCode,overstr,vbBinaryCompare)-start
GetHtml=Mid(PageCode,start,over)
Else
GetHtml =0
End If
End Function
'==========================================
'正则表达式函数区
'==========================================
Function ReplaceTest(patrn,replStr,str)
Dim regEx,str1
str1=str
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
ReplaceTest = regEx.Replace(str1,replStr)
End Function
Function RegExpTest(patrn, strng)
Dim regEx, Matchs, Matches, RetStr
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
For Each Matchs in Matches
RetStr = RetStr & Matchs.Value & "||"
Next
RegExpTest = RetStr
End Function
'==========================================
'采集函数区
'==========================================
'获取页面源代码函数
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Then
Response.Write("请输入网址！")
Exit Function
End If
Dim Http
Set Http=server.createobject("MSX"&"ML2.XML"&"HTTP")
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing
response.Write("该网页无法访问！")
Exit function
End if
GetHttpPage=BytesToBSTR(Http.responseBody,"GB2312")
Set Http=Nothing
If Err.number<>0 then
Err.Clear
Response.Write(DanlanseCloseStr)
Response.End()
End If
End Function
'转换编码函数
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adod"&"b.stream")
Objstream.Type = 1
Objstream.Mode =3
Objstream.Open
Objstream.Write body
Objstream.Position = 0
Objstream.Type = 2
Objstream.Charset = Cset
BytesToBstr = Objstream.ReadText
Objstream.Close
set Objstream = nothing
End Function
%>
tool.asp文件
<!--#Include File="inc.asp"-->
<%
Dim domain
domain = Request("d")
domain = replace(domain,"http://","")
domain = replace(domain,"","")
if domain = "" then domain = "www.lrjz.net"
%>
<%
Mubiaopr="php?url="&domain">http://www.lrjz.net/GooglePr.php?url="&domain&""
PageCodepr=GetHttpPage(Mubiaopr)
startstr="<b>"
overstr="</b>"
PageCodepr = GetHtml(PageCodepr,startstr,overstr)
PageCodepr=ReplaceTest("","",PageCodepr)
%>
<%
Mubiaosr="http://www.sogou.com/web?query="&domain&""
PageCodesr=GetHttpPage(Mubiaosr)
startstr="搜狗评级:"
overstr="/100"
PageCodesr = GetHtml(PageCodesr,startstr,overstr)
PageCodesr=ReplaceTest("","",PageCodesr)
%>
<%
MubiaoAlexa="http://alexa.chinaz.com/Index.asp?domain="&domain&""
PageCodeAlexa=GetHttpPage(MubiaoAlexa)
startstr="></font></b>"
overstr="。</div>"
PageCodeAlexa = GetHtml(PageCodeAlexa,startstr,overstr)
PageCodeAlexa=ReplaceTest("#FFFF00","#22ac38",PageCodeAlexa)
%>
<%
MubiaoIP="ps.asp?ip="&domain">http://www.ip138.com/ips.asp?ip="&domain&""
PageCodeIP=GetHttpPage(MubiaoIP)
startstr=">>"
overstr="</li></ul></td>"
PageCodeIP = GetHtml(PageCodeIP,startstr,overstr)
PageCodeIPa = GetHtml(PageCodeIP,"</font>","参考数据二：")
PageCodeIP=ReplaceTest(PageCodeIPa,"",PageCodeIP)
PageCodeIP=ReplaceTest("</font>参考数据二："," 地理位置: ",PageCodeIP)
%>
<%
baidusite="http://www.baidu.com/s?wd=site%3A"&domain&""
PageCodebaidu=GetHttpPage(baidusite)
startstr="找到相关网页"
overstr="篇"
PageCodebaidu = GetHtml(PageCodebaidu,startstr,overstr)
PageCodebaidu = ReplaceTest("约","",PageCodebaidu)
%>
<%
googlesite="http://www.google.cn/search?oe=gb2312&q=site%3A"&domain&""
PageCodegoogle=GetHttpPage(googlesite)
startstr="获得约 <b>"
overstr="</b>"
PageCodegoogle = GetHtml(PageCodegoogle,startstr,overstr)
PageCodegoogle = ReplaceTest("","",PageCodegoogle)
%>
<%
yahoosite="http://sitemap.cn.yahoo.com/search?p=http%3A%2F%2F"&domain&""
PageCodeyahoo=GetHttpPage(yahoosite)
startstr="<strong>"
overstr="</strong>"
PageCodeyahoo = GetHtml(PageCodeyahoo,startstr,overstr)
PageCodeyahoo = ReplaceTest("","",PageCodeyahoo)
%>
<%
sogousite="http://www.sogou.com/web?query=site%3A"&domain&""
PageCodesogou=GetHttpPage(sogousite)
startstr="resultbarnum:"
overstr="-->"
PageCodesogou = GetHtml(PageCodesogou,startstr,overstr)
PageCodesogou = ReplaceTest("","",PageCodesogou)
%>
<%
sososite="http://www.soso.com/q?pid=s.idx&w=site%3A"&domain&""
PageCodesoso=GetHttpPage(sososite)
startstr="搜索到约"
overstr="项结果"
PageCodesoso = GetHtml(PageCodesoso,startstr,overstr)
PageCodesoso = ReplaceTest("","",PageCodesoso)
%>
<%
youdaosite="http://www.youdao.com/search?q=site%3A"&domain&""
PageCodeyoudao=GetHttpPage(youdaosite)
startstr="RESULT_NO="
overstr=" DURATION="
PageCodeyoudao = GetHtml(PageCodeyoudao,startstr,overstr)
PageCodeyoudao = ReplaceTest("","",PageCodeyoudao)
%>
<%
bingsite="http://www.bing.com/search?q=site%3A"&domain&"&mkt=en-us"
PageCodebing=GetHttpPage(bingsite)
startstr="of "
overstr=" results"
PageCodebing = GetHtml(PageCodebing,startstr,overstr)
PageCodebing = ReplaceTest("","",PageCodebing)
%>
<%
Response.Write "document.getElementById('detail').innerHTML = '<table class=""seo"" cellpadding=""5"" "
Response.Write "cellspacing=""1"">"
Response.Write " <tr class=""seo_head"" align=""center"">"
Response.Write " <td colspan=""8"">"&domain&" IP: "&PageCodeIP&"</td>"
Response.Write " </tr>"
Response.Write " <tr class=""seo_head"" align=""center"">"
Response.Write " <td colspan=""8"">网址 <A href=""http://"&domain&"""style=""text-decoration: "
Response.Write "underline;"" target=""_blank"">"&domain&"</A> "&PageCodeAlexa&""
Response.Write " PageRank: <img src=""googleimg/pagerank"&PageCodepr&".gif"" title=""Google "
Response.Write "PR: "&PageCodepr&""" border=0> Sogou Rank: <a "
Response.Write "href=""http://www.sogou.com/web?query=link%3A"&domain&"&num=10"" target=_blank "
Response.Write "title=""Sogou Rank: "&PageCodesr&"""><b>"&PageCodesr&"</b></a>/100 </td>"
Response.Write " </tr>"
Response.Write "<tr class=""seo_item"">"
Response.Write "<td width=""16%""><font color=""#0269AC"">搜索引擎</font></td>"
Response.Write " <td width=""12%""><img src=""icon/icon_baidu.gif"" alt=""Baidu"" border=""0""/></td>"
Response.Write " <td width=""12%""><img src=""icon/icon_Google.gif"" alt=""Google"" border=""0""/></td>"
Response.Write " <td width=""12%""><img src=""icon/icon_Yahoo.gif"" alt=""Yahoo"" border=""0""/></td>"
Response.Write " <td width=""12%""><img src=""icon/icon_sohu.gif"" alt=""Sogou"" border=""0""/></td>"
Response.Write " <td width=""12%""><img src=""icon/icon_qq.gif"" alt=""Soso"" border=""0""/></td> "
Response.Write " <td width=""12%""><img src=""icon/icon_yodao.gif"" alt=""Yodao"" border=""0""/></td>"
Response.Write " <td width=""12%""><img src=""icon/icon_bing.gif"" alt=""Bing"" border=""0""/></td>"
Response.Write "</tr>"
Response.Write "<tr class=""seo_item"">"
Response.Write "<td width=""16%""><font color=""#0269AC"">收录数量</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=baidu>"&PageCodebaidu&"</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=google>"&PageCodegoogle&"</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=yahoo>"&PageCodeyahoo&"</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=sogou>"&PageCodesogou&"</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=soso>"&PageCodesoso&"</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=youdao>"&PageCodeyoudao&"</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=bing>"&PageCodebing&"</font></td>"
Response.Write "</tr>"
Response.Write "<tr class=""seo_item"">"
Response.Write " <td width=""16%""><font color=""#0269AC"">反向链接</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=sogous>暂不提供</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=sogous>暂不提供</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=sogous>暂不提供</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=sogous>暂不提供</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=sogous>暂不提供</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=sogous>暂不提供</font></td>"
Response.Write " <td width=""12%""><font face=""Verdana, Arial, Helvetica, sans-serif"" ID=sogous>暂不提供</font></td>"
Response.Write " </tr>"
Response.Write "</table>';"
%>
|
