manage.asp

是个不错的文件代码,希望大家好好用,

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Config.asp" -->
<% MenuID=4 : OpenDB = False : Title = "世界排名、PR查询、网站收录查询 - " + SiteName %>
<!--#include File="Inc/Menus.asp"-->
<!--#include File="Inc/Function.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Dim IsSEO,Domain
sitename=FormatStr(trim(request("Domain")),0)
sitename=replace(sitename,"http://","")
sitename=replace(sitename,"ftp://","")
sitename=replace(sitename,"msn://","")
if right(sitename,1)="/" or right(sitename,1)="\" then sitename=Left(sitename,Len(sitename)-1)
if Left(sitename,4)="bbs." or Left(sitename,4)="www." then sitename=Right(sitename,Len(sitename)-4)
if instr(sitename,"/")>0 then sitename=split(sitename,"/")(0)
Domain=Replace(sitename," ","")
%>
<script>
	function CheckAll(form)
	  {
	  for (var i=0;i<form.elements.length;i++)
		{
		var e = form.elements[i];
		if (e.name != 'all')
		   e.checked = form.chkall.checked;
		}
	  }
</script>
<center>
<% If Domain<>"" Then IsSEO=True  %>
<br>
<!-- ======================================== The Start ====================================== -->
<form action="" method="get" name="search" id="search" onsubmit="if(document.search.domain.value==''){document.search.domain.focus();return false;}Button.disabled=true;return true;">
  <table width="630" border="0" align="center" cellpadding="3" cellspacing="1">
    <tr>
      <td height="25"><div align="center">
        <p><strong>域名网址<font color="#CC5200">搜索引擎收录</font>、<font color="#CC5200">世界排名</font>、<font color="#CC5200">网站收录</font>、<font color="#CC5200">网站PR查询</font>等详细信息查询</strong></p>
      </div></td>
    </tr>
    <tr> 
      <td height="50" align="center" class="INPUT">
        <span style="font-size:16px">需查询的域名：</span><input name="domain" type="text" id="domain" value="<%=Domain%>">
          <input type="submit" name="Submit" id="Button" value=" 查 询 " class="bt_mouseout" onmouseover="this.className='bt_mouseover'" onmouseout="this.className='bt_mouseout'">&nbsp;&nbsp;&nbsp;
          <input type="checkbox" name="chkall" value="on" onclick="CheckAll(this.form)" class="bt_mouseout" onmouseover="this.className='bt_mouseover'" onmouseout="this.className='bt_mouseout'" style="height:22px;width:22px;"<%If IsSeo=True And Request("chkall")="on" Then Response.Write(" Checked")%>> 全选&nbsp;&nbsp;
          <input name="all" type="checkbox" id="all" value="y" title="如:Admin8.Net 则只搜索“Admin8”相关的内容。" class="bt_mouseout" onmouseover="this.className='bt_mouseover'" onmouseout="this.className='bt_mouseout'" style="height:22px;width:22px;"<%If IsSeo=True And Request("all")="y" Then Response.Write(" Checked")%>> 不查后缀
	  </td>
    </tr>
    <tr>
      <td height="10" align="center">
	  </td>
    </tr>
    <tr> 
      <td height="32"> <div align="center"> 
          <table width="100%" border="10" cellpadding="3" cellspacing="0" bgcolor="#F0F0F0">
            <tr> 
              <td width="155" height="35" style="padding-left:9px;"><input style="height:22px;width:22px;" name="googlerank" type="checkbox" id="googlerank" value="1" <%If IsSeo=True And Request("googlerank")="1" Then Response.Write(" Checked")%> <%If IsSeo<>True Then Response.Write(" Checked")%>>
              Google Rank查询</td>
              <td width="168" height="35"><input style="height:22px;width:22px;" type="checkbox" name="google" value="1" <%If IsSeo=True And Request("google")="1" Then Response.Write(" Checked")%> <%If IsSeo<>True Then Response.Write(" Checked")%>> 
              Google收录查询</td>
              <td width="137" height="35"><input style="height:22px;width:22px;" type="checkbox" name="baidu" value="1" <%If IsSeo=True And Request("baidu")="1" Then Response.Write(" Checked")%> <%If IsSeo<>True Then Response.Write(" Checked")%>> 
              Baidu收录查询</td>
              <td width="136" height="35"><input style="height:22px;width:22px;" name="msn" type="checkbox" id="msn" value="1" <%If IsSeo=True And Request("msn")="1" Then Response.Write(" Checked")%>> 
              MSN收录查询</td>
            </tr>
            <tr> 
              <td height="35" style="padding-left:9px;"><input style="height:22px;width:22px;" name="yahoo" type="checkbox" id="yahoo2" value="1" <%If IsSeo=True And Request("yahoo")="1" Then Response.Write(" Checked")%>>
              Yahoo收录查询</td>
              <td height="35"> <input style="height:22px;width:22px;" name="yisou" type="checkbox" value="1" <%If IsSeo=True And Request("yisou")="1" Then Response.Write(" Checked")%>> 
              Yisou收录查询</td>
              <td height="35"><input style="height:22px;width:22px;" name="links" type="checkbox" id="links" value="1" <%If IsSeo=True And Request("links")="1" Then Response.Write(" Checked")%> >
              友情链接查询 </td>
              <td height="35"><input style="height:22px;width:22px;" name="sina" type="checkbox" id="sina" value="1" <%If IsSeo=True And Request("sina")="1" Then Response.Write(" Checked")%>>
              SINA收录查询 </td>
            </tr>
            <tr> 
              <td height="35" style="padding-left:9px;"><input style="height:22px;width:22px;" name="sohu" type="checkbox" id="sohu" value="1" <%If IsSeo=True And Request("sohu")="1" Then Response.Write(" Checked")%>>
              SOHU收录查询</td>
              <td height="35"><input style="height:22px;width:22px;" name="do163" type="checkbox" id="do1632" value="1" <%If IsSeo=True And Request("do163")="1" Then Response.Write(" Checked")%>>
              163收录查询</td>
              <td height="35"><input style="height:22px;width:22px;" name="qq" type="checkbox" id="whois" value="1" <%If IsSeo=True And Request("qq")="1" Then Response.Write(" Checked")%>>
              QQ收录查询</td>
              <td height="35"><input style="height:22px;width:22px;" name="zhongsou" type="checkbox" id="zhongsou" value="1" <%If IsSeo=True And Request("zhongsou")="1" Then Response.Write(" Checked")%>>
              中国搜索查询</td>
            </tr>
			  <tr> 
              <td height="35" style="padding-left:9px;"><input style="height:22px;width:22px;" name="uptimebot" type="checkbox" id="uptimebot" value="1" <%If IsSeo=True And Request("uptimebot")="1" Then Response.Write(" Checked")%> <%If IsSeo<>True Then Response.Write(" Checked")%>>
                网页相关性检查</td>
              <td height="35"><input style="height:22px;width:22px;" name="whois" type="checkbox" id="whois3" value="1" <%If IsSeo=True And Request("whois")="1" Then Response.Write(" Checked")%>>
                Whois域名信息</td>
              <td height="35"><input style="height:22px;width:22px;" name="alexa" type="checkbox" value="1" <%If IsSeo=True And Request("alexa")="1" Then Response.Write(" Checked")%> <%If IsSeo<>True Then Response.Write(" Checked")%>>
                Alexa排名查询</td>
              <td height="35"><input style="height:22px;width:22px;" name="ip" type="checkbox" id="ip" value="1" <%If IsSeo=True And Request("ip")="1" Then Response.Write(" Checked")%>>
                IP地址查询</td>
            </tr>
          </table>
        </div></td>
    </tr>
  </table>
</form>
<!-- ======================================== The End ====================================== -->
	</td>
  </tr>
  <tr>
    <td colspan="3">
<!-- ======================================== The Start ====================================== -->
<%
if IsSeo=True then
		if instr(domain,".")>0 then
		'Call AddSearch(Domain,4)'写入查询记录
%>

<table width="620" align="center" cellpadding="2" cellspacing="1" class="INPUT">
  		<tr> 
    		<td bgcolor="#C8D4F3">
      			<table width="100%" align="center" cellpadding="1" cellspacing="0" bgcolor="#EEEECC">
					<TR>	
         				 <TD> 
						<%if request("alexa")=1 then%>
							<table width="100%" align="center" cellpadding="0" cellspacing="0">
								<TR>
									<TD height="20"><strong> ·Alexa 收录情况</strong></TD>
								</TR>
								<TR>
									<TD bgcolor="#ffffff" height="205" valign="top">
									<iframe frameborder=0 height=205 name=alexa scrolling=auto src="http://response.52.la/Manage/?sitename=<%=domain%>&site=alexa" width=100% ></iframe>
								  </TD>
								</TR>
							</table>
						<%end if%>
						<%if request("googlerank")=1 then%>
						<table width="100%" align="center" cellpadding="0" cellspacing="0">
								<TR>
									<TD height="20"><strong> ·Google Rank查询 </strong></TD>
								</TR>
								<TR>
									<TD height="80" valign="top" bgcolor="#ffffff">
								  <iframe frameborder=0 height=80 name=GoogleRank scrolling=no src="http://response.52.la/Manage/?sitename=<%=domain%>&site=GoogleRank&all=<%=request("all")%>" width=100% ></iframe></TD>
								</TR>
						   </table>
						<%end if%>
						<%if request("google")=1 then%>
							<table width="100%" align="center" cellpadding="0" cellspacing="0">
								<TR>
									<TD height="20"><strong> ·Google 收录情况 </strong></TD>
								</TR>
								<TR>
									<TD bgcolor="#ffffff" height="50" valign="middle">
									<iframe frameborder=0 height=50 name=google scrolling=no src="http://response.52.la/Manage/?sitename=<%=domain%>&site=google&all=<%=request("all")%>" width=100% ></iframe>
									</TD>
								</TR>
							</table>
						<%end if%>
						<%if request("baidu")=1 then%>
							<table width="100%" align="center" cellpadding="0" cellspacing="0">
								<TR>
									<TD height="20"><strong> ·Baidu 收录情况 </strong></TD>
								</TR>
								<TR>
									<TD bgcolor="#ffffff" height="50" valign="middle">
									<iframe frameborder=0 height=50 name=baidu scrolling=no src="http://response.52.la/Manage/?sitename=<%=domain%>&site=baidu&all=<%=request("all")%>" width=100% ></iframe>
									</TD>
								</TR>
							</table>
						<%end if%>
						<%if request("msn")=1 then%>
							<table width="100%" align="center" cellpadding="0" cellspacing="0">
								<TR>
									<TD height="20"><strong> ·Msn 收录情况 </strong></TD>
								</TR>
								<TR>
									<TD bgcolor="#ffffff" height="50" valign="middle">
									<iframe frameborder=0 height="50" name=msn scrolling=no src="http://response.52.la/Manage/?sitename=<%=domain%>&site=msn&all=<%=request("all")%>" width=100% ></iframe>