?? 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 + -