www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/order.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
'Call CheckUserLogin(username)
Call CheckAdmin()
Call CnkAdminRight(22)
Dim action,Submit,ipage,theitem,bg,zt
action=Request("action")
Submit=Request("Submit")
thispage=request("page_code")
if thispage="" then
thispage=1
else
thispage=clng(thispage)
end if
if thispage<1 then thispage=1
PagePara="?temp="
Select Case Submit
Case "删除"
for each theitem in Request("checkorderid")
conn.execute("delete from cnk_orderdetail where orderid='"&theitem&"'")
conn.execute("delete from cnk_orderform where orderid='"&theitem&"'")
next
Call alertmsg_url("删除成功",PagePara)
End Select
sql="select * from cnk_orderform order by initime desc"
rs.open sql,conn,1,1%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content="CNKBBS Powered by websys.cn - Leung">
<link href="admin.css" rel="stylesheet" type="text/css">
<script language="javascript" src="inc/cnkgl.js"></script>
</head>
<body>
<div class="cnkbox">
<div class="title">订单管理</div>
<div class="content" align="center">
<%If rs.recordcount=0 Then
Response.Write "未有"
Else
rs.pagesize=30
if thispage>rs.pagecount then thispage=rs.pagecount
rs.AbsolutePage = thispage%>
<table width="96%" border="0" cellspacing="1">
<tr>
<td width="50%" bgcolor="#DEEFFE"><% = GetPageList(rs.pagecount,thispage,PagePara,0) %></td>
<td width="50%" align="right" bgcolor="#DEEFFE">共有 <strong><%=rs.recordcount%></strong>个用户
<% = GetPage(rs.pagecount,thispage,PagePara,0) %></td>
</tr>
</table>
<form name="form2" method="post" action="order.asp">
<table width="96%" border="0">
<tr>
<td><table width="500" border="0">
<tr>
<td width="25%" align="center" bgcolor="#FFFFFF">未付款</td>
<td width="25%" align="center" bgcolor="#FFFF99">已付款,未发</td>
<td width="25%" align="center" bgcolor="#FFCC00">已发,调试中或未确认</td>
<td width="25%" align="center" bgcolor="#CCFF99">订单完成</td>
</tr>
</table></td>
</tr>
</table>
<table width="96%" border="0" cellpadding="3" cellspacing="1" bgcolor="#999999">
<tr>
<td width="16%" align="center">订单号</td>
<td width="14%" align="center">下单日期</td>
<td width="11%" align="center">用户名</td>
<td width="11%" align="center">订单总额</td>
<td width="16%" align="center">处理状态</td>
<td width="11%" align="center">发货日期</td>
<td width="9%" align="center">删 除</td>
<td width="12%" align="center">看订单明细</td>
</tr>
<% dim bgcolor
for ipage=1 to rs.pagesize
bgcolor="#FFFFFF"
select case rs("zhuangtai")
case 1 bgcolor="#FFFF99"
case 2 bgcolor="#FFCC00"
case 3 bgcolor="#CCFF99"
end select
%>
<tr bgcolor="<% = bgcolor %>" align="center">
<td align="center"><% =rs("orderid")%></td>
<td><% =rs("initime")%></td>
<td><a href="user_info.asp?username=<%=rs("username")%>"><% =rs("username")%></a></td>
<td align="center"><% = rs("bizhong")&rs("alltotalprice")%></td>
<td align="center"><% =OrderStateName(rs("zhuangtai"))%></td>
<td align="center"><% =rs("senddate")%></td>
<td align="center"><input name="checkorderid" type="checkbox" id="checkorderid" value="<%=rs("orderid")%>"></td>
<td align="center"><a href="orderdetail.asp?orderid=<%=rs("orderid")%>">看订单明细</a></td>
</tr>
<%rs.movenext
if rs.eof then exit for
next%>
</table>
<br>
<div>全选：<input type="checkbox" name="checkbox" value="Check All" onClick="mm()">
<input name="thispage" type="hidden" id="thispage" value="<%= thispage %>">
请您选择后操作：
<input name="Submit" type="submit" class="button" id="Submit" value="删除" onClick="return cfdel()">
</div>
</form>
<table width="96%" border="0" cellspacing="1">
<tr>
<td width="50%" bgcolor="#DEEFFE"><% = GetPageList(rs.pagecount,thispage,PagePara,0) %></td>
<form name="form1" method="post" action="users.asp">
</form>
<td width="50%" align="right" bgcolor="#DEEFFE">共有 <strong><%=rs.recordcount%></strong> 个订单
<% = GetPage(rs.pagecount,thispage,PagePara,0) %></td>
</tr>
</table>
<%End If
rs.close
%>
</div>
</div>
<%set rs=nothing
Call foot()
Call closedb()%>
</body>
</html>