📄 view_order.asp
字号:
<!--#include file="conn.asp"-->
<%call time_out()%>
<%
if instr(session("proview"),"s1")=0 then
response.Write "<script language=javascript>alert('您无权操作!');window.location.href='index.asp';</script>"
response.end
end if%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
action=trim(request("action"))
ordernum=trim(request("ordernum"))
if action="del" then
conn.execute("delete from [order] where ordernum='"&ordernum&"'")
response.write "<script language=javascript>alert('您的购物车内没有商品！');window.opener.location.reload();window.close();</script>"
response.end
end if
sql="select * from [order] where ordernum='"&ordernum&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
<tr>
<td width="20%" height="25">订单状态：</td>
<td><form name="form1" method="post" action="save_order.asp?ordernum=<%=ordernum%>">
<%zhuangtai()%>
<input type="submit" name="Submit" value="修改订单状态" <%if rs("zhuangtai")=5 then%>disabled<%end if%>>
</form> </td>
</tr>
<tr>
<td height="25">商品信息：</td>
<td>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr align="center">
<td width="40%" height="25">商品名称</td>
<td>单价</td>
<td>订购数量</td>
<td>小计</td>
</tr>
<%sqlp="select a.ordernum,a.pid,a.shuliang,a.danjia,a.fenyong,a.zonge,b.pid,b.pro_name from [order] a,product b where a.ordernum='"&ordernum&"' and a.pid=b.pid"
set rsp=server.createobject("adodb.recordset")
rsp.open sqlp,conn,1,1
do while not rsp.eof%>
<tr align="center">
<td height="25"><%=rsp("pro_name")%></td>
<td><%=rsp("danjia")%></td>
<td><%=rsp("shuliang")%></td>
<td><%=rsp("zonge")%></td>
</tr>
<%
totalmoney=totalmoney+rsp("danjia")*rsp("shuliang")
fenyong=rsp("fenyong")
rsp.movenext
loop
rsp.close:set rsp=nothing%>
<tr align="center">
<td height="25" colspan="3">总计：（其中送货费用：<%=fenyong%>元）</td>
<td><font color="red"><%=totalmoney+fenyong%>元</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25">收 货 人：</td>
<td> <%=rs("receive_name")%></td>
</tr>
<tr>
<td height="25">联系电话：</td>
<td> <%=rs("link_tel")%></td>
</tr>
<tr>
<td height="25">电子邮件：</td>
<td> <%=rs("link_mail")%></td>
</tr>
<tr>
<td height="25">联系地址：</td>
<td> <%=rs("address")%></td>
</tr>
<tr>
<td height="25">送货方式：</td>
<td>
<%
sqlv="select * from shop_songhuo where shid="&rs("shid")
set rsv=server.CreateObject("adodb.recordset")
rsv.open sqlv,conn,1,1
response.write(rsv("shtype"))
rsv.close:set rsv=nothing
%> </td>
</tr>
<tr>
<td height="25">付款方式：</td>
<td>
<%
sqlv="select * from shop_fk where fkid="&rs("fkid")
set rsv=server.CreateObject("adodb.recordset")
rsv.open sqlv,conn,1,1
response.write(rsv("fktype"))
rsv.close:set rsv=nothing
%> </td>
</tr>
<tr>
<td height="25">备 注：</td>
<td> <%=rs("beizhu")%></td>
</tr>
<tr>
<td height="25">提交时间：</td>
<td> <%=rs("addtime")%></td>
</tr>
<tr>
<td height="25" colspan="2" align="center">
<a href="view_order.asp?action=del&ordernum=<%=ordernum%>" onClick="return confirm('确定删除此订单吗？')">删除订单</a>
<a href="javascript:window.close();">关闭窗口</a></td>
</tr>
</table>
<%
sub zhuangtai()
select case rs("zhuangtai")
case "1"%>
<input name="checkbox" type="checkbox" value="checkbox" checked disabled>
未作任何处理
<input type="checkbox" name="zhuangtai" value="2" disabled>
用户已付款
<input type="checkbox" name="checkbox3" value="checkbox" disabled>
服务商已收到款
<input type="checkbox" name="checkbox4" value="checkbox" disabled>
服务商已发货
<input type="checkbox" name="checkbox5" value="checkbox" disabled>
用户已收到货
<%case "2"%>
<input name="checkbox" type="checkbox" value="checkbox" checked disabled>
未作任何处理
<input type="checkbox" name="checkbox2" value="checkbox" checked disabled>
用户已付款
<input type="checkbox" name="zhuangtai" value="3">
服务商已收到款
<input type="checkbox" name="checkbox4" value="checkbox" disabled>
服务商已发货
<input type="checkbox" name="checkbox5" value="checkbox" disabled>
用户已收到货
<%case "3"%>
<input name="checkbox" type="checkbox" value="checkbox" checked disabled>
未作任何处理
<input type="checkbox" name="checkbox2" value="checkbox" checked disabled>
用户已付款
<input type="checkbox" name="checkbox3" value="checkbox" checked disabled>
服务商已收到款
<input type="checkbox" name="zhuangtai" value="4">
服务商已发货
<input type="checkbox" name="checkbox5" value="checkbox" disabled>
用户已收到货
<%case "4"%>
<input name="checkbox" type="checkbox" value="checkbox" checked disabled>
未作任何处理
<input type="checkbox" name="checkbox2" value="checkbox" checked disabled>
用户已付款
<input type="checkbox" name="checkbox3" value="checkbox" checked disabled>
服务商已收到款
<input type="checkbox" name="checkbox4" value="checkbox" checked disabled>
服务商已发货
<input type="checkbox" name="zhuangtai" value="5" disabled>
用户已收到货
<%case "5"
response.Write("<font color=red>订单已完成</font>")
%>
<%end select
end sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -