📄 view.asp
字号:
<!--#include file="../Session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/site.css" rel="stylesheet" type="text/css">
<script language="javascript">
<!--
function checkQtys(form){
ads.style.display = "none";
document.all.WebBrowser.ExecWB(6,6)
}
-->
</script>
</head>
<body>
<form name="form" method="post" action="../Sorry.asp">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from OrderForm where id="&request("id")&""
rs.open sql,conn,0,1
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="50" colspan="6" align="center" valign="middle" class="tdstyle"><font color="#000000" size="3"><strong><%=Title%><%=rs("BillNo")%>号订单</strong></font></td>
</tr>
<tr>
<td width=42% height="25" align="center" class="tdstyle"> 商品名称</td>
<td width=12% class="tdstyle" align="center"> 市场价</td>
<td width=12% class="tdstyle" align="center"> 会员价</td>
<td width=12% class="tdstyle" align="center"> 数量</td>
<td width=12% class="tdstyle" align="center"> 小计</td>
</tr>
<%
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql="select * from OrderList where OrderFormId="&rs("id")&""
rs2.open sql,conn,0,1
if not rs2.eof then
Money1=0
Money2=0
while not rs2.eof
Money1=Money1+rs2("Money1")*rs2("Amount")
Money2=Money2+rs2("Money2")*rs2("Amount")%>
<tr>
<td height="25" align="center" class="tdstyle"> <%=rs2("TradeName")%></td>
<td class="tdstyle" align="center"> <%=rs2("Money1")%></td>
<td class="tdstyle" align="center"> <%=rs2("Money2")%></td>
<td class="tdstyle" align="center"> <%=rs2("Amount")%></td>
<td class="tdstyle" align="center"> <%=FormatNumber(rs2("Money2")*rs2("Amount"),2)%></td>
</tr>
<%rs2.MoveNext()
Wend
end if%>
<tr>
<td height="25" colspan="6" align="right" class="tdstyle"> 运费:<font color="#FF0000"><%=rs("DeliveryOutlay")%></font>元 货款合计:<font color="#FF0000"><%=Money2%></font>元 总计: <font color="#FF0000"><%MoneySum=rs("Money"):Response.write""&MoneySum&""%></font>元 (本次购物，您节省了<font color="#FF0000"><%=Money1-Money2%></font>元) </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="50" colspan="6" align="center" class="tdstyle"><font color="#000000" size="3"><strong>会员<%Member=rs("Member"):Response.write""&Member&""%>的信息</strong></font></td>
</tr>
<tr valign="middle">
<td width="10%" height="22" align="center" class="tdstyle">姓 名</td>
<td width="20%" class="tdstyle"> <%=rs("Name")%></td>
<td width="10%" align="center" class="tdstyle">配送方式</td>
<td width="25%" class="tdstyle"> <%=rs("DeliveryMode")%></td>
<td width="10%" align="center" class="tdstyle">支付方式</td>
<td width="25%" class="tdstyle"> <%=rs("PayMode")%></td>
</tr>
<tr valign="middle">
<td width="10%" height="25" align="center" class="tdstyle">电 话</td>
<td width="20%" class="tdstyle"> <%=rs("Tel")%></td>
<td width="10%" align="center" class="tdstyle">邮 编</td>
<td width="25%" class="tdstyle"> <%=rs("Postalcode")%></td>
<td width="10%" align="center" class="tdstyle">Email</td>
<td width="25%" class="tdstyle"> <a href=mailto:<%=rs("Mail")%>><%=rs("Mail")%></a></td>
</tr>
<tr valign="middle">
<td width="10%" height="25" align="center" class="tdstyle">地 址</td>
<td colspan="5" class="tdstyle"> <%=rs("Address")%></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="15%" height="25" align="center" valign="middle" class="tdstyle">脱销方案：</td>
<td valign="middle" class="tdstyle"> <%=rs("StockOut")%></td>
</tr>
<tr>
<td height="25" align="center" valign="middle" class="tdstyle">订单备注：</td>
<td valign="middle" class="tdstyle"> <%if rs("Remark")="" then
response.write "无"
else
response.write ""&rs("Remark")&""
end if
%> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" id=ads style="DISPLAY: ">
<tr>
<td height="40" align="center" valign="middle" class="tdstyle">
<input name="id" type="hidden" value="<%=request("id")%>">
<input name="Member" type="hidden" value="<%=Member%>">
<input name="MoneySum" type="hidden" value="<%=MoneySum%>">
<input name="page" type="hidden" value="<%=request("page")%>">
<input name="keywords" type="hidden" value="<%=request("keywords")%>">
<input name="keywords1" type="hidden" value="<%=request("keywords2")%>">
<input name="keywords3" type="hidden" value="<%=request("keywords3")%>">
<input name="state" type="hidden" value="<%=request("state")%>">
<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0>
</OBJECT>
<%if request("FormState")=1 then%>
<input name="submit" type="button" class="button" value="发 货" onClick="if(confirm('此订单尚未支付！\n\n您确定要发货吗？')) location.href='?Act=Yes&Id=<%=request("id")%>'">
<%else%>
<input name="button" type="submit" class="button" value="发 货" onclick="javascript:window.history.go(-1)">
<%end if%>
<input type=button class="button" onClick="return checkQtys(this.form);" value="打印订单">
<input type=button class="button" onclick="document.all.WebBrowser.ExecWB(7,1)" value="打印预览">
<input type=button class="button" onclick="document.all.WebBrowser.ExecWB(8,1)" value="页面设置">
<input type=button class="button" onclick="javascript:window.history.go(-1)" value="返回上页" name="button">
</td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
rs2.close
set rs2=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -