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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Java编程 > Jsp/Servlet > 查看源码
delivery.asp
资源名称：blog.rar　[点击查看]
上传用户：syzzy1975
上传日期：2022-07-17
资源大小：670k
文件大小：9k
源码类别：

Jsp/Servlet

开发平台：

Java

delivery.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%
  4. %><!--#include file="inc/config.asp"-->
  5. <!--#include file="inc/conn.asp"--> 
  6. <!--#include file="inc/chk.asp"--> 
  7. <%
  8. if session("rank")>1 then
  9. call Msgbox("对不起，您的权限不够！","Back","None")
  10. response.End
  11. end if
  12. %>
  15. <%
  16. dim action,deliveryid
  17. deliveryid=request.QueryString("id")
  18. action=request.QueryString("action")
  19. set rs=server.CreateObject("adodb.recordset")
  20. select case action
  22. case "deliverysave"
  23. rs.open "select * from delivery where deliveryid="&deliveryid,conn,1,3
  24. rs("subject")=trim(request("subject"))
  25. rs("deliveryidorder")=request("deliveryidorder")
  26. rs("fee")=request("fee")
  27. rs("methord")=0
  28. rs.update
  29. rs.close
  30. call MsgBox("成功修改了送货方式！","GoUrl","delivery.asp?action=delivery")
  31. response.End
  33. case "deliveryadd"
  34. rs.open "select * from delivery",conn,1,3
  35. rs.addnew
  36. rs("subject")=trim(request("subject"))
  37. rs("deliveryidorder")=request("deliveryidorder")
  38. rs("fee")=request("fee")
  39. rs("methord")=0
  40. rs.update
  41. rs.close
  42. call MsgBox("成功添加了新的送货方式！","GoUrl","delivery.asp?action=delivery")
  43. response.End
  45. case "deliverydel"
  46. conn.execute "delete from delivery where deliveryid="&deliveryid
  47. response.redirect "delivery.asp?action=delivery"
  49. case "zhifudel"
  50. conn.execute "delete from delivery where deliveryid="&deliveryid
  51. response.redirect "delivery.asp?action=zhifu"
  53. case "zhifusave"
  54. rs.open "select * from delivery where deliveryid="&deliveryid,conn,1,3
  55. rs("subject")=trim(request("subject"))
  56. rs("deliveryidorder")=request("deliveryidorder")
  57. rs("methord")=1
  58. rs.update
  59. rs.close
  60. call MsgBox("成功修改了支付方式！","GoUrl","delivery.asp?action=zhifu")
  61. response.End
  63. case "zhifuadd"
  64. rs.open "select * from delivery",conn,1,3
  65. rs.addnew
  66. rs("subject")=trim(request("subject"))
  67. rs("deliveryidorder")=request("deliveryidorder")
  68. rs("methord")=1
  69. rs.update
  70. rs.close
  71. call MsgBox("成功添加了新的支付方式！","GoUrl","delivery.asp?action=zhifu")
  73. response.End
  74. end select
  75. set rs=nothing
  76. %>
  78. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  79. <html>
  80. <head>
  81. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  82. <title>406网络书店</title>
  83. <link href="../style.css" rel="stylesheet" type="text/css">
  86. </head>
  88. <body>
  89. <!--#include file="head.htm"-->
  91. <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  92.   <tr>
  93.     <td width="219" align="left" valign="top"><br>
  94.       <!--#include file="menu.htm"-->
  96.         <br></td><td width="561" align="left" valign="top">
  97.       <br>      <table border="0" cellpadding="0" cellspacing="0">
  98.         <tr>
  99.           <td><img src="../images/w.gif" width="18" height="18"></td>
  100.           <td style="color:#415373">送货/汇款设置</td>
  101.         </tr>
  102.       </table>      <br>      <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
  103.         <tr align="center" height="20">
  104.           <td><a href="?action=delivery">修改送货方式</a></td>
  105.           <td><a href="?action=zhifu">修改支付方式</a></td>
  106.         </tr>
  107.         <tr>
  108.           <td height="100" colspan="2"><br>
  109.               <%
  110.   select case action
  111. case "delivery"%>
  112.               <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
  113.                 <tr align="center" height="20">
  114.                   <td width="30%">送货方式</td>
  115.                   <td width="25%">加收金额</td>
  116.                   <td width="20%">排 序</td>
  117.                   <td width="25%">操 作 </td>
  118.                 </tr>
  119.                 <%dim i,j
  120. set rs=server.CreateObject("adodb.recordset")
  121. rs.open "select * from delivery where methord=0 order by deliveryidorder",conn,1,1
  122. i=rs.recordcount
  123. do while not rs.eof%>
  124.                 <tr align="center">
  125.                   <form name="form1" method="post" action="delivery.asp?action=deliverysave&id=<%=rs("deliveryid")%>">
  126.                     <td><input name="subject" type="text" id="subject" size="14" value=<%=trim(rs("subject"))%>></td>
  127.                     <td><input name="fee" type="text" id="fee" size="4" value=<%=rs("fee")%> onKeyPress = "return regInput(this, /^d*.?d{0,2}$/, String.fromCharCode(event.keyCode))" 
  128. onpaste = "return regInput(this, /^d*.?d{0,2}$/, window.clipboardData.getData('Text'))"
  129. ondrop = "return regInput(this, /^d*.?d{0,2}$/, event.dataTransfer.getData('Text'))">
  130.                       元</td>
  131.                     <td><input name="deliveryidorder" type="text" id="deliveryidorder" size="2" value=<%=rs("deliveryidorder")%> onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
  132. onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
  133. ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
  134.                     <td><input type="submit" name="Submit" value="修 改">
  135. &nbsp;<a href="delivery.asp?action=deliverydel&id=<%=rs("deliveryid")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</font></a> </td>
  136.                   </form>
  137.                 </tr>
  138.                 <%rs.movenext
  139. loop
  140. rs.close
  141. set rs=nothing%>
  142.                 <tr align="center">
  143.                   <form name="form2" method="post" action="delivery.asp?action=deliveryadd">
  144.                     <td><input name="subject" type="text" id="subject" size="14"></td>
  145.                     <td><input name="fee" type="text" id="fee" size="4" onKeyPress = "return regInput(this, /^d*.?d{0,2}$/, String.fromCharCode(event.keyCode))" 
  146. onpaste = "return regInput(this, /^d*.?d{0,2}$/, window.clipboardData.getData('Text'))"
  147. ondrop = "return regInput(this, /^d*.?d{0,2}$/, event.dataTransfer.getData('Text'))">
  148.                     元</td>
  149.                     <td><input name="deliveryidorder" type="text" id="deliveryidorder" value=<%=i+1%> size="2" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
  150. onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
  151. ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
  152.                     <td><input type="submit" name="Submit3" value="添 加"></td>
  153.                   </form>
  154.                 </tr>
  155.             </table>
  156.               <%case "zhifu"%>
  157.               <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
  158.                 <tr align="center" height="20">
  159.                   <td width="40%">支付方式</td>
  160.                   <td width="30%">排 序</td>
  161.                   <td width="30%">操作</td>
  162.                 </tr>
  163.                 <%set rs=server.CreateObject("adodb.recordset")
  164.   rs.open "select * from delivery where methord=1 order by deliveryidorder",conn,1,1
  165.   j=rs.recordcount
  166.   do while not rs.eof%>
  167.                 <tr align="center">
  168.                   <form name="form1" method="post" action="delivery.asp?action=zhifusave&id=<%=rs("deliveryid")%>">
  169.                     <td><input name="subject" type="text" id="subject" size="14" value=<%=trim(rs("subject"))%>></td>
  170.                     <td><input name="deliveryidorder" type="text" id="deliveryidorder" size="2" value=<%=rs("deliveryidorder")%> onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
  171. onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
  172. ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
  173.                     <td><input type="submit" name="Submit2" value="确 认">
  174. &nbsp;<a href="delivery.asp?action=zhifudel&id=<%=rs("deliveryid")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</font></a> </td>
  175.                   </form>
  176.                   <%rs.movenext
  177.   loop
  178.   rs.close
  179.   set rs=nothing%>
  180.                 </tr>
  181.                 <tr align="center">
  182.                   <form name="form1" method="post" action="delivery.asp?action=zhifuadd">
  183.                     <td><input name="subject" type="text" id="subject" size="14"></td>
  184.                     <td><input name="deliveryidorder" type="text" id="deliveryidorder" value=<%=j+1%> size="2" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
  185. onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
  186. ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
  187.                     <td><input type="submit" name="Submit32" value="添 加"></td>
  188.                   </form>
  189.                 </tr>
  190.             </table>
  191.               <%end select%>
  192.               <br>
  193.           </td>
  194.         </tr>
  195.       </table>      <br>      <br>
  196.       </td>
  197.   </tr>
  198. </table>
  199. <!--#include file="foot.htm"-->
  200. </body>
  201. </html>