📄 order1.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
url="order1.asp"
action = request("action")
if action="" then call order_index()
if action="list" then call Order()
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=order1.asp method=post name=orderlist>
<tr><td colspan=7 class=td height=25>订单管理 </td></tr>
<%
ordersql=""
if request("show")="yes" then
session("sql")=""
else
ordersql=session("sql")
end if
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='0' and a.Status=b.Status "
sql=sql+ordersql
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
pages = per_page_num
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)&" </td><td>"
response.write "<a alt='查看会员资料' href='user3.asp?action=useredit&id="&rs("userid")&"'>"&rs("userid")&"</a></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;}">
</td></tr>
</form>
</table>
<%
rs.close
set rs=nothing
response.write "<br> 总订单数："&totalrec& " 每页："& per_page_num&" 条记录 "
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 " 第"&page&"/"&allpages&"页"
end sub
sub Order()
OrderNum=request("ID")
if request.form("edit")="ok" then
set rs=Server.Createobject("ADODB.RecordSet")
sql="select * from s_orderList where OrderNum='"&OrderNum&"'"
rs.Open sql,conn,1,3
rs("LastModifytime")= now()
if trim(request("Memo"))<>"" then rs("Memo") = trim(request("Memo"))
if trim(request("Status")) <>"" then rs("Status") = trim(request("Status"))
rs.update
rs.close
set rs=nothing
mGoTo url,"操作成功，您已经修改一个订单。"
end if
set rs=conn.execute("select A.ordertime,b.ordersum,A.Userid,A.OrderNum,B.PEI,B.FEI,A.ProdId,A.BuyPrice,A.ProdUnit,B.thiskou,B.Memo,B.Status,B.Recname,B.RecPhone,B.Recmail,B.RecAddress,B.Zipcode,B.Paytype,B.Notes,B.Compphone,B.gettime,C.ProdName from s_order A,s_orderList B,s_produc C where A.OrderNum='"&OrderNum&"' and A.OrderNum = B.OrderNum and A.ProdId=C.Prodid")
if rs.eof and rs.bof then mGoBack "出错了，没有此订单！"
memos=rs("Memo")
status=rs("Status")
%>
<table width="98%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="2">
<form action=order1.asp?action=list method=post name=orderedit>
<tr><td colspan=2 class=td height=25>查看/编辑订单资料 </td></tr>
<INPUT TYPE="hidden" name=edit value=ok>
<INPUT TYPE="hidden" name=Id value=<%=rs("OrderNum")%>>
<tr><td align='right' width=20%>提交时间：</td><td><input type="text" name="" value="<%=rs("Ordertime")%>" style="overflow:auto;width=80%" readonly></td></tr>
<tr><td align='right'>订 单 号：</td><td><input type="text" name="" value="<%=rs("OrderNum")%>" style="overflow:auto;width=80%" readonly></td></tr>
<tr><td align='right'>订单金额：</td><td><input type="text" name="ordersum" value="<%=formatnumber(rs("Ordersum"),2)%>" style="overflow:auto;width=80%" readonly></td></tr>
<tr><td align='right'>会员ID：</td><td><input type="text" name="userid" value="<%=rs("userid")%>" style="overflow:auto;width=80%" readonly></td></tr>
<tr><td align='right'>配送方式：</td><td><input alt=顾客选择的配送方式 type="text" name="post" value="<%=rs("pei")%>" readonly style="overflow:auto;width=80%"></td></tr>
<tr><td align='right'>收货姓名：</td><td><input type="text" name="Recname" value="<%=rs("Recname")%>" readonly style="overflow:auto;width=80%" maxlength="30"></td></tr>
<tr><td align='right'>联系电话：</td><td><input type="text" name="RecPhone" value="<%=rs("RecPhone")%>" readonly style="overflow:auto;width=80%" maxlength="30"></td></tr>
<tr><td align='right'>电子邮箱：</td><td><input type="text" name="Recmail" value="<%=rs("Recmail")%>" readonly style="overflow:auto;width=80%" maxlength="30"> <a href='sendmail.asp?<%=rs("Recmail")%>'><img alt='发邮件' border=0 src='../images/small/e-mail.gif'></a></td></tr>
<tr><td align='right'>收货地址：</td><td><input type="text" name="RecAddress" value="<%=rs("RecAddress")%>" readonly style="overflow:auto;width=80%" maxlength="30"></td></tr>
<tr><td align='right'>邮政编码：</td><td><input type="text" name="Zipcode" value="<%=rs("Zipcode")%>" readonly style="overflow:auto;width=80%" maxlength="10"></td></tr>
<%
notes=rs("Notes")
%>
<tr><td align='right'>移动电话：</td><td><input type="text" name="CompPhone" value="<%=rs("CompPhone")%>" readonly style="overflow:auto;width=80%" maxlength="30"></td></tr>
<tr><td align='right'>送货时间：</td><td><input alt=顾客指定的送货时间 type="text" name="gettime" value="<%=rs("gettime")%>" readonly style="overflow:auto;width=80%" maxlength="30"></td></tr>
<tr><td align='right'>顾客说明：</td><td><textarea alt=顾客对此订单的其它要求或说明 rows='5' name='Notes' readonly style="overflow:auto;width=80%"><%=notes%></textarea></td></tr></tr>
<tr><td align='right'>订单处理：</td><td><textarea alt="填写对订单处理的说明" rows='5' name='memo' style="overflow:auto;width=80% ; background-color: #FFFFCC;"><%=memos%></textarea></td></tr>
<tr><td align='right' height=30>订单状态：</td><td>
<%
fei=rs("fei")
thiskou=rs("thiskou")
ordersum=rs("OrderSum")
if rs("Status")="11" or rs("Status")="12" or rs("Status")="99" then
set rs2 = conn.Execute("select * from type where Status='"&rs("Status")&"'")
response.write "<b>"&rs2("StatusDefine")&"<B>"
else
set rs2 = conn.execute("select * from type Order by Status asc")
response.write "<select name='Status'>"
Do While Not rs2.eof
response.Write rs2("Status")&":"& status
if rs2("Status") = status then
response.write "<option value='"&rs2("Status")&"' selected>"&rs2("StatusDefine")&"</option>"
else
response.write "<option value='"&rs2("Status")&"'>"&rs2("StatusDefine")&"</option>"
end if
rs2.movenext
if rs2.eof then exit do
loop
response.write "</select>"
set rs2=nothing
end if
%>
</td></tr>
<tr><td align=right>购物清单：</td><td>
<table width="80%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="3">
<tr><td width=15%>商品编号</td><td width="40%">商品名称</td><td width="15%">购买数量</td><td width="15%">
商品单价</td><td width="15%" align=center>总金额</td></tr>
<%
Total = 0
do while not rs.eof
Sum = csng(rs("ProdUnit"))*csng(rs("BuyPrice"))
Total = Sum + Total
response.write "<tr><td>"&rs("ProdId")&"</td><td><a alt='查看此商品的前台页面' href=../gotourl.asp?list.asp?ProdId="&rs("ProdId")&" target='blank_'>"&rs("ProdName")&"</a></td>"
response.write "<td>"&rs("ProdUnit")&"</td>"
response.write "<td>"&rs("BuyPrice")&"</td>"
response.write "<td>"&FormatNumber(Sum,2)&"</td></tr>"
rs.movenext
loop
%>
<TR><TD colspan='5'>
商品总价：<%=FormatNumber(Total,2)%> * (折扣<%=csng(thiskou)/10%>) = <%=FormatNumber(Total*csng(thiskou)/10,2)%><br>
配送费用：<%=formatnum(fei,2)%><br>
总计费用：<font color=red><b><%=ordersum%></font></b> 元
</td></TR></table>
</td></tr>
<tr><td colspan=2>
<input type='submit' name='action' value='修改订单'>
<!--
<input type='button' value='生成打印件' onclick="javascript:alert('提示：您正在使用的版本无此功能。');">
-->
</td></tr>
</form>
</table>
<%
set rs=nothing
end sub
sub orderdel()
delid=request("id")
if Delid="" or isnull(Delid) then mGoBack "操作失败，您什么也没有选择！"
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from s_orderList where id in ("&Delid&")"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
mGoBack "出错了，该订单不存在或者已经被删除！"
else
Do while not rs.eof
rs("del")=true
rs.update
rs.movenext
loop
rs.close
set rs=nothing
mGoTo url,"操作成功，所选订单已被放入订单回收站，您可前往回收站彻底清除或恢复！"
end if
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -