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

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

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

开发平台：

DOS

manageremit.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <html>
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  5. <link href="../images/css.css" rel="stylesheet" type="text/css">
  6. </head>
  7. <body>
  8. <%
  9. dim cls
  10. if session("admin")="" then
  11. Response.Redirect("admin.asp")
  12. else
  13. if session("flag")<>"0" then
  15. cls = Instr(session("flag"), "songhuofig")
  16. if cls <= 0 then
  17. %>
  18. <script language="javascript">
  19. if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
  20.   location.href="login.asp";
  21. else
  22.   location.href="index.asp";
  23. </script>
  24. <%
  25. end if
  26. end if
  27. end if
  28. %>
  29. <%dim action,songid
  30. songid=request.QueryString("id")
  31. if songid<>"" then
  32. if not isnumeric(songid) then 
  33. response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
  34. response.end
  35. end if
  36. end if
  37. action=request.QueryString("action")
  38. set rs=server.CreateObject("adodb.recordset")
  39. select case action
  40. case "songhuosave"
  41. rs.open "select * from deliver where songid="&songid,conn,1,3
  42. rs("subject")=trim(request("subject2"))
  43. rs("songidorder")=request("songidorder2")
  44. rs("jsmoney")=request("jsmoney")
  45. rs("fangshi")=0
  46. rs.update
  47. rs.close
  48. response.write "<script language=javascript>alert('送货方式成功修改！');history.go(-1);</script>"
  49. response.End
  50. case "songhuoadd"
  51. rs.open "select * from deliver",conn,1,3
  52. rs.addnew
  53. rs("subject")=trim(request("subject"))
  54. rs("songidorder")=request("songidorder")
  55. rs("jsmoney")=request("jsmoney")
  56. rs("fangshi")=0
  57. rs.update
  58. rs.close
  59. response.write "<script language=javascript>alert('新的送货方式成功添加！');history.go(-1);</script>"
  60. response.End
  61. case "songhuodel"
  62. conn.execute "delete from deliver where songid="&songid
  63. response.redirect "manageremit.asp?action=songhuo"
  64. case "zhifudel"
  65. conn.execute "delete from deliver where songid="&songid
  66. response.redirect "manageremit.asp?action=zhifu"
  67. case "zhifusave"
  68. rs.open "select * from deliver where songid="&songid,conn,1,3
  69. rs("subject")=trim(request("subject"))
  70. rs("songidorder")=request("songidorder")
  71. rs("fangshi")=1
  72. rs.update
  73. rs.close
  74. response.write "<script language=javascript>alert('支付方式成功修改！');history.go(-1);</script>"
  75. response.End
  76. case "zhifuadd"
  77. rs.open "select * from deliver",conn,1,3
  78. rs.addnew
  79. rs("subject")=trim(request("subject"))
  80. rs("songidorder")=request("songidorder")
  81. rs("fangshi")=1
  82. rs.update
  83. rs.close
  84. response.write "<script language=javascript>alert('新的支付方式成功添加！');history.go(-1);</script>"
  85. response.End
  86. end select
  87. set rs=nothing
  88. %>
  89. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  90. <tr>
  91. <td  align="center" background="../images/admin_bg_1.gif"><b><a href="manageremit.asp?action=songhuo"><font color="#ffffff">点击>修改送货方式</font></a></b></td>
  92. <td  align="center" background="../images/admin_bg_1.gif"><b><a href="manageremit.asp?action=zhifu"><font color="#ffffff">点击>修改支付方式</font></a></b></td>
  93. </tr>
  94. <tr> 
  95. <td  colspan="2">
  96. <%select case action
  97. case "songhuo"%>
  98.                               
  99.       <table class="tableBorder"  width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
  100.   <tr> 
  101.     <td class="forumRowHighlight"><div align="center">送货方式</div></td>
  102.     <td class="forumRowHighlight"><div align="center"><span lang="zh-cn">加收金额</span></div></td>
  103.     <td class="forumRowHighlight"><div align="center">排 序</div></td>
  104.     <td class="forumRowHighlight"><div align="center">操作</div></td>
  105.   </tr>
  106.   <%dim i,j
  107. set rs=server.CreateObject("adodb.recordset")
  108. rs.open "select * from deliver where fangshi=0 order by songidorder",conn,1,1
  109. i=rs.recordcount
  110. do while not rs.eof%>
  111.   <tr> 
  112.     <form name="form1" method="post" action="manageremit.asp?action=songhuosave&id=<%=rs("songid")%>">
  113.       <td class="forumRowHighlight"> <div align="center"> 
  114.           <input name="subject2" type="text" id="subject2" size="14" value=<%=trim(rs("subject"))%>>
  115.         </div></td>
  116.       <td class="forumRowHighlight" width="127"> <p align="center"> 
  117.           <input name="jsmoney" type="text" id="jsmoney" size="4" value=<%=rs("jsmoney")%> onkeypress = "return regInput(this, /^d*.?d{0,2}$/, String.fromCharCode(event.keyCode))" 
  118. onpaste = "return regInput(this, /^d*.?d{0,2}$/, window.clipboardData.getData('Text'))"
  119. ondrop = "return regInput(this, /^d*.?d{0,2}$/, event.dataTransfer.getData('Text'))">
  120.           　</td>
  121.       <td class="forumRowHighlight"> <div align="center"> 
  122.           <input name="songidorder2" type="text" id="songidorder2" size="2" value=<%=rs("songidorder")%> onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
  123. onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
  124. ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))">
  125.         </div></td>
  126.       <td class="forumRowHighlight"> <div align="center"> 
  127.           <input class="button" type="submit" name="Submit" value="修 改">
  128.           &nbsp;<a href="manageremit.asp?action=songhuodel&id=<%=rs("songid")%>" onClick="return confirm('您确定进行删除操作吗？')">删除</a> 
  129.         </div></td>
  130.     </form>
  131.   </tr>
  132.   <%rs.movenext
  133. loop
  134. rs.close
  135. set rs=nothing%>
  136.   <tr> 
  137.     <form name="form2" method="post" action="manageremit.asp?action=songhuoadd">
  138.       <td class="forumRowHighlight"> <div align="center"> 
  139.                 <input name="subject" type="text" id="subject" size="14">
  140.         </div></td>
  141.       <td class="forumRowHighlight" width="127"> <p align="center"> 
  142.           <input name="jsmoney" type="text" id="jsmoney" size="4" onkeypress = "return regInput(this, /^d*.?d{0,2}$/, String.fromCharCode(event.keyCode))" 
  143. onpaste = "return regInput(this, /^d*.?d{0,2}$/, window.clipboardData.getData('Text'))"
  144. ondrop = "return regInput(this, /^d*.?d{0,2}$/, event.dataTransfer.getData('Text'))">
  145.           　</td>
  146.       <td class="forumRowHighlight"> <div align="center"> 
  147.                 <input name="songidorder" type="text" id="songidorder" value=<%=i+1%> size="2" onKeyPress= "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
  148. onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
  149. ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))">
  150.         </div></td>
  151.       <td class="forumRowHighlight"> <div align="center"> 
  152.           <input class="button" type="submit" name="Submit3" value="添 加">
  153.         </div></td>
  154.     </form>
  155.   </tr>
  156. </table>
  157.                               <%case "zhifu"%>
  158.                               
  159.       <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" >
  160.         <tr > 
  161.           <td width="40%" align="center" bgcolor="fbc2c2" >支付方式</td>
  162.           <td width="20%" align="center" bgcolor="fbc2c2" >排 序</td>
  163.           <td width="40%" align="center" bgcolor="fbc2c2" >操 作</td>
  164.         </tr>
  165.         <%set rs=server.CreateObject("adodb.recordset")
  166.   rs.open "select * from deliver where fangshi=1 order by songidorder",conn,1,1
  167.   j=rs.recordcount
  168.   do while not rs.eof%>
  169.         <tr> 
  170.           <form name="form1" method="post" action="manageremit.asp?action=zhifusave&id=<%=rs("songid")%>">
  171.             <td  align="center"> <input name="subject" type="text" id="subject" size="14" value=<%=trim(rs("subject"))%>>
  172.             </td>
  173.             <td  align="center"> <input name="songidorder" type="text" id="songidorder" size="2" value=<%=rs("songidorder")%> onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
  174. onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
  175. ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"> 
  176.             </td>
  177.             <td align="center"  STYLE='PADDING-LEFT: 20px'><input type="submit" name="Submit2" value="确 认"> 
  178.               &nbsp;<a href="manageremit.asp?action=zhifudel&id=<%=rs("songid")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</font></a> 
  179.             </td>
  180.           </form>
  181.           <%rs.movenext
  182.   loop
  183.   rs.close
  184.   set rs=nothing%>
  185.         </tr>
  186.         <tr> 
  187.           <td colspan="3"  background="../images/admin_bg_1.gif" align="center" bgcolor="fbc2c2" >添加支付方式</td>
  188.         </tr>
  189.         <tr> 
  190.           <form name="form1" method="post" action="manageremit.asp?action=zhifuadd">
  191.             <td  align="center"> <input name="subject" type="text" id="subject" size="14"> 
  192.             </td>
  193.             <td  align="center"> <input name="songidorder" type="text" id="songidorder" value=<%=j+1%> size="2" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
  194. onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
  195. ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
  196.             <td  STYLE='PADDING-LEFT: 20px'> <input type="submit" name="Submit32" value="添 加"></td>
  197.           </form>
  198.         </tr>
  199.         <tr> 
  200.           
  201.         </tr>
  202.       </table>
  203. <%end select%>
  204. </td>
  205. </tr>
  206. </table>
  207. <!--#include file="foot.asp"-->
  208. </body>
  209. </html>
  210. <script>
  211. function regInput(obj, reg, inputStr)
  212. {
  213. var docSel = document.selection.createRange()
  214. if (docSel.parentElement().tagName != "INPUT") return false
  215. oSel = docSel.duplicate()
  216. oSel.text = ""
  217. var srcRange = obj.createTextRange()
  218. oSel.setEndPoint("StartToStart", srcRange)
  219. var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
  220. return reg.test(str)
  221. }
  222. </script>