📄 index.asp

📁 Google近日收录查询系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="inc.asp" -->
<!-- #include file="config.asp" -->


<% dim a,b,c,title
p=request("page")
q=request("q")
t=request("t")
num=request("num")
if t="1" then t="d"&num&""

if p="" then p="0"

	url = "http://www.google.cn/search?q=+site:"&q&"&num=20&complete=1&hl=zh-CN&lr=&newwindow=1&as_qdr="&t&"&start="&p&"&sa=N"

if t="d" then t="1"
if t="w" then t="一周内"
if t="m" then t="一个月内"
if t="m2" then t="2 个月"
if t="m3" then t="3 个月"
if t="m6" then t="6 个月"
if t="y" then t="一年内"
if t="all" then t="所有"
t= Replace(t,"d","")
	ComStr = GetPage(url)
	Set Re=new RegExp
		Re.Global = True
		

		TheBody = GetContent(Comstr,"<div id=res class=med>","<div id=bsf style",0)
		total = GetContent(Comstr,"有 <b>","</b> 项",0)
		TheBody = Replace(TheBody,"类似网页","")
		TheBody = Replace(TheBody,"该网站可能含有恶意软件，有可能会危害您的电脑。","")
		TheBody = Replace(TheBody,"/interstitial?url=","")
		TheBody = Replace(TheBody,"- <nobr>","")
        Re.Pattern="<a href=""/search\?q=site:(.+?)&amp;complete=1&amp;hl=zh-CN&amp;lr=&amp;as_qdr=(.+?)&amp;nu(.+?)p;start=(.+?)&amp;sa=N"">"

        TheBody=Re.Replace(TheBody,"<a href=index.asp?q=$1&t=$2&page=$4>")


Set Re=Nothing




%>
<!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><%=SiteName%></TITLE>
<meta name="keywords" content="<%=title%>">
<meta name="description" content="<%=title%>">

<style>P { MARGIN-TOP: 10px }
.border{ border:solid 1px #ccc; width:800px;text-align:left;}
H1 { PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-SIZE: 14px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px }
H2 { PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-WEIGHT: normal; FONT-SIZE: 15px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px }
BODY { FONT-SIZE: 13px }
TABLE { FONT-SIZE: 13px }
A { COLOR: #0033cc; FONT-FAMILY: Verdana }
　　 a:link { text-decoration: none;color: blue}
　　 a:active { text-decoration:blink}
　　 a:hover { text-decoration:underline;color: red} 
　　 a:visited { text-decoration: none;color: green}
FORM { MARGIN: 0px }
SPAN { COLOR: #339933; FONT-FAMILY: Verdana }



.m { BORDER-RIGHT: #99ccff 1px solid; PADDING-RIGHT: 10px; BORDER-TOP: #99ccff 1px solid; PADDING-LEFT: 10px; PADDING-BOTTOM: 5px; BORDER-LEFT: #99ccff 1px solid; WIDTH: 100%; WORD-BREAK: break-all; LINE-HEIGHT: 22px; PADDING-TOP: 5px; BORDER-BOTTOM: #99ccff 1px solid }
.m A { CURSOR: hand; COLOR: #0033cc; FONT-FAMILY: Verdana; TEXT-DECORATION: none }
.m IMG { BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; CURSOR: hand; BORDER-BOTTOM: 0px }
.t { BORDER-RIGHT: #dfe8ff 1px solid; PADDING-RIGHT: 10px; BORDER-TOP: #dfe8ff 1px solid; PADDING-LEFT: 10px; PADDING-BOTTOM: 5px; BORDER-LEFT: #dfe8ff 1px solid; WIDTH: 100%; PADDING-TOP: 5px; BORDER-BOTTOM: #dfe8ff 1px solid; BACKGROUND-COLOR: #dfe8ff; WORD-WRAP: break-word }

</style>
<script>
function load1(name)
{
loading.style.display="none";
name.style.display="";
}

function load2(name)
{
loading.style.display="none";
name.style.display="none";
}

function selecte(s)
{
if(s==1)
{
loading.style.display="";

div_a.style.display="none";
setTimeout("load1(div_a)",1000);
}
if(s!=1)
{
loading.style.display="none";

div_a.style.display="none";
setTimeout("load2(div_a)",0);
}

}
</script>
</head>
<body>


<form name="form1" method="get" action="" onchange="selecte(this.options[this.options.selectedIndex].value)">
<table width="800" height="108" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC" class="border">

<tr>
  <td height="38" align="center" bgcolor="#FFFFFF"><strong>请输入你的域名：    </strong></td>
</tr>
<tr><td height="31" align="center" bgcolor="#FFFFFF"><table width="100%" border="0">
  <tr>
    <td width="46%"><div align="right">
      <input type="text" name="q" class="ff" size="21" maxlength="100"  value="www.8-du.net" />
    </div></td>
    <td width="1%"><div align="center"><div id="loading" style="display:none;"><img src="wait20trans.gif"></div>
			<div id="div_a" style="display:none;" ><input type="text" value="10" size="7" name="num">天</div></div></td>
    <td width="53%" align="left"><select name="t" onchange="selecte(this.options[this.options.selectedIndex].value)">
      <option value="d">请选择要查询近几天的收录量</option>
      <option value="1">自定义天数</option>
      <option value="d">查询昨日收录情况</option>
      <option value="w">查询最近1星期收录情况</option>
      <option value="m">查询最近1月收录情况</option>
      <option value="m2">查询最近2月收录情况</option>
      <option value="m3">查询最近3月收录情况</option>
      <option value="m6">查询最近6月收录情况</option>
      <option value="y">查询最近1年收录情况</option>
      <option value="all">查询总的（所有日期）收录情况</option>
    </select>
      <input type=submit value=立即查询></td>
  </tr>
</table></td>
</tr>
<tr>
  <td height="27" align="center" bgcolor="#FFFFFF"><span class="STYLE1"></span>
    <p class="intro" style="padding-top:15px;"><span class="STYLE1"><font size="2"><font color="0066ff">本系统可查询Google在近几天内收录贵网站的情况（能自定义天数，<b>独家功能</b>！其他的系统仅能查询总共收录您网站的情况！）</font></font><br>
    <font size="2"><font color="0066ff">站长的好助手！

关注网站发展的每一小步！觉得本工具不错请收藏或推荐给自己的朋友！
程序设计：</font><a href="http://www.8-du.net" target="_blank"><font color="0066ff">火韦</font></a></font></span></p><span class="STYLE1"></span></td>
</tr>
</table>

</form>
<%if q<>"" then%>
<center>
<br></font><center><b><font size="2">Google在最近<%=t%>日内共收录了网站<%=q%>的<%=total%>个页面,具体页面如下：</font></b><font size="2"><br><br><font color=red>查询该站最近几日的收录量：

</font><a href=index.asp?t=d&q=<%=q%>><font color=blue><u>昨日</u></font></a> <a href=index.asp?t=w&q=<%=q%>><font color=blue><u>最近1星期</u></font></a> 

<a href=index.asp?t=m&q=<%=q%>><font color=red><u>最近1个月</u></font></a> <a href=index.asp?t=m2&q=<%=q%>><font color=blue><u>最近2个月</u></font></a> <a href=index.asp?t=m3&q=<%=q%>><font color=blue><u>最近3个月</u></font></a> <a href=index.asp?t=m6&q=<%=q%>><font color=blue><u>最近6个月</u></font></a> <a href=index.asp?t=y&q=<%=q%>><font color=blue><u>最近1年</u></font></a> <a 

href=index.asp?t=all&q=<%=q%>><font color=red><u>总收录量</u></font></a> </font> <a href=index.asp>
<font size="2" color="blue">返回首页查询其他网站</font></a></center>

<div class="border">
<div>
<%=TheBody%>

</div>
</div>
</center>
<%end if%><!-- #include file="bottom.asp" --></body></html>
💿 文件大小 11 K
👤 上传用户 hcwlxhyq
📂 所属分类 Linux/Unix编程
🏷️ 相关标签

#Google #收录 #查询系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -