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

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

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

开发平台：

DOS

shengmanage.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"), "ssfig")
  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><head><title>省管理</title>
  24. <script>
  25. function IsDigit()
  26. {
  27.   return ((event.keyCode >= 48) && (event.keyCode <= 57));
  28. }
  29. </script>
  30. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  31. <link href="../images/css.css" rel="stylesheet" type="text/css">
  32. </head>
  33. <body>
  34. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  35. <form method="post" action="shengset.asp?action=update">
  36. <tr> 
  37. <td class="forumRowHighlight" colspan="5" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">省设置修改</font></b></td>
  38. </tr>
  39. <tr align=center> 
  40. <td class="forumRowHighlight" width="10%">序号</td>
  41. <td class="forumRowHighlight" width="30%">省名称</td>
  42. <td class="forumRowHighlight" width="30%">省编号</td>
  43. <td class="forumRowHighlight" width="20%">排序<br>(必填项，数字)</td>
  44. <td class="forumRowHighlight" width="10%">操作</td>
  45. </tr>
  46. <%
  47. Set rs = Server.CreateObject("ADODB.Recordset")
  48. rs.open "SELECT  * From province  order by shengorder",conn,1,1
  49. if rs.recordcount=0 then 
  50. %>
  51. <tr align=center>
  52. <td class="forumRowHighlight" colspan="5" align="center" width="100%">还没有添加省</td>
  53. </tr>
  54. <%
  55. else
  56.     do while not rs.eof
  57. %>
  58. <tr align=center> 
  59. <td class="forumRowHighlight" align=center><%=rs("ID")%></td>
  60. <td class="forumRowHighlight" align=center> 
  61. <input type="hidden" name="shengid" value="<%=rs("id")%>">
  62. <input class=text type="text" name="shengname" size="10" value="<%=trim(rs("shengname"))%>">
  63. </td>
  64. <td class="forumRowHighlight" align=center> 
  65. <input class=text type="text" name="shengno" size="10" value="<%=trim(rs("shengno"))%>" ONKEYPRESS="event.returnValue=IsDigit();" >
  66. </td>
  67. <td class="forumRowHighlight" align=center> 
  68. <input class=text type="text" name="shengorder" size="10" value="<%=rs("shengorder")%>" ONKEYPRESS="event.returnValue=IsDigit();" >
  69. </td>
  70. <td class="forumRowHighlight" align=center> 
  71. <a href="shengkill.asp?shengid=<%=rs("id")%>">删除</a> 
  72. </td>
  73. </tr>
  74. <%
  75. rs.MoveNext
  76. Loop
  77. %>
  78. <tr align=center> 
  79. <td class="forumRowHighlight" colspan="8" height=25 align="center" width="100%"> 
  80. <input type="submit" name="Submit2" value="保存修改" style="font-family: 宋体; font-size: 9pt">&nbsp; 
  81. <input type="reset" value="重新设定" style="font-family: 宋体; font-size: 9pt" name="重置" >
  82. </td>
  83. </tr>
  84. <%
  85. end if
  86. rs.close
  87. set rs=nothing
  88. conn.close
  89. set conn=nothing
  90. %>
  91. </form>
  92. </table><br>
  93. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  94. <tr> 
  95. <td class="forumRowHighlight" colspan="5" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">商品查讯</font></b></td>
  96. </tr>
  97. <form method="post" action="shengset.asp?action=add">
  98. <tr align=center> 
  99. <td class="forumRowHighlight" width=10% align=center>添加省 
  100. </td>
  101. <td class="forumRowHighlight" width=30% align=center> 
  102. <input class=text type="text" name="shengname" size="10">
  103. </td>
  104. <td class="forumRowHighlight" width=30% align=center> 
  105. <input class=text type="text" name="shengno" size="10" ONKEYPRESS="event.returnValue=IsDigit();">
  106. </td>
  107. <td class="forumRowHighlight" width=20% align=center> 
  108. <input class=text type="text" name="shengorder" size="10" ONKEYPRESS="event.returnValue=IsDigit();">
  109. </td>
  110. <td class="forumRowHighlight" width=10% align=center> 
  111. <input type="submit" name="Submit2" value="添加" style="font-family: 宋体; font-size: 9pt">
  112. </td>
  113. </tr>
  114. </form>
  115. </table>
  116. </body>
  117. </html>