⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 get_zip.asp

📁 泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.
💻 ASP
字号:
<!-- #include virtual="/common/BombConnDB.asp" -->
<html>
<head>
<title>快祈锅龋 八祸</title>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr">
<script language="JavaScript">
<!--
function update_home(i)
{
	var firstWin = window.opener ;	
	var straddr = document.form1.post_no[i].text
	var index = straddr.indexOf(":")
	if (index != -1) 
		straddr2 = straddr.substr(0, index);
	else
		straddr2 = straddr;
	opener.user_regist.addr1.value = straddr2;
	opener.user_regist.zip1.value = document.form1.post_no[i].value.substring (0, 3);
	opener.user_regist.zip2.value = document.form1.post_no[i].value.substring (4, 7);
	opener.user_regist.addr2.focus ();
	window.close();
}

function data_update (type)
{
		update_home (document.form1.post_no.selectedIndex);
}

function prv()
{
		history.back();
}
//-->
</script>
<link rel="stylesheet" href="../common/css/bomb.css" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
str = Request("str")
sql = "SELECT * "
sql = sql & "FROM	Zipcode "
sql = sql & "WHERE	 Dong LIKE '%" & str & "%'"

set rs = Dbcon.execute ( sql)
if not rs.EOF then
%>

<form name="form1">
<table width="360" border="0" cellspacing="0" cellpadding="0">
  <tr> 
      <td><img src="images/zip_search_title.gif"></td>
  </tr>
  <tr> 
    <td> 
        <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center" height="145">
          <tr> 
          <td> 
              <div align="center" class="tabletext01"> 
                <p><br>
                  酒贰吝俊 急琶窍技夸.<br>
                </p>
              </div>
          </td>
        </tr>
        <tr> 
          <td> 
            <div align="center">
				<select width=100 name="post_no">
				<%
				while not rs.EOF 
					addr_str = rs("Do") & " " & rs("Si") & " " & " " & rs("Dong") & " : "
					pnf = left(rs("Zipcode"),3)
						if len(pnf)=1 then	pnf = "00" & pnf 
						if len(pnf)=2 then	pnf = "0" & pnf 
					pns = right(rs("Zipcode"),3)
						if len(pns)=1 then	pns = "00" & pns
						if len(pns)=2 then	pns = "0" & pns 
				%>
					<option value="<%=pnf%>-<%=pns%>"><%=addr_str%>
				<%
					rs.MoveNext
				wend
				%>
				</select>
				<input type=hidden name=address value="<%=addr_str%>">
            </div>
          </td>
        </tr>
        <tr> 
          <td> 
            <div align="center">
                <table width="50%" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                  <td> 
                    <div align="center">
                        <input type=image src="images/zip_select.gif" onclick="data_update('<%=request("type")%>');" border="0">
                      </div>
                  </td>
                  <td> 
                    <div align="center">
                        <input type=image src="images/zip_cancel.gif" onclick="window.close();" border="0">
                      </div>
                  </td>
                </tr>
              </table>
            </div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td bgcolor="#999999">&nbsp;</td>
  </tr>
</table>
</form>
<%
else
%>
<script language="JavaScript">
	alert("茫栏矫绰 沥焊啊 绝嚼聪促.\n\n促矫 八祸秦焊技夸.");
	history.back();
</script>
<%
end if
rs.close
Dbcon.close
%>
<p>&nbsp;<br></p>
</body>
</html>

⌨️ 快捷键说明

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