Site collection Query _pagerank Query _alexa Query _ comprehensive query

Site collection Query _pagerank Query _alexa Query _ comprehensive query
<%
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://", "") br> domain=replace (Domain, "/", "")
%>
<! DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 transitional//en" "Http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd
<meta http-equiv= "Content-type" Content= "text/html; charset=gb2312 "/>
<title><%=domain%>_ Web site included query _pagerank Query _alexa Query _ comprehensive query-webmaster tools </title>
<meta name= "keywords" content= "site included query, pagerank query, alexa query, IP query"/>
<meta name= "description" Webmaster tools to provide major search engines included query, reverse link query and Web site information comprehensive query! "/>
<link href=" Favicon.ico "type=" Image/x-icon "rel=" shortcut icon "/
<link href= "css/toolsite.css" rel= "stylesheet" type= "Text/css"/>

&lt;/head&gt;


&lt;body onload= "remove_loading ();" &gt;


&lt;!--warp--&gt;


&lt;div class= "Wrap" &gt;


&lt;!--top--&gt;


&lt;div class= "Top-nav" &gt;


&lt;div class= "Top-menu" &gt;


&lt;a href= "http://www.lrjz.net/" target= "_blank" &gt;&lt;b&gt; lazy people build Station &lt;/b&gt;&lt;/a&gt; |


&lt;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+ '/')} "&gt;&lt;font color=red&gt; homepage &lt;/font&gt;&lt;/a&gt; | &lt;a href= "http://www.o121.cn/" onclick= "Window.external.addFavorite (This.href,this.title); return false;" Title= " 121 Network Entertainment ' rel= "sidebar" &gt; Favorites Site &lt;/A&gt; | &lt;a href= "About:blank" target= "_blank" is faster and more convenient than opening IE browser directly! "&gt; New blank page &lt;/a&gt;


&lt;/div&gt;


&lt;div class= "Top-nav-logo" &gt;&lt;b&gt; Webmaster Tools-Provide all kinds of webmaster common online query Tools &lt;/b&gt;&lt;/div&gt;


&lt;/div&gt;


&lt;div class= "Top" &gt;


&lt;div class= "top640-480" &gt; Copy Webmaster Station webmaster Tools test, there are questions or suggestions please add QQ Group: 26022972. Thank you &lt;/div&gt;


&lt;/div&gt;


&lt;!--menu--&gt;


&lt;div class= "Menu" &gt;


&lt;a href= "/" class= "select" &gt; Webmaster Tools &lt;/a&gt;


&lt;a href= "#" target= "_blank" &gt; Wait for Add &lt;/a&gt;


&lt;/div&gt;


&lt;!--sub_menu--&gt;

&lt;!--main--&gt;


&lt;div class= "Main" &gt;


&lt;div class= "box" &gt;


&lt;div id= "B_1" &gt;


&lt;h1&gt; search engine included query &lt;/h1&gt;


&lt;div class= "Box1" style= "Text-align:center;" &gt;


&lt;form method= "Get" action= "Name=" Domainform "onsubmit=" return Checkdomain (); " &gt;


&lt;span class= "Info3" &gt; with "www" and not with "www" Query results are different &lt;br&gt;


Please enter the address you want to inquire: http://
&lt;input name= "name" type= "Submit" class= "but" onclick= "return Check_code ();" value= "Webmaster Tools"/&gt;&lt;br/&gt;

</span><div id= "Detail" class= "Info1" >
<span> is in query, please wait ......</span>
</div></form></div>

<div style= "border:1px solid #BBD7E6;p adding:5px;margin:10px 0px 10px 0px;background-color: #FFFFFF;" align= "Center ">
This is an ad bit
</div>
<div class= "box" >
<div id= "B_14" >
<div class= "Box1" >
<span class= "Info2" >

<p> through the tool can quickly check the number of major search engines included! including: Baidu, Google, Yahoo, Sogou, search, Youdao, Altavista,alltheweb, Bing Search, as well as Google PR query, Sogourank query, Alexa Global comprehensive rankings, Alexa Chinese ranking query, domain name IP address query. </p>

&lt;/span&gt;


&lt;/div&gt;


&lt;/div&gt;


&lt;div id= "B_15" &gt;


&lt;h1&gt; Tools Navigation Map &lt;/h1&gt;


