📄 orderprocess.asp
字号:
<!-- #include file = "include/sysbase.asp" -->
<%
dim rsObj,strSQL
dim nOrderId
set rsObj = Server.CreateObject("ADODB.RecordSet")
nOrderId = RealString(Request.QueryString("id"))
strSQL = "SELECT * FROM OrderList WHERE id = "& nOrderId
rsObj.Open strSQL, conn, 2,1
%>
<html>
<head>
<title>查看订单</title>
<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<link rel = "stylesheet" href = "include/main.css" type = "text/css">
<script language = Javascript>
<!--
function deleteMe(){
if (confirm("确定删除？无法恢复！") == 1){
window.location = "orderDel.asp?id=<%=RealString(Request.QueryString("id"))%>";
}
}
function submitMe(){
if (confirm("收到货款，并已发货？") == 1){
form1.submit();
}
}
//-->
</script>
</head>
<body text = "#000000" leftmargin = "0" topmargin = "6">
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center">
<tr bgcolor="#FF0000">
<td height = "28" colspan = "2">
<div align = "center"><font color = "#FFFFFF">查看订单</font>(check)</div> </td>
</tr>
<tr bgcolor = "#00FFFF">
<td colspan = "2" nowrap><font face = "Wingdings 3"><b><font color = "#FFFFFF">a</font></b></font><font color = "#660033">order detail ……</font></td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">orderid</div>
</td>
<td width = "88%"><%=rsObj("id")%></td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">guestid</div>
</td>
<td width = "88%"><%=rsObj("memberID")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">consigneename</div>
</td>
<td width = "88%"><%=rsObj("customerName")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">consigneead</div>
</td>
<td width = "88%"><%=rsObj("address")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">zipcode</div>
</td>
<td width = "88%"><%=rsObj("Zipcode")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">phone</div>
</td>
<td width = "88%"><%=rsObj("phone")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">E-mail</div>
</td>
<td width = "88%"><%=rsObj("email")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">payway </div>
</td>
<td width = "88%"><%=rsObj("payment")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">remark</div>
</td>
<td width = "88%"><%=rsObj("remark")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">orderdate </div>
</td>
<td width = "88%"><%=rsObj("createDate")%> </td>
</tr>
<tr bgcolor = "#FF0000">
<td colspan = "2" nowrap><font face = "Wingdings 3"><b><font color = "#FFFFFF">a</font></b></font><font color = "#660033">order detail……</font></td>
</tr>
</table>
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center">
<tr>
<td width = "8%" nowrap>
<div align = "center">booknum</div>
</td>
<td width = "49%" nowrap>
<div align = "center">bookname</div>
</td>
<td width = "14%" nowrap>
<div align = "center">price</div>
</td>
<td width = "13%" nowrap>
<div align = "center">amount</div>
</td>
<td width = "16%" nowrap>
<div align = "center">sum</div>
</td>
</tr>
<%
dim nSinglePrice, nOrderPrice, nTotalPrice, nQuantity
nSinglePrice = 0 '单件商品的价格
nQuantity = 0 '单件商品的购买数量
nOrderPrice = 0 '购买某件商品的总价格（因为一件商品可能买多件），=单价X购买量
nTotalPrice = 0 '购买所有商品的总价格
'订单明细
strSQL = "SELECT * FROM orderDetail WHERE orderID = " & nOrderID
Set rsObj = conn.Execute(strSQL)
do while (not rsObj.eof or err)
nSinglePrice = rsObj("price")
nQuantity = rsObj("Quantity")
if nSinglePrice <>"" AND nQuantity <> "" then
nOrderPrice = nSinglePrice * nQuantity
nTotalPrice = nTotalPrice + nOrderPrice
end if
%>
<tr bgcolor = "#D9EAF9">
<td width = "8%">
<div align = "center"><%=rsObj("productID")%> </div>
</td>
<td width = "49%">
<div align = "center"><%=rsObj("productName")%> </div>
</td>
<td width = "14%">
<div align = "center"><%=nSinglePrice%> </div>
</td>
<td width = "13%">
<div align = "center"><%=nQuantity%> </div>
</td>
<td width = "16%">
<div align = "center"><%=nOrderPrice%> </div>
</td>
</tr>
<%
rsObj.MoveNext
loop
rsObj.Close()
Set rsObj = Nothing
CloseConn()
%>
<tr>
<td colspan = "5">
<div align = "right">total：<%=nTotalPrice%>yuan </div>
</td>
</tr>
</table>
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center">
<form method = "post" action = "orderProcessSave.asp" name = "form1">
<tr>
<td width = "7%" nowrap>
<div align = "right">delever remark </div>
</td>
<td width = "93%">
<textarea name = "treatedRemark" cols = "70" rows = "3">delevered</textarea>
<input type = "hidden" name = "id" value = "<%=nOrderId%>">
</td>
</tr>
<tr bgcolor="#FF6600">
<td height = "28" colspan = "2">
<div align = "center">
<input type = "button" name = "Submit3" value = "delete order" onClick = "deleteMe()">
<input type = "button" name = "Submit" value = " delever " onClick = "submitMe()">
<input type = "button" name = "Submit2" value = " return " onClick = "window.location = '<%=Session("adminOldUrl")%>'">
</div> </td>
</tr>
</form>
</table>
<br>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -