搜素引擎收录查询

   

   

 带"www"与不带"www"的查询结果不同

    请输入你要查询的地址：http://  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="" /> 
                      

   

        正在查询中,请稍候……
   

 

 

这是一个广告位
 

 

   

   

工具简介

   

     
     

通过本工具可以快速查询各大搜索引擎收录数量!包括:百度,谷歌,雅虎,搜狗,搜搜,有道,Altavista,Alltheweb,必应搜索,以及Google PR查询,SogouRank查询,Alexa全球综合排名,Alexa中文排名查询,域名IP地址查询。

     
   

  

  

  

工具导航地图

  

     
      网站信息查询工具：
   搜素引擎收录查询
 
     
  

  

  

   关于我们 |
   联系我们 |
   http://www.111com.net/">网页制作 |
   http://christmas.111com.net/">圣诞节素材 |
   /">巴巴在线电影 |
  

  
  

     © CopyRight 2009-2010, , Inc.All Rights Reserved.
    
http://www.miibeian.gov.cn">湘ICP备09022381号 |
  

 

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="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="。