&lt;/div&gt;&lt;div class= "Box1" &gt;


&lt;span class= "Info2" &gt;


Website Information Inquiry Tool:


&lt;a href= "" &gt; Search engine included Query &lt;/a&gt;





&lt;/span&gt;


&lt;/div&gt;&lt;/div&gt;


&lt;/div&gt;&lt;script language= "JavaScript" src= "tool.asp?d=&lt;%=domain%&gt;" type= "Text/javascript" &gt;&lt;/ Script&gt;


&lt;div class= "Bot-nav" &gt;


&lt;a href= "#" target= "_blank" &gt; About Us &lt;/a&gt; |


&lt;a href= "#" target= "_blank" &gt; contact Us &lt;/a&gt; |


&lt;a href= "http://www.111cn.net/" &gt; Web page Making &lt;/a&gt; |


&lt;a href= "http://christmas.111cn.net/" &gt; Christmas Material &lt;/a&gt; |


&lt;a href= "/" &gt; Baba online movie &lt;/a&gt; |


&lt;/div&gt;





&lt;div class= "Foot" &gt;


&amp;copy; CopyRight 2009-2010, Inc.all Rights Reserved.


&lt;br&gt; &lt;a href= "http://www.miibeian.gov.cn" &gt; Hunan ICP 备 No. No. 09022381 &lt;/a&gt; | &lt;script language= "javascript" src= "/stat.js" &gt;&lt;/script&gt;


&lt;/div&gt;


&lt;/div&gt;


&lt;/body&gt;


&lt;/html&gt;


&lt;!--v1.0 Beat Updata 2009/11/26--&gt;

inc.asp file

&lt;%


Dim Pagecode,pagecodes,conn,rs,sqlstr,startstr,overstr,gestxt


Function gethtml (PAGECODE,STARTSTR,OVERSTR)


Dim Start,over


If InStr (PAGECODE,STARTSTR) &gt; 0 and InStr (PAGECODE,OVERSTR) &gt; 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


'==========================================


' Regular expression function area


'==========================================


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

'==========================================
' Collection function area
'==========================================

Get page Source functions
Function Gethttppage (httpurl)
 if IsNull (httpurl) =true Then
   Response.Write ("Please enter the URL!") ")
  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 ("This page cannot be accessed!") ")
  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

' Convert encoding 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 file

<!--#Include file= "inc.asp"-->
<%
Dim Domain
Domain = Request ("D")
Domain = replace (domain, "http://", "")
Domain = replace (domain, "", "")
If domain = "" Then domain = "www.lrjz.net"

%&gt;


&lt;%


Mubiaopr= "php?url=" &amp;domain "&gt;http://www.lrjz.net/googlepr.php?url=" &amp;domain&amp; ""


Pagecodepr=gethttppage (MUBIAOPR)


Startstr= "&lt;b&gt;"


Overstr= "&lt;/b&gt;"


Pagecodepr = gethtml (PAGECODEPR,STARTSTR,OVERSTR)


Pagecodepr=replacetest ("", "", Pagecodepr)


%&gt;


&lt;%


Mubiaosr= "http://www.sogou.com/web?query=" &amp;domain&amp; ""


Pagecodesr=gethttppage (MUBIAOSR)


Startstr= "Sogou Rating:"


overstr= "/100"


PAGECODESR = gethtml (PAGECODESR,STARTSTR,OVERSTR)


Pagecodesr=replacetest ("", "", PAGECODESR)


%&gt;


&lt;%


Mubiaoalexa= "http://alexa.chinaz.com/Index.asp?domain=" &amp;domain&amp; ""


Pagecodealexa=gethttppage (Mubiaoalexa)


Startstr= "&gt;&lt;/font&gt;&lt;/b&gt;"


Overstr= ". &lt;/div&gt; "


Pagecodealexa = gethtml (PAGECODEALEXA,STARTSTR,OVERSTR)


Pagecodealexa=replacetest ("#FFFF00", "#22ac38", Pagecodealexa)


%&gt;


&lt;%


mubiaoip= "ps.asp?ip=" &amp;domain "&gt;http://www.ip138.com/ips.asp?ip=" &amp;domain&amp; ""


Pagecodeip=gethttppage (MUBIAOIP)


Startstr= "&gt;&gt;"


Overstr= "&lt;/li&gt;&lt;/ul&gt;&lt;/td&gt;"


Pagecodeip = gethtml (PAGECODEIP,STARTSTR,OVERSTR)


Pagecodeipa = gethtml (Pagecodeip, "&lt;/font&gt;", "Reference Data Two:")


Pagecodeip=replacetest (Pagecodeipa, "", Pagecodeip)


Pagecodeip=replacetest ("&lt;/font&gt; reference Data Two:", "Location:", PAGECODEIP)


%&gt;


&lt;%


Baidusite= "Http://www.baidu.com/s?wd=site%3A" &amp;domain&amp; ""


Pagecodebaidu=gethttppage (Baidusite)


Startstr= "Find the relevant page"


Overstr= "chapter"


Pagecodebaidu = gethtml (PAGECODEBAIDU,STARTSTR,OVERSTR)


Pagecodebaidu = Replacetest ("About", "", Pagecodebaidu)


%&gt;

<%
googlesite= "Http://www.google.cn/search?oe=gb2312&q=site%3A" &domain& "
Pagecodegoogle=gethttppage (googlesite)
startstr= "Get approx <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)
%>

&lt;%


Sogousite= "Http://www.sogou.com/web?query=site%3A" &amp;domain&amp; ""


Pagecodesogou=gethttppage (Sogousite)


Startstr= "Resultbarnum:"


Overstr= "--&gt;"


Pagecodesogou = gethtml (PAGECODESOGOU,STARTSTR,OVERSTR)


Pagecodesogou = Replacetest ("", "", Pagecodesogou)


%&gt;


&lt;%


Sososite= "Http://www.soso.com/q?pid=s.idx&amp;w=site%3A" &amp;domain&amp; ""


Pagecodesoso=gethttppage (Sososite)


Startstr= "Search to about"


Overstr= "Item Results"


Pagecodesoso = gethtml (PAGECODESOSO,STARTSTR,OVERSTR)


Pagecodesoso = Replacetest ("", "", Pagecodesoso)


%&gt;


&lt;%


Youdaosite= "Http://www.youdao.com/search?q=site%3A" &amp;domain&amp; ""


Pagecodeyoudao=gethttppage (Youdaosite)


Startstr= "result_no="


Overstr= "duration="


Pagecodeyoudao = gethtml (PAGECODEYOUDAO,STARTSTR,OVERSTR)


Pagecodeyoudao = Replacetest ("", "", Pagecodeyoudao)


%&gt;

&lt;%


Bingsite= "Http://www.bing.com/search?q=site%3A" &amp;domain&amp; "&amp;mkt=en-us"


Pagecodebing=gethttppage (Bingsite)


Startstr= "of"


Overstr= "Results"


pagecodebing = gethtml (PAGECODEBING,STARTSTR,OVERSTR)


pagecodebing = Replacetest ("", "", pagecodebing)


%&gt;


&lt;%


Response.Write "document.getElementById" (' detail '). InnerHTML = ' &lt;table class= ' "seo" "cellpadding=" "5" ""


Response.Write "Cellspacing=" "1" "&gt;"


Response.Write "&lt;tr class=" "Seo_head" "align=" "Center" "&gt;"


Response.Write "&lt;td colspan=" "8" "&gt;" &amp;domain&amp; "IP:" &amp;PageCodeIP&amp; "&lt;/td&gt;"


Response.Write "&lt;/tr&gt;"


Response.Write "&lt;tr class=" "Seo_head" "align=" "Center" "&gt;"


Response.Write "&lt;td colspan=" "8" "&gt; Web site &amp;nbsp;&lt;a href=" "http://" &amp;domain&amp; "" "style=" " Text-decoration: "


Response.Write "Underline" "target=" "_blank" "&gt;" &amp;domain&amp; "&lt;/A&gt;&amp;nbsp;" &amp;PageCodeAlexa&amp; ""


Response.Write "&amp;nbsp; Pagerank:&amp;nbsp;&lt;img src= "Googleimg/pagerank" &amp;PageCodepr&amp; ". gif" "title=" "Google"


Response.Write "PR:" "&amp;PageCodepr&amp;" "border=0&gt;&amp;nbsp; Sogou Rank:&amp;nbsp;&lt;a "


Response.Write "href=" "Http://www.sogou.com/web?query=link%3A" &amp;domain&amp; "&amp;num=10" "Target=_blank"


Response.Write "Title=" "Sogou Rank:" &amp;PageCodesr&amp; "" &gt;&lt;b&gt; "&amp;PageCodesr&amp;" &lt;/b&gt;&lt;/a &gt;/100&amp;nbsp;&lt;/td&gt; "


Response.Write "&lt;/tr&gt;"


Response.Write "&lt;tr class=" "Seo_item" "&gt;"


Response.Write "&lt;td width=" "16%" "&gt;&lt;font color=" "#0269AC" "&gt; Search engine &lt;/font&gt;&lt;/td&gt;"


Response.Write "&lt;td width=" "12%" "&gt;&lt;img src=" "Icon/icon_baidu.gif" "alt=" "Baidu" "Border=" "0" "/&gt;&lt;/td &gt; "


Response.Write "&lt;td width=" "12%" "&gt;&lt;img src=" "Icon/icon_google.gif" "alt=" "Google" "border=" "0" "/&gt;&lt;/ Td&gt; "


Response.Write "&lt;td width=" "12%" "&gt;&lt;img src=" "Icon/icon_yahoo.gif" "alt=" "Yahoo" "border=" "0" "/&gt;&lt;/td &gt; "


Response.Write "&lt;td width=" "12%" "&gt;&lt;img src=" "Icon/icon_sohu.gif" "alt=" "Sogou" "border=" "0" "/&gt;&lt;/td &gt; "


Response.Write "&lt;td width=" "12%" "&gt;&lt;img src=" "Icon/icon_qq.gif" "alt=" "Soso" "border=" "0" "/&gt;&lt;/td&gt;"


Response.Write "&lt;td width=" "12%" "&gt;&lt;img src=" "Icon/icon_yodao.gif" "alt=" "Yodao" "border=" "0" "/&gt;&lt;/td &gt; "


Response.Write "&lt;td width=" "12%" "&gt;&lt;img src=" "Icon/icon_bing.gif" "alt=" "Bing" "Border=" "0" "/&gt;&lt;/td &gt; "


Response.Write "&lt;/tr&gt;"


Response.Write "&lt;tr class=" "Seo_item" "&gt;"


Response.Write "&lt;td width=" "16%" "&gt;&lt;font color=" "#0269AC" "&gt; Included Quantity &lt;/font&gt;&lt;/td&gt;"


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=baidu&gt;" &amp;pa gecodebaidu&amp; "&lt;/font&gt;&lt;/td&gt;"


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=google&gt;" &amp;p agecodegoogle&amp; "&lt;/font&gt;&lt;/td&gt;"


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=yahoo&gt;" &amp;pa gecodeyahoo&amp; "&lt;/font&gt;&lt;/td&gt;"


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=sogou&gt;" &amp;pa gecodesogou&amp; "&lt;/font&gt;&lt;/td&gt;"


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=soso&gt;" &amp;pag ecodesoso&amp; "&lt;/font&gt;&lt;/td&gt;"


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=youdao&gt;" &amp;p agecodeyoudao&amp; "&lt;/font&gt;&lt;/td&gt;"


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=bing&gt;" &amp;pag ecodebing&amp; "&lt;/font&gt;&lt;/td&gt;"


Response.Write "&lt;/tr&gt;"


Response.Write "&lt;tr class=" "Seo_item" "&gt;"


Response.Write "&lt;td width=" "16%" "&gt;&lt;font color=" "#0269AC" "&gt; Reverse link &lt;/font&gt;&lt;/td&gt;"


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous&gt; temporarily not available ;/font&gt;&lt;/td&gt; "


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous&gt; temporarily not available ;/font&gt;&lt;/td&gt; "


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous&gt; temporarily not available ;/font&gt;&lt;/td&gt; "


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous&gt; temporarily not available ;/font&gt;&lt;/td&gt; "


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous&gt; temporarily not available ;/font&gt;&lt;/td&gt; "


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous&gt; temporarily not available ;/font&gt;&lt;/td&gt; "


Response.Write "&lt;td width=" "12%" "&gt;&lt;font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous&gt; temporarily not available ;/font&gt;&lt;/td&gt; "


Response.Write "&lt;/tr&gt;"


Response.Write "&lt;/table&gt;";


%&gt;