📄 order3.asp
字号:
<!--#include file="../include/buyok_shop_30_conn.asp"-->
<!--#include file="../chopchar.asp"-->
<!--#include file="checkadmin.asp"-->
<script language=javascript src=../include/mouse_on_title.js></script>
<%call checkmanage("04")%>
<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">
<%
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>订单回收站 </td></tr>
<%pages = 20
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 buyok_OrderList a,Order_type b where a.del=true and a.Status=b.Status "
sql= sql+" order by OrderTime desc"
rs.open sql,conn,1,3
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
totalrs=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>"&rs("OrderNum")&"</td><td align=right>"&formatnum(csng(rs("OrderSum")),2)&" </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
'if allpages<=1 then exit sub
response.write "<br>总订单数<font color=red>"&totalrs&"</font> 每页<font color=red>20</font> "
if page = 1 then
response.write "<font color=darkgray>首页 前页</font>"
else
response.write "<a href=order3.asp?keywords="&keywords&"&page=1>首页</a> <a href=order3.asp?keywords="&keywords&"&page="&page-1&">前页</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下页 末页</font>"
else
response.write " <a href=order3.asp?keywords="&keywords&"&page="&page+1&">下页</a> <a href=order3.asp?keywords="&keywords&"&page="&allpages&">末页</a>"
end if
end sub
sub orderdel()
delid=request("id")
if Delid="" or isnull(Delid) then
response.write "<script language='javascript'>"
response.write "alert('操作失败，您什么也没有选择。');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from buyok_OrderList where id in ("&Delid&")"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('出错了，该订单不存在或者已经被删除。');"
response.write "</script>"
response.end
else
Do while not rs.eof
rs.delete
rs.update
rs.movenext
loop
rs.close
set rs=nothing
response.write "<script language='javascript'>"
response.write "alert('操作成功，所选订单已被彻底删除。');"
response.write "location.href='order3.asp';"
response.write "</script>"
end if
end sub
sub huifu()
id=request("id")
if id="" or isnull(id) then
response.write "<script language='javascript'>"
response.write "alert('操作失败，您什么也没有选择。');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from buyok_OrderList where id in ("&id&")"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('出错了，该订单不存在或者已经被删除。');"
response.write "</script>"
response.end
else
Do while not rs.eof
rs("del")=false
rs.update
rs.movenext
loop
rs.close
set rs=nothing
response.write "<script language='javascript'>"
response.write "alert('操作成功，所选订单已被恢复。');"
response.write "location.href='order3.asp';"
response.write "</script>"
end if
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -