📄 order4.asp

📁 这是一个很漂亮的网站购物系统
💻 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">
</head>
<%
action=request("action")
if action="print" then
call order_print()
else
call order()
end if


sub order_print()
OrderNum=request("ID")
set rs=conn.execute("select A.ordertime,A.Userid,b.ordersum,A.OrderNum,A.PEI,A.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 buyok_Order A,buyok_OrderList B,buyok_produc C where A.OrderNum='"&OrderNum&"' and A.OrderNum = B.OrderNum and A.ProdId=C.Prodid")
if rs.eof and rs.bof  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 rs2 = conn.Execute("select * from Order_type where Status='"&rs("Status")&"'")
fei=rs("fei")
%>
<table width="98%" border="1"style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="2">
<tr><td colspan=2 height=40 align=center><b><%=sitename%> 打印订单 </b>&nbsp; &nbsp;&nbsp; &nbsp;打印时间：<%=now()%></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><%=rs("Ordertime")%></td></tr>
	<tr><td align='right'>订单金额：</td><td><%=formatnumber(rs("Ordersum"),2)%></td></tr>
	<tr><td align='right'>订 单 号：</td><td><%=rs("OrderNum")%></td></tr>
	<tr><td align='right'>会员ID：</td><td><%=rs("userid")%></td></tr>
	<tr><td align='right'>配送方式：</td><td><%=rs("pei")%></td></tr>	
	<tr><td align='right'>收货姓名：</td><td><%=rs("Recname")%></td></tr>
	<tr><td align='right'>联系电话：</td><td><%=rs("RecPhone")%></td></tr>
	<tr><td align='right'>移动电话：</td><td><%=rs("CompPhone")%></td></tr>
	<tr><td align='right'>电子邮箱：</td><td><%=rs("Recmail")%></td></tr>
	<tr><td align='right'>邮政编码：</td><td><%=rs("Zipcode")%></td></tr>
	<tr><td align='right'>收货地址：</td><td><%=rs("RecAddress")%></td></tr>
	<tr><td align='right'>送货时间：</td><td><%=rs("gettime")%></td></tr>
	<tr><td align='right'>顾客说明：</td><td><%=rs("Notes")%></td></tr>
	<tr><td align='right'>订单处理：</td><td><%=rs("Memo")%></td></tr>
	<tr><td align='right' height=30>订单状态：</td><td><%=rs2("StatusDefine")%></select></td></tr>

<tr><td align=right>购物清单：</td><td>
<table width="100%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="3">
	<tr><td>商品编号</td><td>商品名称</td><td>购买数量</td><td>结算单价</td><td>金额</td></tr>
<%
	Total = 0
	do while not rs.eof 
	Sum = rs("ProdUnit")* csng(rs("BuyPrice")) * csng(rs("thiskou"))/10
	Sum = FormatNumber(Sum,2) 
	Total = Sum + Total
	
	response.write "<tr><td>"&rs("ProdId")&"</td><td>"&rs("ProdName")&"</td>"
	response.write "<td>"&rs("ProdUnit")&"</td>"
	response.write "<td>"&FormatNumber(csng(rs("BuyPrice")) * csng(rs("thiskou"))/10,2)&"</td>"
	response.write "<td>"&Sum&"</td></tr>"

	rs.movenext
	loop

%>
<TR><TD colspan='5'>
商品总价：<%=FormatNumber(Total,2)%><br>
配送费用：<%=formatnum(fei,2)%><br>
总计费用：<font color=red><b><%=FormatNumber((Total+fei),2)%></b></font> 元
</td></TR></table>

</td></tr>
<tr><td colspan=2>
	<input type='button' name='pnt' value='打印订单' onclick="javascript:window.print();">
</td></tr>
</table>

<%
set rs=nothing
set rs2=nothing
end sub


sub order()
%>
<table width="98%" border="1"style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="2">
<form action=order4.asp?action=print method=post>
<tr><td colspan=2 class=td height=25>订单打印 &nbsp;</td></tr>
<tr><td align='center'>请填订单号：</td><td><input type="text" name="id" style="overflow:auto;" size=30 maxlength=15></td></tr>
<tr><td colspan=2 height=25><input type='submit' name='action' value='生成打印件'></td></tr>
<%
end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -