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"/>
</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> lazy people build Station </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> homepage </font></a> | <a href= "http://www.o121.cn/" onclick= "Window.external.addFavorite (This.href,this.title); return false;" Title= " 121 Network Entertainment ' rel= "sidebar" > Favorites Site </A> | <a href= "About:blank" target= "_blank" is faster and more convenient than opening IE browser directly! "> New blank page </a>
</div>
<div class= "Top-nav-logo" ><b> Webmaster Tools-Provide all kinds of webmaster common online query Tools </b></div>
</div>
<div class= "Top" >
<div class= "top640-480" > Copy Webmaster Station webmaster Tools test, there are questions or suggestions please add QQ Group: 26022972. Thank you </div>
</div>
<!--menu-->
<div class= "Menu" >
<a href= "/" class= "select" > Webmaster Tools </a>
<a href= "#" target= "_blank" > Wait for Add </a>
</div>
<!--sub_menu-->
<!--main-->
<div class= "Main" >
<div class= "box" >
<div id= "B_1" >
<h1> search engine included query </h1>
<div class= "Box1" style= "Text-align:center;" >
<form method= "Get" action= "Name=" Domainform "onsubmit=" return Checkdomain (); " >
<span class= "Info3" > with "www" and not with "www" Query results are different <br>
Please enter the address you want to inquire: http://
<input name= "name" type= "Submit" class= "but" onclick= "return Check_code ();" value= "Webmaster Tools"/><br/>
</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>
</span>
</div>
</div>
<div id= "B_15" >
<h1> Tools Navigation Map </h1>
</div><div class= "Box1" >
<span class= "Info2" >
Website Information Inquiry Tool:
<a href= "" > Search engine included Query </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" > About Us </a> |
<a href= "#" target= "_blank" > contact Us </a> |
<a href= "http://www.111cn.net/" > Web page Making </a> |
<a href= "http://christmas.111cn.net/" > Christmas Material </a> |
<a href= "/" > Baba online movie </a> |
</div>
<div class= "Foot" >
&copy; CopyRight 2009-2010, Inc.all Rights Reserved.
<br> <a href= "http://www.miibeian.gov.cn" > Hunan ICP 备 No. No. 09022381 </a> | <script language= "javascript" src= "/stat.js" ></script>
</div>
</div>
</body>
</html>
<!--v1.0 Beat Updata 2009/11/26-->
inc.asp file
<%
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
'==========================================
' 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"
%>
<%
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= "Sogou Rating:"
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>", "Reference Data Two:")
Pagecodeip=replacetest (Pagecodeipa, "", Pagecodeip)
Pagecodeip=replacetest ("</font> reference Data Two:", "Location:", PAGECODEIP)
%>
<%
Baidusite= "Http://www.baidu.com/s?wd=site%3A" &domain& ""
Pagecodebaidu=gethttppage (Baidusite)
Startstr= "Find the relevant page"
Overstr= "chapter"
Pagecodebaidu = gethtml (PAGECODEBAIDU,STARTSTR,OVERSTR)
Pagecodebaidu = Replacetest ("About", "", Pagecodebaidu)
%>
<%
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)
%>
<%
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= "Search to about"
Overstr= "Item Results"
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" "> Web site &nbsp;<a href=" "http://" &domain& "" "style=" " Text-decoration: "
Response.Write "Underline" "target=" "_blank" ">" &domain& "</A>&nbsp;" &PageCodeAlexa& ""
Response.Write "&nbsp; Pagerank:&nbsp;<img src= "Googleimg/pagerank" &PageCodepr& ". gif" "title=" "Google"
Response.Write "PR:" "&PageCodepr&" "border=0>&nbsp; Sogou Rank:&nbsp;<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&nbsp;</td> "
Response.Write "</tr>"
Response.Write "<tr class=" "Seo_item" ">"
Response.Write "<td width=" "16%" "><font color=" "#0269AC" "> Search engine </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" "> Included Quantity </font></td>"
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=baidu>" &pa gecodebaidu& "</font></td>"
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=google>" &p agecodegoogle& "</font></td>"
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=yahoo>" &pa gecodeyahoo& "</font></td>"
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=sogou>" &pa gecodesogou& "</font></td>"
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=soso>" &pag ecodesoso& "</font></td>"
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=youdao>" &p agecodeyoudao& "</font></td>"
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "Id=bing>" &pag ecodebing& "</font></td>"
Response.Write "</tr>"
Response.Write "<tr class=" "Seo_item" ">"
Response.Write "<td width=" "16%" "><font color=" "#0269AC" "> Reverse link </font></td>"
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous> temporarily not available ;/font></td> "
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous> temporarily not available ;/font></td> "
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous> temporarily not available ;/font></td> "
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous> temporarily not available ;/font></td> "
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous> temporarily not available ;/font></td> "
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous> temporarily not available ;/font></td> "
Response.Write "<td width=" "12%" "><font face=" "Verdana, Arial, Helvetica, Sans-serif" "id=sogous> temporarily not available ;/font></td> "
Response.Write "</tr>"
Response.Write "</table>";
%>