【www.gdgbn.com--Dom教程】
网站收录查询_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,"/","")
%>
http://www.lrjz.net/" target="_blank">懒人建站 |
javascript://" onclick="if(document.all){this.style.behavior="url(#default#homepage)";this.setHomePage("http://"+document.location.host+"/"); }else{setHomePage("http://"+document.location.host+"/")}">设为首页 | http://www.o121.cn/" onclick="window.external.addFavorite(this.href,this.title);return false;" title="121网络娱乐" rel="sidebar">收藏本站 | 新空白页
站长工具-提供各类站长常用在线查询工具
仿站长站站长工具测试中,有问题或者建议请加QQ群:26022972。谢谢
站长工具
等待添加
搜素引擎收录查询
这是一个广告位
工具简介
通过本工具可以快速查询各大搜索引擎收录数量!包括:百度,谷歌,雅虎,搜狗,搜搜,有道,Altavista,Alltheweb,必应搜索,以及Google PR查询,SogouRank查询,Alexa全球综合排名,Alexa中文排名查询,域名IP地址查询。
工具导航地图
网站信息查询工具:
搜素引擎收录查询
<script language="JavaScript" src="tool.asp?d=<%=domain%>" type="text/javascript"></script>
关于我们 |
联系我们 |
http://www.111cn.net/">网页制作 |
http://christmas.111cn.net/">圣诞节素材 |
/">巴巴在线电影 |
© CopyRight 2009-2010, , Inc.All Rights Reserved.
http://www.miibeian.gov.cn">湘ICP备09022381号 | <script language="javascript" src="/stat.js"></script>
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文件
<%
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=""
overstr=""
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=">"
overstr="。"
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=""
PageCodeIP = GetHtml(PageCodeIP,startstr,overstr)
PageCodeIPa = GetHtml(PageCodeIP,"","参考数据二:")
PageCodeIP=ReplaceTest(PageCodeIPa,"",PageCodeIP)
PageCodeIP=ReplaceTest("参考数据二:"," 地理位置: ",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="获得约 "
overstr=""
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=""
overstr=""
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 = "
Response.Write "cellspacing=""1"">"
Response.Write " "
Response.Write " "&domain&" IP: "&PageCodeIP&""
Response.Write " "
Response.Write " "
Response.Write " 网址 http://"&domain&"""style=""text-decoration: "
Response.Write "underline;"" target=""_blank"">"&domain&" "&PageCodeAlexa&""
Response.Write " PageRank:
Response.Write "PR: "&PageCodepr&""" border=0> Sogou Rank:
Response.Write "href=""http://www.sogou.com/web?query=link%3A"&domain&"&num=10"" target=_blank "
Response.Write "title=""Sogou Rank: "&PageCodesr&""">"&PageCodesr&"/100 "
Response.Write " "
Response.Write ""
Response.Write "搜索引擎"
Response.Write " "
Response.Write " Google.gif"" alt=""Google"" border=""0""/>"
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write " "
Response.Write ""
Response.Write ""
Response.Write "收录数量"
Response.Write " "&PageCodebaidu&""
Response.Write " "&PageCodegoogle&""
Response.Write " "&PageCodeyahoo&""
Response.Write " "&PageCodesogou&""
Response.Write " "&PageCodesoso&""
Response.Write " "&PageCodeyoudao&""
Response.Write " "&PageCodebing&""
Response.Write ""
Response.Write ""
Response.Write " 反向链接"
Response.Write " 暂不提供"
Response.Write " 暂不提供"
Response.Write " 暂不提供"
Response.Write " 暂不提供"
Response.Write " 暂不提供"
Response.Write " 暂不提供"
Response.Write " 暂不提供"
Response.Write " "
Response.Write "";"
%>