📄 order3.asp

📁 网上购物系统 asp+sql server 2005
💻 ASP
字号:
<!--#include file="../include/dbopenbd.asp"-->
<!--#include file="checkadmin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
<script language=javascript>
<!--
function CheckAll(form) {
	for (var i=0;i<form.elements.length;i++) {
		var e = form.elements[i];
		if (e.name != 'chkall') e.checked = form.chkall.checked; 
	}
}
-->
</script>
</head>
<BODY background="../images/admin/back.gif">

<%
allpages=0
page=1
totalrec=0
per_page_num=16

action = request("action")
if action="" then call order_index()
if action="恢复订单" then call huifu()
if action="彻底删除" then call orderdel()

sub order_index()
%>
<table width="98%" border="1"style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="2">
<form action=order3.asp method=post name=orderlist>
<td colspan=7 class=td height=25>订单回收站 &nbsp;</td></tr>
<%
pages =per_page_num
set rs = server.createobject("adodb.recordset")
sql = "select a.ID,a.OrderNum,a.del,a.OrderSum,a.PayType,a.RecName,a.UserID,a.OrderTime,b.Status,b.StatusDefine from s_orderList a,type b where a.del='1' and a.Status=b.Status "
sql= sql+" order by OrderTime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td colspan=7 align=center height=50>回收站是空的</td></tr>"
response.end 
rs.close
set rs=nothing
end if
totalrec = RS.RecordCount
rs.pageSize = pages
allPages = rs.pageCount
page = Request("page")
If not isNumeric(page) then page=1
if isEmpty(page) or int(page) <= 1 then
page = 1
elseif int(page) > allPages then
page = allPages 
end if
rs.AbsolutePage = page
%>
<tr>
<td align=center width=5%>选</td>
<td align=center width='15%'>订单号</td>
<td align=center width='15%'>金额</td>
<td align=center width='15%'>会员ID</td>
<td align=center width='12%'>收货人姓名</td>
<td align=center width='20%'>下单时间</td>
<td align=center width='18%'>订单状态</td>
</tr>
<%
Do While Not rs.eof and pages>0
response.write "<tr><td><input type='checkbox' value='"&rs("ID")&"' name=id></td>"
response.write "<td align=center><a alt='查看/编辑订单' href=""order1.asp?action=list&ID="&rs("OrderNum")&""">"&rs("OrderNum")&"</a></td><td align=right>"&formatnum(csng(rs("OrderSum")),2)&"&nbsp;</td><td>"
response.write rs("userid")&"</td><td>"&rs("RecName")&"</td><td >"&rs("OrderTime")&"</td><td align=center>"
if rs("Status")="0" then
response.write "<font color=red>"&rs("StatusDefine")&"</font>"
elseif rs("Status")="99" then 
response.write "<font color=blue>"&rs("StatusDefine")&"</font>"
elseif rs("Status")="88" then 
response.write "<font color=blue>"&rs("StatusDefine")&"</font>"
else
response.write "<font color=darkgray>"&rs("StatusDefine")&"</font>"
end if
response.write "</td></tr>"

pages = pages - 1
rs.movenext
if rs.eof then exit do
loop
%>	
<tr><td colspan=7>
<input type='checkbox' name=chkall onclick='CheckAll(this.form)'>
<input type="submit" name="action" value="彻底删除" onclick="{if(confirm('提示：该操作不可恢复，您确实要删除所选订单吗？')){this.document.orderlist.submit();return true;}return false;}"> 	
<input type="submit" name="action" value="恢复订单" onclick="{if(confirm('提示：确认要恢复此订单吗？')){this.document.orderlist.submit();return true;}return false;}"> 	
</td></tr>
</form>
</table>
<%
rs.close
set rs=nothing
response.write "<br> &nbsp;&nbsp;&nbsp; 总订单数："&totalrec& "&nbsp;&nbsp; 每页："& per_page_num&" 条记录&nbsp;&nbsp;&nbsp;"
if allpages <= 1 then exit sub 
if page = 1 then
response.write " <font color=#878787>首页 上页</font>"
 else
response.write " <a href='"&request.ServerVariables("script_name")&"?page=1'>首页</a> "
response.write " <a href='"&request.ServerVariables("script_name")&"?page="&page-1&"'>上页</a> "
end if
if page = allpages then
response.write "<font color=#878787>下页 末页</font>"
else
response.write " <a href='"&request.ServerVariables("script_name")&"?page="&page+1&"'>下页</a> "
response.write " <a href='"&request.ServerVariables("script_name")&"?page="&allpages&"'>末页</a> "
end if
response.write "&nbsp;&nbsp;&nbsp;第"&page&"/"&allpages&"页"
end sub



sub orderdel()
	ids=request("id")
	if ids="" or isnull(ids) then mGoBack "操作失败，您什么也没有选择。"
	sql="delete from s_order where ordernum in ( select ordernum from s_orderlist where id in ("&ids&")) "&_
	    " delete from s_orderLIst where id in ("&ids&")"
	conn.execute sql
	mGoTo "order3.asp","操作成功，所选订单已被彻底删除。"
end sub

sub huifu()
	ids=request("id")
	if ids="" or isnull(ids) then mGoBack "操作失败，您什么也没有选择。"
	sql="update  s_orderList set del=0 where id in ("&ids&")"
	conn.execute sql
	mGoTo "order3.asp","操作成功，所选订单已被恢复。"
end sub

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -