📄 adminorderlist.asp
字号:
<%dim nowplace
nowplace="order"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<!--#include file="../comm/pages.asp" -->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript1.2" src="../comm/warning.js"></script>
<title>商品订单管理</title>
<link href=AdminStyle.css rel=stylesheet type=text/css>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkinfo(){
if (confirm("确定这样操作吗?")) {
return true;
}
else{
return false;
}
}
//-->
</SCRIPT>
<script language="JavaScript">
/**
* 对 checkbox 进行反向选择。
*/
function checkAll(box1) {
var ids = document.getElementsByName("pid");
if (ids != null) {
for (i=0; i<ids.length; i++) {
var obj = ids(i);
obj.checked = box1.checked;
}
}
}
/**
* 判断是否选择了 checkbox。
*/
function deleteCheckedMessage() {
var checkCount = 0;
var ids = document.getElementsByName("pid");
for(i=0; i<ids.length; i ++) {
if (ids(i).checked) {
checkCount ++;
}
}
if (checkCount == 0) {
alert("请选中要删除的信息！");
return false;
} else {
if (confirm("您确认要删除这 " + checkCount + " 条信息吗？")) {
document.form1.submit();
return true;
} else {
return false;
}
}
}
function chkCheckedMessage() {
var checkCount = 0;
var ids = document.getElementsByName("pid");
for(i=0; i<ids.length; i ++) {
if (ids(i).checked) {
checkCount ++;
}
}
if (checkCount == 0) {
alert("请选中要审核的信息！");
return false;
} else {
if (confirm("您确认要审核通过这 " + checkCount + " 条信息吗？")) {
document.form1.submit();
return true;
} else {
return false;
}
}
}
</script>
<body>
<table border="0" width="100%" id="table4" cellpadding="4" style="border-collapse: collapse">
<tr>
<td bgcolor="#DAE3F5"><b>订单查询</b></td>
</tr>
<tr>
<td align="center" height="20">
<form action=AdminOrderList.asp method=get>订单搜索：<select size="1" name="wflag">
<option value="1">按订单号</option>
<option value="2">订货人</option>
<option value="3">价格</option>
</select> <input type="text" name="keyword" size="36" maxlength="20">
<input type="submit" value="搜索" name="B1">
<a href="AdminOrderList.asp?wflag=4">全部显示</a></form></td>
</tr>
</table>
<table border="0" width="100%" id="table3" cellpadding="4" style="border:1px solid #183789; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" height="57" cellspacing="1">
<form action="order_del.asp" method=post name=form1 onsubmit="return checkinfo()">
<tr>
<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
<font color="#FFFFFF">
<span style="font-size: 14px"><b>序号</b></span></font></td>
<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
<font color="#FFFFFF">
<span style="font-size: 14px"><b>订单号</b></span></font></td>
<td bgcolor="#DDDDDD" align="center" height="25" background="Image/admin_bg_1.gif">
<font color="#FFFFFF">
<span style="font-size: 14px"><b>订货人</b></span></font></td>
<td bgcolor="#DDDDDD" align="center" height="25" background="Image/admin_bg_1.gif">
<font color="#FFFFFF">
<span style="font-size: 14px"><b>金额</b></span></font></td>
<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
<font color="#FFFFFF">
<span style="font-size: 14px"><b>付款方式</b></span></font></td>
<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
<font color="#FFFFFF">
<span style="font-size: 14px"><b>收货方式</b></span></font></td>
<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
<font color="#FFFFFF">
<span style="font-size: 14px"><b>订购</b></span><b><span style="font-size: 14px">时间</span></b></font></td>
<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
<font color="#FFFFFF">
<b><span style="font-size: 14px">订单状态</span></b></font></td>
<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
<font color="#FFFFFF">
<b><span style="font-size: 14px">删除</span></b></font></td>
</tr>
<%
Dim go
go = "尚未处理"
If (Request.QueryString("zt") <> "") Then
go = Request.QueryString("zt")
End If
keyword=my_request("keyword",0)
wflag=cint(my_request("wflag",1))
select case wflag
case "1"
sqltext="select * from buyer Where ddbh like '%"&keyword&"%' order by addtime desc"
case 2
sqltext="select * from buyer Where yqj_realname like '%"&keyword&"%' order by addtime desc"
case 3
sqltext="select * from buyer Where yqj_money like '%"&keyword&"%' order by addtime desc"
case 4
sqltext="select * from buyer order by addtime desc"
case else
sqltext="select * from buyer Where zt = '" + Replace(go, "'", "''") + "' order by addtime desc"
end select
set rs=server.createobject("adodb.recordset")
'sqltext="select * from buyer Where zt = '" + Replace(go, "'", "''") + "' order by addtime desc"
rs.open sqltext,conn,1,1
if (rs.eof and rs.bof) then
response.write "<tr>"
response.write "<td width=500 colspan=4><font color=#FF0000>没有相应的数据</font></td>"
response.write "</tr>"
else
rs.PageSize =20 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
ii=1
while not rs.eof and ii<=rs.pagesize
set id=rs("id")
set ddbh=rs("ddbh")
set addtime=rs("addtime")
set yqj_realname=rs("yqj_realname")
set paymode=rs("paymode")
set songhuo=rs("songhuo")
set yqj_money=rs("yqj_money")
set zt=rs("zt")
%>
<tr>
<td width="42"><%=(page-1)*20+ii%></td>
<td width="102"><a href=#><%=ddbh%></a></td>
<td width="88" align="left"><%=yqj_realname%></td>
<td width="79" align="center">
<p align="left">￥<%=FormatNumber(yqj_money,2,-1)%>元</td>
<td width="103"><%=paymode%></td>
<td width="126"><%=songhuo%></td>
<td width="171"><font color="#808080"><%=addtime%></font></td>
<td width="153"><font color="#FF6600"><%=zt%></font></td>
<td width="36"><input type="checkbox" name="pid" value="<%=ddbh%>"></td>
</tr>
<%
rs.movenext
ii=ii+1
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<table border="0" width="100%" id="table5" cellspacing="0" cellpadding="0">
<tr>
<td>
<p align="right">
<input onclick="javascript: checkAll(this)" type="checkbox" value="checkbox" name="checkSelect">全选/取消
全选 <input type="submit" value="删除" name="B2"></td>
</tr>
<input type=hidden name=page value=<%=page%>>
</form>
</table>
<table border="0" width="100%" id="table4" cellspacing="1">
<tr>
<td><%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")%></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -