📄 admin_order.asp
字号:
end if%>
</td></tr></table>
</td></tr>
<tr>
<td height="10" align=center colspan="2">程序美工设计：九江市大地广告策划中心<%=sitever%></td>
</tr>
</table>
</body>
</html>
<%
sub listPages()
if n <= 1 then exit sub
%>
<p>>>
<%if currentpage = 1 then%>
<font color=darkgray>首页</font>
<%else%>
<font color=black face="arial"><a href="<%=request.ServerVariables("script_name")%>?page=1">
首页</font></a>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage-1%>">
<font color=black face="arial" >前页</a></font>
<%end if%>
<%if currentpage = n then%>
<font color=darkgray face="arial" >后页</font>
<%else%>
<font color=black face="arial" ><a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>">下页</a>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=n%>">末页</a></font>
<%end if%>
<font color=black face="arial" >
总:<%=currentpage%>/<%=n%>页 总共:<%=totalrec%>张订单 [<%=msg_per_page%>订单/页]</font></p>
<%end sub%>
<%
sub Orderdetail()
'如果是从修改提交的显示详细信息，先写入内容，否则直接显示
if request.form("modify")="ok" then
set rs=Server.Createobject("ADODB.RecordSet")
sql="select * from OrderList where OrderNum='"&OrderNum&"'"
rs.Open sql,conn,1,3
if request("RecName")<>"" then rs("RecName") = request("RecName")
if request("RecPhone")<>"" then rs("RecPhone") = request("RecPhone")
if request("LastModifytime")<>"" then rs("LastModifytime") = date()
if request("Recmail")<>"" then rs("Recmail") = request("Recmail")
if request("RecAddress")<>"" then rs("RecAddress") = request("RecAddress")
if request("Zipcode")<>"" then rs("Zipcode") = request("Zipcode")
if request("Notes")<>"" then rs("Notes") = request("Notes")
if request("Memo")<>"" then rs("Memo") = request("Memo")
if request("Status")<>"" then rs("Status") = request("Status")
rs.update
rs.close
set rs=nothing
response.write "修改成功"
response.write "<br><meta http-equiv=refresh content=""1;URL=admin_order.asp?action=list&id="&request("ID")&""">"
response.end
end if
sqlinfo = "select A.OrderNum,A.ProdId,A.BuyPrice,A.ProdUnit,B.Memo,"&_
"B.Status,B.Recname,B.RecPhone,B.Recmail,"&_
"B.RecAddress,B.Zipcode,B.Paytype,B.Discount,B.Notes,C.ProdName "&_
" from OrderDetail A,OrderList B,ProdMain C"&_
" where A.OrderNum='"&OrderNum&"' and A.OrderNum = B.OrderNum and A.ProdId=C.Prodid"
set rsorder=Server.Createobject("ADODB.RecordSet")
rsorder.Open sqlinfo,conn,1,1
if rsorder.eof and rsorder.bof then
response.write "<table ><tr><td>对不起！订单错误，请您仔细检查！<br><br>如果还有问题，请联系网站管理员</td></tr></table>"
response.write "<br><meta http-equiv=refresh content=""1;URL=admin_order.asp"">"
response.end
else
%>
<%
if rsorder("Status")="99" or instr(rsorder("Status"),"1") then
ss=conn.Execute("select * from OrderStatusType where Status='"&rsorder("Status")&"'")
%>
<table width="100%" border="1" style="border-collapse:collapse" cellpadding="3" cellspacing="1" bordercolor="#FFCC99">
<form action="admin_order.asp?action=list" method=post>
<INPUT TYPE="hidden" name=modify value=ok>
<INPUT TYPE="hidden" name=LastModifytime value=date()>
<INPUT TYPE="hidden" name=Id value=<%=rsorder("OrderNum")%>>
<tr><td colspan="4">订单号:<b><font color=yellow> <%=rsorder("OrderNum")%> </font></b><br><br>
<table width="95%" cellpadding=2 cellspacing=0 align="center">
<tr><td valign='top' align='right'>收货人姓：</td>
<td><input type="text" name="Recname" value="<%=rsorder("Recname")%>" disabled size="20" maxlength="20"></td>
</tr><tr>
<td width=100 valign='top' align='right'>收货人电话：</td>
<td><input type="text" name="RecPhone" value="<%=rsorder("RecPhone")%>" disabled size="20" maxlength="20"></td>
</tr><tr>
<td valign='top' align='right'>收货人邮箱：</td>
<td><input type="text" name="Recmail" value="<%=rsorder("Recmail")%>" disabled size="30" maxlength="30"></td>
</tr><tr>
<td valign='top' align='right'>收货地址：</td>
<td><input type="text" name="RecAddress" value="<%=rsorder("RecAddress")%>" disabled size="30" maxlength="30"></td>
</tr><tr>
<td valign='top' align='right'>邮政编码：</td>
<td><input type="text" name="Zipcode" value="<%=rsorder("Zipcode")%>" disabled size="10" maxlength="10"></td>
</tr><tr>
<td valign='top' align='right'>支付类型：</td>
<td><font color="#FFFF00"><%=rsorder("Paytype")%></font></td>
</tr><tr>
<td valign='top' align='right'>使用点券：</td><td><font color="#FFFF00"><%=rsorder("Discount")%></font></td>
</tr><tr>
<td valign='top' align='right'>顾客说明：</td><td><textarea cols='50' rows='4' name='Notes' disabled><%=rsorder("Notes")%></textarea></td></tr>
</tr><tr>
<td valign='top' align='right' width=100>处理备忘：</td><td><textarea cols='30' rows='4' name='memo' valign=abslutetop style="background-color: #FFFFCC; color: #222222;"><%=rsorder("Memo")%></textarea> 订单处理附加说明</td></tr>
<tr><td align=right valign=top>状态修改</td><td>
<% response.write "<font color=yellow><b>"&ss("StatusDefine")&"</b> 状态不可修改</font>"
set ss=nothing
else
%>
<table width="100%" border="1" style="border-collapse:collapse" cellpadding="3" cellspacing="1" bordercolor="#FFCC99">
<form action="admin_order.asp?action=list" method=post>
<INPUT TYPE="hidden" name=modify value=ok>
<INPUT TYPE="hidden" name=LastModifytime value=date()>
<INPUT TYPE="hidden" name=Id value=<%=rsorder("OrderNum")%>>
<tr><td colspan="4">订单号:<b><font color=yellow> <%=rsorder("OrderNum")%> </font></b><br><br>
<table width="95%" cellpadding=2 cellspacing=0 align="center">
<tr><td valign='top' align='right'>收货人姓：</td>
<td><input type="text" name="Recname" value="<%=rsorder("Recname")%>" size="20" maxlength="20"></td>
</tr><tr>
<td width=100 valign='top' align='right'>收货人电话：</td>
<td><input type="text" name="RecPhone" value="<%=rsorder("RecPhone")%>" size="20" maxlength="20"></td>
</tr><tr>
<td valign='top' align='right'>收货人邮箱：</td>
<td><input type="text" name="Recmail" value="<%=rsorder("Recmail")%>" size="30" maxlength="30"></td>
</tr><tr>
<td valign='top' align='right'>收货地址：</td>
<td><input type="text" name="RecAddress" value="<%=rsorder("RecAddress")%>" size="30" maxlength="30"></td>
</tr><tr>
<td valign='top' align='right'>邮政编码：</td>
<td><input type="text" name="Zipcode" value="<%=rsorder("Zipcode")%>" size="10" maxlength="10"></td>
</tr><tr>
<td valign='top' align='right'>支付类型：</td>
<td><font color="#FFFF00"><%=rsorder("Paytype")%></font></td>
</tr><tr>
<td valign='top' align='right'>使用点券：</td><td><font color="#FFFF00"><%=rsorder("Discount")%></font></td>
</tr><tr>
<td valign='top' align='right'>顾客说明：</td><td><textarea cols='50' rows='4' name='Notes'><%=rsorder("Notes")%></textarea></td></tr>
</tr><tr>
<td valign='top' align='right' width=100>处理备忘：</td><td><textarea cols='30' rows='4' name='memo' valign=abslutetop style="background-color: #FFFFCC; color: #222222;"><%=rsorder("Memo")%></textarea> 订单处理附加说明</td></tr>
<tr><td align=right valign=top>状态修改</td><td>
<% '显示状态类型表
set rs2=server.createobject("adodb.recordset")
sql="select * from OrderStatusType Order by Status asc"
rs2.Open sql,conn,1,1
if rs2.bof and rs2.eof then
response.write "<option selected>-没区分状态-</option>"
else
response.write "<select name='Status'>"
Do While Not rs2.eof
if rs2("Status") = rsorder("Status") then response.write "<option value='"&rs2("Status")&"' selected>"&rs2("StatusDefine")&"</option>"
if rs2("Status") > rsorder("Status") then
response.write "<option value='"&rs2("Status")&"'>"&rs2("StatusDefine")&"</option>"
end if
rs2.movenext
if rs2.eof then
exit do
end if
loop
end if
rs2.close
set rs2=nothing
response.write "</select>"
end if
%>
</td></tr>
<tr><td></td><td height=30 ><input type='submit' name='action' value='修改定单'> <input type='reset' name='reset' value='重设'></td></tr></form></table>
</td></tr>
<tr><td width="25%">产品名称</td><td width="25%">购买数量</td><td width="25%">购买单价</td><td width="25%" align=center>合 计</td></tr>
<%
Total = 0
do while not rsorder.eof
Sum = rsorder("ProdUnit")* clng(rsorder("BuyPrice"))
Sum = FormatNumber(Sum,2)
Total = Sum + Total '计算总金额
Discount = rsorder("Discount") '因为只有订单列表库中有折扣，而且订单只有一条记录，所以必须先取出来暂存
response.write "<tr><td width='25%'><a href='../prodshow.asp?ProdId="&rsorder("ProdId")&"' target='blank_'>"&rsorder("ProdName")&"</a></td>"
response.write "<td width='25%'>"&rsorder("ProdUnit")&"</td>"
response.write "<td width='25%'>"&FormatNumber(rsorder("BuyPrice"),2)&"</td>"
response.write "<td width='25%'>￥"&Sum&"</td></tr>"
rsorder.movenext
loop
end if
response.write "<TR><TD colspan='3' align=right>折前金额：</TD><td>￥"&FormatNumber(Total,2)&"</td></TR>"
if Discount > "0" then
response.write "<TR><TD colspan='3' align=right>折扣额：</TD><td>￥"&FormatNumber(Discount,2)&"</td></TR>"
else
response.write "<TR><TD colspan='3' align=right>折扣额：</TD><td>￥"&FormatNumber(00,2)&"</td></TR>"
end if
response.write "<TR><TD colspan='3' align=right>折后金额：</TD><td>￥"&FormatNumber(Total-cint(Discount),2)&"</td></TR>"
set rsorder=nothing
response.write "</tr></table>"
end sub
sub orderdel()
if Delid="" or isnull(Delid) then
Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_order.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_order.asp""></BLOCKQUOTE>"
else
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from OrderList where id in ("&Delid&")"
rs.open sql,conn,1,3
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('该订单不存在，或者被删除了！');"
response.write "</script>"
else
Do while not rs.eof
rs("del")=true
rs.update
rs.movenext
loop
end if
response.write "<script language='javascript'>"
response.write "alert('订单删除 成功！');"
response.write "location.href='admin_order.asp';"
response.write "</script>"
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
end if
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -