viewuserdingdan.asp

BJXSHOP购物管理系统是一个功能完善、展示信息丰富的电子商店销售平台；针对企业与个人的网上销售系统；开放式远程商店管理；完善的订单管理、销售统计、结算系统；强力搜索引擎支持；提供网上多种在线支付方

<%'//////////////////////////订单查询
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
'开始分页
				Const MaxPerPage=8 
   				dim totalPut   
   				dim CurrentPage
   				dim TotalPages
   				dim j
   				dim sql
    				if Not isempty(request("page")) then
      				currentPage=Cint(request("page"))
   				else
      				currentPage=1
   				end if 
		 set rs=server.CreateObject("adodb.recordset")
  dim zhuangtai
  zhuangtai=request.QueryString("zhuangtai")
  if zhuangtai="" or zhuangtai=0 then
  select case zhuangtai
  case "0"
  rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<>6 order by actiondate desc",conn,1,1
  case ""
  rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<>6 order by actiondate desc",conn,1,1
  end select
  else
  rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
  end if
				if err.number<>0 then
				response.write "数据库中无数据"
				end if
				
  				if rs.eof And rs.bof then
       				Response.Write "<center><font color=#FF6600>订 单 管 理</font></center><br><table width=80% border=0 align=center cellpadding=0 cellspacing=0 cellspacing=1 bgcolor=#FFFFFF><tr><td height=30 bgcolor=#FDE6A4><div align=center>"
       				response.Write "<select name=zhuangtai onchange=""var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}"" ><option value=myuser.asp?action=dingdan&zhuangtai=0 selected>--请选择查询状态--</option><option value=myuser.asp?action=dingdan&zhuangtai=0 >"
       				response.Write "全部订单状态</option><option value=myuser.asp?action=dingdan&zhuangtai=1 >未作任何处理</option><option value=myuser.asp?action=dingdan&zhuangtai=2 >用户已经划出款</option><option value=myuser.asp?action=dingdan&zhuangtai=3 >服务商已经收到款</option><option value=myuser.asp?action=dingdan&zhuangtai=4 >服务商已经发货</option><option value=myuser.asp?action=dingdan&zhuangtai=5 >用户已经收到货</option>"
       				response.Write "<option value=myuser.asp?action=dingdan&zhuangtai=7 >已被取消的订单</option></select></div></td></tr><tr><td height=20 bgcolor=#FDE6A4><div align=center>对不起，在数据库中没有查到您的订单！</div></td></tr></table>"
   				else
	  				totalPut=rs.recordcount

      				if currentpage<1 then
          				currentpage=1
      				end if

      				if (currentpage-1)*MaxPerPage>totalput then
	   					if (totalPut mod MaxPerPage)=0 then
	     					currentpage= totalPut \ MaxPerPage
	   					else
	      					currentpage= totalPut \ MaxPerPage + 1
	   					end if
      				end if

       				if currentPage=1 then
            			showContent
            			showpage totalput,MaxPerPage,"myuser.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"myuser.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"myuser.asp"
	      				end if
	   				end if
   				   				end if

   				sub showContent
       			dim i
	   			i=0

			%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr> 
    <td width="55%"><div align="right"><font color="#FF6600">订 单 管 理</font></div></td>
    <td width="49%"><div align="right">
        <select name="zhuangtai" onchange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
          <option value="myuser.asp?action=dingdan&zhuangtai=0" selected>--请选择查询状态--</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=0" >全部订单状态</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=1" >未作任何处理</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=2" >用户已经划出款</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=3" >服务商已经收到款</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=4" >服务商已经发货</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=5" >用户已经收到货</option>
		  <option value="myuser.asp?action=dingdan&zhuangtai=7" >已被取消的订单</option>
        </select>
      </div></td>
  </tr>
</table>
<table width="96%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
  <tr bgcolor="#FF8E19"> 
    <td><div align="center"><font color="#FFFFFF">订单号</font></div></td>
    <td><div align="center"><font color="#FFFFFF">合计金额</font></div></td>
    <td><div align="center"><font color="#FFFFFF">收货人</font></div></td>
    <td><div align="center"><font color="#FFFFFF">订货人</font></div></td>
    <td><div align="center"><font color="#FFFFFF">付款方式</font></div></td>
    <td><div align="center"><font color="#FFFFFF">收货方式</font></div></td>
    <td><div align="center"><font color="#FFFFFF">订单状态</font></div></td>
  </tr>
  <%

  do while not rs.eof

   %>
  <tr bgcolor="#FDE6A4"> 
    <td><div align="center"><a href=# onClick="javascript:window.open('dingdan.asp?dan=<%=trim(rs("dingdan"))%>','','width=710,height=480,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><%=trim(rs("dingdan"))%></a></div></td>
    <td><div align="center"><%dim ckxp,rs2
	'////判断送货方式要加收的金额
	set rs2=server.CreateObject("adodb.recordset")
	rs2.open "select * from shop_songhuo where songid="&rs("songhuofangshi"),conn,1,1
	set ckxp=server.CreateObject("adodb.recordset")
	ckxp.open "select sum(zonger) as zonger from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	if ccur(ckxp("zonger")) < 100 then		'判断总金额是否小于100元
	response.write "<font color=#FF6600>"&formatnumber(ckxp("zonger")+rs2("jsmoney"),2)&"元</font>"
	else
	response.write "<font color=#FF6600>"&formatnumber(ckxp("zonger"),2)&"元</font>"
	end if
	ckxp.close
	set ckxp=nothing
	rs2.close
	set rs2=nothing%></div></td>
    <td><div align="center"><%=trim(rs("shouhuoname"))%></div></td>
    <td><div align="center"><%=trim(rs("userzhenshiname"))%></div></td>
    <td><div align="center"> 
        <%if int(rs("zhifufangshi"))=9999 then
		response.write "使用预付款"
		else
		set rs2=server.CreateObject("adodb.recordset")
        rs2.open "select * from shop_songhuo where songid="&rs("zhifufangshi"),conn,1,1
        response.Write trim(rs2("subject"))
        rs2.close
        set rs2=nothing
		end if%>
    </div></td>
    <td><div align="center"> 
        <%
		set rs2=server.CreateObject("adodb.recordset")
        rs2.open "select * from shop_songhuo where songid="&rs("songhuofangshi"),conn,1,1
        response.Write trim(rs2("subject"))
        rs2.close
        set rs2=nothing
        %>
    </div></td>
    <td><div align="center"> 
        <%select case rs("zhuangtai")
	case "1"
	response.write "未作任何处理"
	case "2"
	response.write "用户已经划出款"
	case "3"
	response.write "服务商已经收到款"
	case "4"
	response.write "服务商已经发货"
	case "5"
	response.write "用户已经收到货"
	case "7"
	response.Write "订单已被取消"
	end select%>
    </div></td>
  </tr>
  <%i=i+1
  if i>=MaxPerPage then Exit Do
   rs.movenext
  loop
  rs.close
  set rs=nothing%>
</table>
<%  
				End Sub   
  
				Function showpage(totalnumber,maxperpage,filename)  
  				Dim n
  				
				If totalnumber Mod maxperpage=0 Then  
					n= totalnumber \ maxperpage  
				Else
					n= totalnumber \ maxperpage+1  
				End If
				
				Response.Write "<form method=Post action="&filename&"?action=dingdan&zhuangtai="&zhuangtai&">"  
				Response.Write "<p align='center' class='contents'> "  
				If CurrentPage<2 Then  
					Response.Write "<font class='contents'>首页 上一页</font> "  
				Else  
					Response.Write "<a href="&filename&"?page=1&action=dingdan&zhuangtai="&zhuangtai&" class='contents'>首页</a> "  
					Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&action=dingdan&zhuangtai="&zhuangtai&" class='contents'>上一页</a> "  
				End If
				
				If n-currentpage<1 Then  
					Response.Write "<font class='contents'>下一页 尾页</font>"  
				Else  
					Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&action=dingdan&zhuangtai="&zhuangtai&" class='contents'>"  
					Response.Write "下一页</a> <a href="&filename&"?page="&n&"&action=dingdan&zhuangtai="&zhuangtai&" class='contents'>尾页</a>"  
				End If  
					Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
					Response.Write "<font class='contents'> 共有"&totalnumber&"笔订单 " 
					Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&" onkeypress	= ""return regInput(this,	/^[0-9]*$/,	String.fromCharCode(event.keyCode))""onpaste= ""return regInput(this,/^[0-9]*$/, window.clipboardData.getData('Text'))""ondrop= ""return regInput(this,	/^[0-9]*$/, event.dataTransfer.getData('Text'))"" maxlength=3>"  
					Response.Write "&nbsp;<input type='submit'  class='contents' value='GO' name='cndok'></form>"  
				End Function  
			%>
</body>
</html>