index.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Config.asp" -->
<% MenuID=0 : OpenDB = False : Title = SiteName + " - 多功能查询" %>
<!--#include file="Inc/Menus.asp" -->
<br>
<!-------------------------------------------------------------------------->
<%  
Dim RedirectID,RedirectTrue
RedirectID=Request.Cookies(CookieName&"RedirectID")
RedirectTrue=Request.Cookies(CookieName&"RedirectTrue")
If RedirectID<>"" And IsNumeric(RedirectID) And RedirectTrue="" Then
	Response.Cookies(CookieName&"RedirectTrue")="True"
	Select Case RedirectID
		Case 0 Response.Redirect("Index.asp")
		Case 1 Response.Redirect("Cword.asp")
		Case 2 Response.Redirect("IpAddress.asp")
		Case 3 Response.Redirect("IP_To_Address.asp")
		Case 4 Response.Redirect("Address_To_IP.asp")
		Case 5 Response.Redirect("Number.asp")
		Case 6 Response.Redirect("Number_Mobile.asp")
		Case 7 Response.Redirect("Number_IDCode.asp")
		Case 8 Response.Redirect("Lives.asp")
		Case 9 Response.Redirect("Lives_ZipCode_Address.asp")
		Case 10 Response.Redirect("Lives_City_Area.asp")
		Case 11 Response.Redirect("Lives_Railroad_Train.asp")
		Case 12 Response.Redirect("Manage.asp")
	End Select
	Response.End()
End If
%>
<!----------------------------IP地址查询------------------------------------>  
<table width="592" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td>
	<fieldset>
      <legend><strong>IP地址所在地查询</strong></legend><br>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <form action="http://response.52.la/IP/ListAddress.asp" method="Post" target="myFrm_ip">
        <tr>
          <td align="center"><span class="TitleStr">查询的IP地址:</span>
		    <input name="ip" type="text" id="ip" size="33" maxlength="15">  
			<input name="Submit" type="Submit" value="查询IP" class="bt_mouseout" onmouseover="this.className='bt_mouseover'" onmouseout="this.className='bt_mouseout'" style="padding-top:0px">  
		  </td>
        </tr>
	  </form>
      </table>
      <br>
      <br>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
        <tr> 
          <td width="100%" height="50" align="center" valign="middle" bgcolor="#FFFFFF"> 
            <iframe src="http://Response.52.La/IP/" name="myFrm_ip" id="myFrm_ip" width="100%" height="100%" align="middle" frameborder="0"></iframe></td>
        </tr>
      </table>
      </fieldset>
    </td>
  </tr>
</table>
<br>&nbsp;<br>


<!-------------------------------------------------------------------------->
<!------------------------手机号码归属地查询-------------------------------->  
<table width="592" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td>
	<fieldset>
      <legend><strong>手机号码归属地</strong></legend><br>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <form action="http://Response.52.La/Mobile/" method="Post" target="myFrm_mobile" onSubmit="if (mobile.value==''){return false;} else {tb_mobile.style.visibility='visible';tb_mobile.height='60';}">
        <tr>
          <td align="center"><span class="TitleStr"><span class="TitleStr">手机号码:</span></span>
		    <input name="mobile" type="text" id="mobile" size="25" maxlength="11">  
			<input name="Submit" type="Submit" value="查询手机号码" class="bt_mouseout" onmouseover="this.className='bt_mouseover'" onmouseout="this.className='bt_mouseout'" style="padding-top:0px">  
		  </td>
        </tr>
	  </form>
      </table>
      <br>
      <br>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC" id="tb_mobile">
        <tr> 
          <td width="100%" height="25" align="center" valign="middle" bgcolor="#FFFFFF"> 
            <iframe src="http://Response.52.La/Mobile/" name="myFrm_mobile" id="myFrm_mobile" width="100%" height="100%" align="middle" frameborder="0"></iframe></td>
        </tr>
      </table>
      </fieldset>
    </td>
  </tr>
</table>
<br>&nbsp;<br>


<!-------------------------------------------------------------------------->
<!-------------------------------身份证号查询------------------------------->  
<table width="592" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td>
	<fieldset>
      <legend><strong>身份证号查询</strong></legend><br>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <form action="http://Response.52.La/IDCode/" method="Post" target="myFrm_idcode" onSubmit="if (idcode.value==''){return false;} else {tb_idcode.style.visibility='visible';tb_idcode.height='76';}">
        <tr>
          <td align="center"><span class="TitleStr">身份证号码:</span> 
            <input name="idcode" type="text" id="idcode" size="30">  
			<input name="Submit" type="Submit" value="查询此身份证" class="bt_mouseout" onmouseover="this.className='bt_mouseover'" onmouseout="this.className='bt_mouseout'" style="padding-top:0px">  
		  </td>
        </tr>
	  </form>
      </table>
      <br>
      <br>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC" id="tb_idcode">
        <tr> 
          <td width="100%" height="28" align="center" valign="middle" bgcolor="#FFFFFF"> 
            <iframe src="http://Response.52.La/IDCode/" name="myFrm_idcode" id="myFrm_idcode" width="100%" height="100%" align="middle" frameborder="0"></iframe></td>
        </tr>
      </table>
      </fieldset>
    </td>
  </tr>
</table>
<br>&nbsp;<br>


<!-------------------------------------------------------------------------->
<!-----------------------------成语词典------------------------------------->  
<table width="592" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td>
	<fieldset>
      <legend><strong>成语词典</strong></legend><br>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <form action="http://Response.52.La/CWord/" method="Post" target="myFrm_cword" onSubmit="if (cword.value==''){return false;} else {tb_cword.style.visibility='visible';tb_cword.height='110';}">
        <tr>
          <td width="20%" rowspan="2" align="center">&nbsp;</td>
          <td width="11%" height="25" align="center"><span class="TitleStr">关键字:</span> 
		  </td>
          <td width="69%" height="25"><input name="cword" type="text" id="cword" size="30">
            <input name="Submit" type="Submit" value="寻找成语" class="bt_mouseout" onMouseOver="this.className='bt_mouseover'" onMouseOut="this.className='bt_mouseout'" style="padding-top:0px"></td>
        </tr>
        <tr>
          <td height="25" align="center">&nbsp;</td>
          <td height="25">
		  <label for="incontent" onClick="cword.focus();" style="cursor:hand;">
		  <input name="incontent" type="checkbox" id="incontent" value="1" style="height:16px;width:16px;">
            同时在成语的典故（注释）里寻找？  
		  </label>
		  </td>
        </tr>
	  </form>
      </table>
      <br>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC" id="tb_cword">
        <tr> 
          <td width="100%" height="40" align="center" valign="middle" bgcolor="#FFFFFF"> 
            <iframe src="http://Response.52.La/CWord/" name="myFrm_cword" width="100%" height="100%" align="middle" frameborder="0" id="myFrm"></iframe></td>
        </tr>
      </table>
      </fieldset>
    </td>
  </tr>
</table>
<br>&nbsp;<br>

<!--#include file="Inc/Bottom.asp"-->