<!--#include file="../Inc/Conn.asp"-->
<!--#include file="../Inc/Function.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>99Fad.cn 搜索结果 - IP地址查询|手机号码归属地查询|邮政编码查询|长途电话区号查询|身份证号码验证专业在线查询网</title>
<link href="/Skins/Style_1.css" rel="stylesheet" type="text/css">
<STYLE type=text/css>
A:link {
	COLOR: #1c5f82; TEXT-DECORATION: none
}
A:visited {
	COLOR: #1c5f82; TEXT-DECORATION: none
}
A:hover {
	COLOR: #cc5533; TEXT-DECORATION: underline
}
.subt {
	COLOR: #FF0000; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
.tdc {
	COLOR: #333333; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
.tdc1 {
	COLOR: #ffffff; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
.tdc2 {
	COLOR: #008000; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
.bdtj {
	BACKGROUND: #3B6DC4; BORDER-BOTTOM: #3B6DC4 1px solid; BORDER-LEFT: #3B6DC4 1px solid; BORDER-RIGHT: #3B6DC4 1px solid; BORDER-TOP: #3B6DC4 1px solid; COLOR: #ffffff; FONT-SIZE: 9pt; HEIGHT: 18px
}
BODY {
	SCROLLBAR-HIGHLIGHT-COLOR: #f7f7f7; SCROLLBAR-SHADOW-COLOR: #f7f7f7; SCROLLBAR-ARROW-COLOR: #EFF1F3; SCROLLBAR-TRACK-COLOR: #EFF1F3; SCROLLBAR-BASE-COLOR: #f7f7f7
}
.sorry {
	BACKGROUND: #3B6DC4; BORDER-BOTTOM: #3B6DC4 1px solid; BORDER-LEFT: #3B6DC4 1px solid; BORDER-RIGHT: #3B6DC4 1px solid; BORDER-TOP: #3B6DC4 1px solid; COLOR: #ffffff; FONT-SIZE: 12pt; HEIGHT: 18px
}
.tdc4 {COLOR: #333333; FONT-SIZE: 9pt
}
</STYLE>
<script language=javascript>
function checkArea2yz(){
	var sArea = document.area2zipForm.dm_yzbm.value
	if(sArea==""){
		alert("请输入地名");
		document.area2zipForm.dm_yzbm.focus();
		return false;
	}
	window.open('', 'searchwindow', ',')
}
function checkArea2Zone(){
	var sArea = document.area2zoneForm.dm_dhqh.value
	if(sArea==""){
		alert("请输入地名");
		document.area2zoneForm.dm_dhqh.focus();
		return false;
	}
	window.open('', 'searchwindow', ',')
}
function checkZip(){
	var sZip = document.zipform.yzbm_dm.value
	if(!(/^\d{4,6}$/.test(sZip))){
		alert("请输入邮政编码前4-6位");
		document.zipform.yzbm_dm.focus();
		return false;
	}
	window.open('', 'searchwindow', ',')
}
function checkZone(){
	var sZone = document.zoneform.dhqh_dm.value
	if(!(/^0\d{2,4}$/.test(sZone))){
		alert("请输入3位或者4位区号");
		document.zoneform.dhqh_dm.focus();
		return false;
	}
	window.open('', 'searchwindow', ',')
}
</script>
</head>

<body>
<font class="tdc4">
<!--#include virtual="/Inc/Head.asp" -->
</font>
<%if request("act")="" then%>
<table width="770"  border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#F0F0F0">
  <tr>
    <td><table width="100%" border="1" align="center" cellpadding="4" bordercolor="#cacaca" bgcolor="#FFFFFF" style="BORDER-COLLAPSE: collapse">
      <tr>
        <td height="24" colspan="4" align="center"><strong><font color="#330066"><span style="font-size:14.8px"><font color="#000099"><strong>邮政编码查询</strong></font></span>(<a href="/Tools/yblb" class="Red">→详细列表式查询</a> <a href="/Tools/yzbm">按地图查询</a>)</font></strong></td>
      </tr>
      <tr class="tdc">
        <form action="./?act=dm_yzbm" method="post" name="area2zipForm" target="searchwindow" id="area2zipForm" onsubmit="return checkArea2yz();">
          <td width="80" align="middle" noswap="noswap">地名查询邮编</td>
          <td align="middle"><input name="Action" type="hidden" value="area2zip" />
                <input name="dm_yzbm" class="tdc" id="dm_yzbm" value="请输入地名" size="16" onfocus="this.value=''" />
            &nbsp;
            <input name="Submit" type="submit" class="bdtj" id="Submit" value="地名→邮编" /></td>
        </form>
        <form action="./?act=yzbm_dm" method="post" name="zipform" target="searchwindow" id="zipform" onsubmit="return checkZip();">
          <td width="80" align="middle" noswap="noswap">邮编查询地名</td>
          <td align="middle"><input name="Action" type="hidden" value="zip2area" />
                <input name="yzbm_dm" class="tdc" id="yzbm_dm" value="请输入邮编" size="16" onfocus="this.value=''" />
            &nbsp;
            <input name="Submit" type="submit" class="bdtj" id="Submit" value="邮编→地名" />
          </td>
        </form>
      </tr>
      <tr class="tdc">
        <form action="./?act=dm_dhqh" method="post" name="area2zoneForm" target="searchwindow" id="area2zoneForm" onsubmit="return checkArea2Zone();">
          <td width="80" align="middle" noswap="noswap">地名查询区号</td>
          <td align="middle"><input name="Action" type="hidden" value="area2zone" />
                <input name="dm_dhqh" class="tdc" id="dm_dhqh"  onfocus="this.value=''" value="请输入地名" size="16" />
            &nbsp;
            <input name="Submit" type="submit" class="bdtj" id="Submit" value="地名→区号" />
          </td>
        </form>
        <form action="./?act=dhqh_dm" method="post" name="zoneform" target="searchwindow" id="zoneform" onsubmit="return checkZone();">
          <td width="80" align="middle" noswap="noswap">区号查询地名</td>
          <td align="middle"><input name="Action" type="hidden" value="zone2area" />
                <input name="dhqh_dm" class="tdc" id="dhqh_dm" value="请输入区号" size="16" onfocus="this.value=''" />
            &nbsp;
            <input name="Submit" type="submit" class="bdtj" id="Submit" value="区号→地名" /></td>
        </form>
      </tr>
    </table></td>
  </tr>
</table>
<%
end if
%>
<%if request("act")="dm_yzbm" then%>
<table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="50">
	<table width="770" border="1" align="center" cellpadding="4" bordercolor="#cacaca" bgcolor="#FFFFFF" style="BORDER-COLLAPSE: collapse">
      <tr class="tdc">
        <form action="./?act=dm_yzbm" method="post" name="area2zipForm" target="searchwindow" id="area2zipForm">
          <td width="80" align="middle" noswap="noswap">地名查询邮编</td>
          <td align="middle"><input name="Action" type="hidden" value="area2zip" />
              <input name="dm_yzbm" type="text" id="dm_yzbm" style="border:1px solid #666666; color:#000000; height:20px; " value="<%=request("dm_yzbm")%>" size="16" maxlength="250" onfocus="this.value=''" />
            &nbsp;
            <input name="Submit" type="submit" class="bdtj" id="Submit" value="地名→邮编" /></td>
        </form>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td> 
      <%
if request("dm_yzbm")&""="" then
Response.Write("<script language=""JavaScript"">alert(""错误：请输入查询项目！！"");history.go(-1);</script>")
response.end
end if

Set objRs=Server.CreateObject("ADODB.RecordSet")
strSql="select * from Free_Yzbm where dc like '"&sqlchk(request("dm_yzbm"),0)&"%' or city like '"&sqlchk(request("dm_yzbm"),0)&"%'"
objRs.Open strSql,strConn,1,1
if objRs.Eof then
response.Write "&nbsp;<p align='center' class='sorry'>您所查的信息没有找到<br>请确认是否输入错误</p>"
else
while not objRs.eof 
%>
      <TABLE width=770 align="center" cellpadding="0" cellspacing="0" bordercolor=#3366cc style="border:1px solid #C2C2C2">
        <TR>
          <TD height=3></TD>
        </TR>
        <TR> 
          <TD colspan=2 class=tdc1 align=center height=24 bgcolor=#3B6DC4>++* 
            信息查询结果 *++</TD>
        </TR>
        <TR> 
          <TD colspan="2" align="center" noswap class=tdc2><TABLE width="70%">
              <TR> 
                <TD class=tdc2>你所查询的地名 ：<span class="subt"> <%=request("dm_yzbm")%> 
                </span></TD>
              </TR>
            </TABLE>
            <TABLE width="70%">
              <TR> 
                <TD class=tdc2> 邮政编码 : &nbsp;<%= objrs("yzbm")%> </TD>
              </TR>
            </TABLE>
            <TABLE width="70%">
              <TR> 
                <TD height="20" class=tdc2> 所属地区 : &nbsp;<%= objrs("PROVINCE")%> 
                  <%= objrs("city")%> <%= objrs("dc")%> </TD>
              </TR>
            </TABLE></TD>
        </TR>
      </TABLE>
      <%
objRs.Movenext
wend 
end if
objRs.close
set objRs=Nothing
%>
    </td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<%
end if
%>
<%if request("act")="yzbm_dm" then%> 
<table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="50"><table width="770" border="1" align="center" cellpadding="4" bordercolor="#cacaca" bgcolor="#FFFFFF" style="BORDER-COLLAPSE: collapse">
      <tr class="tdc">
        <form action="./?act=yzbm_dm" method="post" name="zipform" target="searchwindow" id="zipform">
          <td width="80" align="middle" noswap="noswap">邮编查询地名</td>
          <td align="middle"><input name="Action" type="hidden" value="zip2area" />
              <input name="yzbm_dm" class="tdc" id="yzbm_dm" value="<%=request("yzbm_dm")%>" size="16" onfocus="this.value=''" />
            &nbsp;
            <input name="Submit" type="submit" class="bdtj" id="Submit" value="邮编→地名" />
          </td>
        </form>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td>
      <%
if request("yzbm_dm")&""="" then
Response.Write("<script language=""JavaScript"">alert(""错误：请输入查询项目！！"");history.go(-1);</script>")
response.end
end if

Set objRs=Server.CreateObject("ADODB.RecordSet")
strSql="select * from Free_Yzbm where YZBM like '%"&sqlchk(request("yzbm_dm"),0)&"%'"
objRs.Open strSql,strConn,1,3
if objRs.Eof then
response.Write "&nbsp;<p align='center' class='sorry'>您所查的信息没有找到<br>请确认是否输入错误</p>"
else
while not objRs.eof 
%>
      <TABLE width=770 border="1" align="center" cellpadding="4" bordercolor=#3366cc style="border-collapse: collapse">
        <TR> 
          <TD colspan=2 class=tdc1 align=center height=24 bgcolor=#3B6DC4>++* 
            信息查询结果 *++</TD>
        </TR>
        <TR> 
          <TD colspan="2" align="center" noswap class=tdc2><TABLE width="70%">
              <TR> 
                <TD height="20" class=tdc2>你所查询的邮编：<span class="subt"> <%=request("yzbm_dm")%></span><span class="style5"> 
                </span><span class="style5"> </span></TD>
              </TR>
            </TABLE>
            <TABLE width="70%">
              <TR>
                <TD height="20" class=tdc2> 完整邮政编码 : &nbsp;<%= objrs("Yzbm")%></TD>
              </TR>
            </TABLE>
            <TABLE width="70%">
              <TR> 
                <TD height="20" class=tdc2> 所属地区 : &nbsp;<%= objrs("PROVINCE")%> 
                  <%= objrs("city")%> <%= objrs("dc")%></TD>
              </TR>
            </TABLE></TD>
        </TR>
      </TABLE>
      <%
objRs.Movenext
wend 
end if
objRs.close
set objRs=Nothing
%>
    </td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<%
end if
%>

<%if request("act")="dm_dhqh" then%> 
<table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="50"><table width="770" border="1" align="center" cellpadding="4" bordercolor="#cacaca" bgcolor="#FFFFFF" style="BORDER-COLLAPSE: collapse">
      <tr class="tdc">
        <form action="./?act=dm_dhqh" method="post" name="area2zoneForm" target="searchwindow" id="area2zoneForm">
          <td width="80" align="middle" noswap="noswap">地名查询区号</td>
          <td align="middle"><input name="Action3" type="hidden" value="area2zone" />
              <input name="dm_dhqh" class="tdc" id="dm_dhqh"  onfocus="this.value=''" value="<%=request("dm_dhqh")%>" size="16" />
            &nbsp;
            <input name="Submit2" type="submit" class="bdtj" id="Submit2" value="地名→区号" />
          </td>
        </form>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td>
      <%
if request("dm_dhqh")&""="" then
Response.Write("<script language=""JavaScript"">alert(""错误：请输入查询项目！！"");history.go(-1);</script>")
response.end
end if

Set objRs=Server.CreateObject("ADODB.RecordSet")
strSql="select * from Free_Yzbm where dc like '"&sqlchk(request("dm_dhqh"),0)&"%' or city like '"&sqlchk(request("dm_dhqh"),0)&"%'"
objRs.Open strSql,strConn,1,3
if objRs.Eof then
response.Write "&nbsp;<p align='center' class='sorry'>您所查的信息没有找到<br>请确认是否输入错误</p>"
else
while not objRs.eof 
%>
      <TABLE width=770 border="1" align="center" cellpadding="4" bordercolor=#3366cc style="border-collapse: collapse">
        <TR> 
          <TD colspan=2 class=tdc1 align=center height=24 bgcolor=#3B6DC4>++* 
            信息查询结果 *++</TD>
        </TR>
        <TR> 
          <TD colspan="2" align="center" noswap class=tdc2><TABLE width="70%">
              <TR> 
                <TD class=tdc2>你所查询的地名 ：<span class="subt"> <%=request("dm_dhqh")%> 
                </span></TD>
              </TR>
            </TABLE>
            <TABLE width="70%">
              <TR> 
                <TD class=tdc2> 区&nbsp;&nbsp;&nbsp;号 : <span class="font14">&nbsp;</span> 
                  <%= objrs("dhqh")%> 
                  <%'= objrs("city")%>
                  &nbsp; 
                  <%'= objrs("address")%>
                </TD>
              </TR>
            </TABLE>
            <TABLE width="70%">
              <TR> 
                <TD height="20" class=tdc2> 所属地区 : &nbsp;<%= objrs("PROVINCE")%> 
                  <%= objrs("city")%> <%= objrs("dc")%> </TD>
              </TR>
            </TABLE></TD>
        </TR>
      </TABLE> 
      <%
objRs.Movenext
wend 
end if
objRs.close
set objRs=Nothing
%>
    </td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<%
end if
%>
<%if request("act")="dhqh_dm" then%> 
<table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="50"><table width="770" border="1" align="center" cellpadding="4" bordercolor="#cacaca" bgcolor="#FFFFFF" style="BORDER-COLLAPSE: collapse">
      <tr class="tdc">
        <form action="./?act=dhqh_dm" method="post" name="zoneform" target="searchwindow" id="zoneform">
          <td width="80" align="middle" noswap="noswap">区号查询地名</td>
          <td align="middle"><input name="Action4" type="hidden" value="zone2area" />
              <input name="dhqh_dm" class="tdc" id="dhqh_dm" value="<%=request("dhqh_dm")%>" size="16" onfocus="this.value=''" />
            &nbsp;
            <input name="Submit3" type="submit" class="bdtj" id="Submit3" value="区号→地名" /></td>
        </form>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td>
      <%
if request("dhqh_dm")&""="" then
Response.Write("<script language=""JavaScript"">alert(""错误：请输入查询项目！！"");history.go(-1);</script>")
response.end
end if

Set objRs=Server.CreateObject("ADODB.RecordSet")
strSql="select * from Free_Yzbm where DHQH like '%"&sqlchk(request("dhqh_dm"),0)&"%'"
objRs.Open strSql,strConn,1,3
if objRs.Eof then
response.Write "&nbsp;<p align='center' class='sorry'>您所查的信息没有找到<br>请确认是否输入错误</p>"
else
while not objRs.eof 
%>
      <TABLE width=770 border="1" align="center" cellpadding="4" bordercolor=#3366cc style="border-collapse: collapse">
        <TR> 
          <TD colspan=2 class=tdc1 align=center height=24 bgcolor=#3B6DC4>++* 
            信息查询结果 *++</TD>
        </TR>
        <TR> 
          <TD colspan="2" align="center" noswap class=tdc2><TABLE width="70%">
              <TR> 
                <TD class=tdc2>你所查询的区号：<span class="subt"> <%=request("dhqh_dm")%> 
                </span><span class="style5"> </span></TD>
              </TR>
            </TABLE>
            <TABLE width="70%">
              <TR>
                <TD class=tdc2> 完整区号 : <span class="font14">&nbsp;</span> <%= objrs("dhqh")%></TD>
              </TR>
            </TABLE>
            <TABLE width="70%">
              <TR> 
                <TD class=tdc2> 地&nbsp;名 : <span class="font14">&nbsp;</span> 
                  <%= objrs("PROVINCE")%> <%= objrs("city")%> <%= objrs("dc")%> </TD>
              </TR>
            </TABLE>
            <TABLE width="70%">
              <TR> 
                <TD height="20" class=tdc2> 所属地区 : &nbsp;<%= objrs("PROVINCE")%> 
                  <%= objrs("city")%> </TD>
              </TR>
            </TABLE></TD>
        </TR>
      </TABLE> 
      <%
objRs.Movenext
wend 
end if
objRs.close
set objRs=Nothing
%>
    </td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<%
end if
%>
<br>
<!--#include virtual="/Inc/Foot.asp" -->
</body>
</html>
