editorderform.asp
上传用户:btntkt
上传日期:2021-04-16
资源大小:5296k
文件大小:11k
源码类别:

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

开发平台:

DOS

  1. <!--#include file="conn.asp"-->
  2. <html>
  3. <head>
  4. <title>Untitled Document</title>
  5. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  6. <link href="style.css" rel="stylesheet" type="text/css">
  7. </head>
  8. <body>
  9. <%dim zhuangtai,namekey
  10. namekey=trim(request("namekey"))
  11. zhuangtai=trim(request("zhuangtai"))
  12. if zhuangtai="" then zhuangtai=request.QueryString("zhuangtai")
  13. if namekey="" then namekey=request.querystring("namekey")
  14. %>
  15. <table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
  16.    <tr> 
  17. <th class="tableHeaderText" colspan=6>定单查询</th>
  18.    </tr>
  19.   <tr> 
  20.     <form name="form1" method="post" action="editorderform.asp">
  21.       <td class="forumRowHighlight"> <div align="center">按下单用户查询 
  22.           <input name="namekey" type="text" id="namekey" value="请输入用户名" size="14" onFocus="this.value=''">
  23.           &nbsp; 
  24.           <select name="zhuangtai" id="zhuangtai">
  25.             <option value="0" selected>--选择查询状态--</option>
  26.             <option value="0" >全部订单状态</option>
  27.             <option value="1" >未作任何处理</option>
  28.             <option value="2" >用户已经划出款</option>
  29.             <option value="3" >服务商已经收到款</option>
  30.             <option value="4" >服务商已经发货</option>
  31.             <option value="5" >用户已经收到货</option>
  32.           </select>
  33.           &nbsp; 
  34.           <input class="button" type="submit" name="Submit" value="查 询">
  35.         </div></td>
  36.     </form>
  37.   </tr>
  38. </table>
  39. <br>
  40. <table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
  41.    <tr> 
  42. <th class="tableHeaderText" colspan=6>管理商品订单</th>
  43.    </tr>
  44.   <tr> 
  45.     <td class="forumRowHighlight"> <div align="right"> 
  46.         <select name="select" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" ><base target=Right> 
  47.           <option value="editorderform.asp?zhuangtai=0" selected>--选择查讯状态--</option>
  48.           <option value="editorderform.asp?zhuangtai=0" >全部订单状态</option>
  49.           <option value="editorderform.asp?zhuangtai=1" >未作任何处理</option>
  50.           <option value="editorderform.asp?zhuangtai=2" >用户已经划出款</option>
  51.           <option value="editorderform.asp?zhuangtai=3" >服务商已经收到款</option>
  52.           <option value="editorderform.asp?zhuangtai=4" >服务商已经发货</option>
  53.           <option value="editorderform.asp?zhuangtai=5" >用户已经收到货</option>
  54.         </select>
  55.       </div></td>
  56.   </tr>
  57. </table>
  58.   <%'开始分页
  59. Const MaxPerPage=12 
  60.     dim totalPut   
  61.     dim CurrentPage
  62.     dim TotalPages
  63.     dim j
  64.     dim sql
  65.      if Not isempty(request("page")) then
  66.        currentPage=Cint(request("page"))
  67.     else
  68.        currentPage=1
  69.     end if 
  70. set rs=server.CreateObject("adodb.recordset")
  71. if namekey="" then
  72. '//按状态查询
  73. if zhuangtai=0 or zhuangtai="" then
  74. select case zhuangtai
  75. case "0"
  76.   rs.open "select distinct(dingdan),userid,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai from orders where zhuangtai<6 order by actiondate desc",conn,1,1
  77.   case ""
  78.   rs.open "select distinct(dingdan),userid,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai from orders where zhuangtai<6 order by actiondate desc",conn,1,1
  79.   end select
  80.   else
  81.   rs.open "select distinct(dingdan),userid,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai from orders where  zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
  82.   end if
  83.   else
  84.   '//按用户查询
  85.   if zhuangtai=0 or zhuangtai="" then
  86.   rs.open "select distinct(dingdan),userid,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai from orders where zhuangtai<6 and username='"&namekey&"' order by actiondate desc",conn,1,1
  87.   else
  88.   rs.open "select distinct(dingdan),userid,userzhenshiname,actiondate,songhuofangshi,zhifufangshi,zhuangtai from orders where  zhuangtai="&zhuangtai&" and username='"&namekey&"'  order by actiondate",conn,1,1
  89.   end if
  90.   end if
  91.   
  92. if err.number<>0 then
  93. response.write "数据库中无数据"
  94. end if
  95.    if rs.eof And rs.bof then
  96.         Response.Write "<p align='center' class='contents'> 对不起,您选择的状态目前还没有订单!</p>"
  97.     else
  98.    totalPut=rs.recordcount
  99.        if currentpage<1 then
  100.            currentpage=1
  101.        end if
  102.        if (currentpage-1)*MaxPerPage>totalput then
  103.     if (totalPut mod MaxPerPage)=0 then
  104.       currentpage= totalPut  MaxPerPage
  105.     else
  106.        currentpage= totalPut  MaxPerPage + 1
  107.     end if
  108.        end if
  109.         if currentPage=1 then
  110.              showContent
  111.              showpage totalput,MaxPerPage,"editorderform.asp"
  112.         else
  113.            if (currentPage-1)*MaxPerPage<totalPut then
  114.              rs.move  (currentPage-1)*MaxPerPage
  115.              dim bookmark
  116.              bookmark=rs.bookmark
  117.              showContent
  118.               showpage totalput,MaxPerPage,"editorderform.asp"
  119.          else
  120.          currentPage=1
  121.             showContent
  122.             showpage totalput,MaxPerPage,"editorderform.asp"
  123.        end if
  124.     end if
  125.         end if
  126.     sub showContent
  127.         dim i
  128.     i=0
  129. %>
  130. <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="tableBorder" >
  131.   <tr> 
  132.     <td height="22" class="forumRowHighlight"> <div align="center"><strong>订单号</strong></div></td>
  133.     <td height="22" class="forumRowHighlight"> <div align="center"><strong>下单用户</strong></div></td>
  134.     <td height="22" class="forumRowHighlight"> <div align="center"><strong>订货人姓名</strong></div></td>
  135.     <td height="22" class="forumRowHighlight"> <div align="center"><strong>付款方式</strong></div></td>
  136.     <td height="22" class="forumRowHighlight"> <div align="center"><strong>收货方式</strong></div></td>
  137.     <td height="22" class="forumRowHighlight"> <div align="center"><strong>订单状态</strong></div></td>
  138.   </tr>
  139.   
  140.   <%do while not rs.eof
  141. dim cnhww,username
  142.   set cnhww=server.CreateObject("adodb.recordset")
  143.   cnhww.open "select * from [YX_User] where id="&rs("userid"),conn,1,1
  144. if cnhww.eof and cnhww.bof then
  145. '   response.write "已被删除"
  146.   else
  147.   username=trim(cnhww("name"))
  148.   end if
  149.   cnhww.close
  150.   set cnhww=nothing
  151.   %>
  152.   <tr bgcolor="#E8F1FF"> 
  153.     <td height="22" class="forumRowHighlight"> <div align="center"><a href="javascript:;" onClick="javascript:window.open('vieworderform.asp?dan=<%=trim(rs("dingdan"))%>&username=<%=username%>','','width=710,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><%=trim(rs("dingdan"))%></a></div></td>
  154.     <td height="22" class="forumRowHighlight"> <div align="center"><a href=listuser.asp?id=<%=rs("userid")%>><%=username%></a></div></td>
  155.     <td height="22" class="forumRowHighlight"> <div align="center"><%=trim(rs("userzhenshiname"))%></div></td>
  156.     <td height="22" class="forumRowHighlight"> <div align="center"> 
  157.         <%dim rs2
  158.           '///支付方式
  159.           set rs2=server.CreateObject("adodb.recordset")
  160.           rs2.open "select * from wq_songhuo where songid="&int(rs("zhifufangshi")),conn,1,1
  161.   if rs2.eof and rs2.bof then
  162.   response.write "有被删除的订单"
  163.   else
  164.           response.Write trim(rs2("subject"))
  165.           end if
  166.   rs2.Close
  167.           set rs2=nothing
  168.           %>
  169.       </div></td>
  170.     <td height="22" class="forumRowHighlight"> <div align="center"> 
  171.         <%
  172.           '///送货方式
  173.           set rs2=server.CreateObject("adodb.recordset")
  174.           rs2.Open "select * from wq_songhuo where songid="&int(rs("songhuofangshi")),conn,1,1
  175.   if rs2.eof and rs2.bof then
  176.   response.write "已被删除"
  177.   else
  178.           response.Write trim(rs2("subject"))
  179.           end if
  180.   rs2.close
  181.           set rs2=nothing%>
  182.       </div></td>
  183.     <td height="22" class="forumRowHighlight"> <div align="center"> 
  184.         <%
  185.   select case rs("zhuangtai")
  186. case "1"
  187. response.write "未作任何处理"
  188. case "2"
  189. response.write "用户已经划出款"
  190. case "3"
  191. response.write "服务商已经收到款"
  192. case "4"
  193. response.write "服务商已经发货"
  194. case "5"
  195. response.write "用户已经收到货"
  196. end select%>
  197.       </div></td>
  198.   </tr>
  199.   <%i=i+1
  200. if i>=MaxPerPage then Exit Do
  201. rs.movenext
  202. loop
  203. rs.close
  204. set rs=nothing%>
  205. </table>
  206. <p> 
  207.   <%  
  208. End Sub   
  209.   
  210. Function showpage(totalnumber,maxperpage,filename)  
  211.    Dim n
  212.   
  213. If totalnumber Mod maxperpage=0 Then  
  214. n= totalnumber  maxperpage  
  215. Else
  216. n= totalnumber  maxperpage+1  
  217. End If
  218. '//////////////////
  219. if namekey="" then
  220. Response.Write "<form method=Post action="&filename&"?zhuangtai="&zhuangtai&">"  
  221. else
  222. Response.Write "<form method=Post action="&filename&"?zhuangtai="&zhuangtai&"&namekey="&namekey&">" 
  223. end if
  224. '//////////////////
  225. Response.Write "<p align='center' class='contents'> "  
  226. If CurrentPage<2 Then  
  227. Response.Write "<font class='contents'>首页 上一页</font> "  
  228. Else  
  229. '///////////////////
  230. if namekey="" then
  231. Response.Write "<a href="&filename&"?page=1&zhuangtai="&zhuangtai&" class='contents'>首页</a> "  
  232. Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&zhuangtai="&zhuangtai&" class='contents'>上一页</a> "  
  233. ELSE
  234. Response.Write "<a href="&filename&"?page=1&zhuangtai="&zhuangtai&"&namekey="&namekey&" class='contents'>首页</a> "  
  235. Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&zhuangtai="&zhuangtai&"&namekey="&namekey&" class='contents'>上一页</a> "
  236. end if  
  237. '//////////////////
  238. End If
  239. If n-currentpage<1 Then  
  240. Response.Write "<font class='contents'>下一页 尾页</font>"  
  241. Else 
  242. '//////////////////////// 
  243. if namekey="" then
  244. Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&zhuangtai="&zhuangtai&" class='contents'>"  
  245. Response.Write "下一页</a> <a href="&filename&"?page="&n&"&zhuangtai="&zhuangtai&" class='contents'>尾页</a>"
  246. else
  247. Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&zhuangtai="&zhuangtai&"&namekey="&namekey&" class='contents'>"  
  248. Response.Write "下一页</a> <a href="&filename&"?page="&n&"&zhuangtai="&zhuangtai&"&namekey="&namekey&" class='contents'>尾页</a>" 
  249. end if 
  250. '/////////////////////
  251. End If  
  252. Response.Write "<font class='contents'> 页次:</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
  253. Response.Write "<font class='contents'> 共有"&totalnumber&"笔订单 "&maxperpage&"笔订单/页</font> " 
  254. Response.Write "<font class='contents'>转到:</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"  
  255. Response.Write "&nbsp;<input type='submit'  class='button' value='GO' name='cndok'></form>"  
  256. End Function  
  257. %>
  258. </body>
  259. </html>