开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
managezipcode.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：3k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

managezipcode.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <%
  3. dim cls
  4. if session("admin")="" then
  5. Response.Redirect("admin.asp")
  6. else
  7. if session("flag")<>"0" then
  9. cls = Instr(session("flag"), "codefig")
  10. if cls <= 0 then
  11. %>
  12. <script language="javascript">
  13. if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
  14.   location.href="login.asp";
  15. else
  16.   location.href="index.asp";
  17. </script>
  18. <%
  19. end if
  20. end if
  21. end if
  22. %>
  23. <html>
  24. <head>
  25. <script>
  26. function IsDigit()
  27. {
  28.   return ((event.keyCode >= 48) && (event.keyCode <= 57));
  29. }
  30. </script>
  31. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  32. <link href="../images/css.css" rel="stylesheet" type="text/css">
  33. </head>
  34. <body>
  36. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  37. <form method="post" action="setzipcode.asp?action=update">
  38. <tr> 
  39. <td colspan="4" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">“送货上门”邮编设置</font></b></td>
  40. </tr>
  41. <tr align=center > 
  42. <td width="20%" bgcolor="fbc2c2">序 号</td>
  43. <td width="30%" bgcolor="fbc2c2">地 点</td>
  44. <td width="30%" bgcolor="fbc2c2">邮 编</td>
  45. <td width="20%" bgcolor="fbc2c2">操 作</td>
  46. </tr>
  47. <%
  48. Set rs = Server.CreateObject("ADODB.Recordset")
  49. rs.open "SELECT  * FROM zipcode  order by id",conn,1,1
  50. if rs.recordcount=0 then 
  51. %>
  52. <tr> 
  53. <td colspan="4" align="center" width="100%"> 还没有添加邮编</td>
  54. </tr>
  55. <%
  56. else
  57.     do while not rs.eof
  58. %>
  59. <tr> 
  60. <td align=center><%=rs("ID")%></td>
  61. <td align=center> 
  62. <input type="hidden" name="id" value="<%=rs("id")%>">
  63. <input class=text type="text" name="dizhiname" size="16" value="<%=trim(rs("dizhiname"))%>">
  64. </td>
  65. <td align=center> 
  66. <input class=text type="text" name="youbian" size="10" value="<%=rs("youbian")%>" ONKEYPRESS="event.returnValue=IsDigit();" >
  67. </td>
  68. <td align=center> 
  69. <a href="delzipcode.asp?id=<%=rs("id")%>">删除</a> 
  70. </td>
  71. </tr>
  72. <%
  73. rs.MoveNext
  74. Loop
  75. %>
  76. <tr> 
  77. <td colspan="4" align="center" width="100%"> 
  78. <input type="submit" name="Submit2" value="保存修改" style="font-family: 宋体; font-size: 9pt">&nbsp;
  79. <input type="reset" value="重新设定" style="font-family: 宋体; font-size: 9pt" name="重置">
  80. </td>
  81. </tr>
  82. <%
  83. end if
  84. rs.close
  85. set rs=nothing
  86. conn.close
  87. set conn=nothing
  88. %>
  89. </form>
  90. </table><br>
  91. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  92. <tr> 
  93. <td colspan="4" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">添加邮编</font></b></td>
  94. </tr>
  95. <form method="post" action="setzipcode.asp?action=add">
  96. <tr > 
  97. <td width="20%" align=center>添加邮编</td>
  98. <td width="30%" align=center> <input class=text type="text" name="dizhiname" size="16"></td>
  99. <td width="30%" align=center> <input class=text type="text" name="youbian" size="10" ONKEYPRESS="event.returnValue=IsDigit();"></td>
  100. <td width="20%" align=center> <input type="submit" name="Submit2" value="添加" style="font-family: 宋体; font-size: 9pt"></td>
  101. </tr>
  102. </form>
  103. </table>
  104. <!--#include file="foot.asp"-->
  105. </body>
  106. </html>