orderprocess.asp
来自「《实例精粹ASP》中部分源代码」· ASP 代码 · 共 200 行
ASP
200 行
<!-- #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, adOpenKeyset, adLockReadOnly
%>
<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>
<td colspan = "2" height = "28" bgcolor = "#4296E7">
<div align = "center"><font color = "#FFFFFF">查看订单</font></div>
</td>
</tr>
<tr bgcolor = "#77B3EE">
<td colspan = "2" nowrap><font face = "Wingdings 3"><b><font color = "#FFFFFF">a</font></b></font>
<font color = "#660033"> 订单详细资料……</font></td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">订单号</div>
</td>
<td width = "88%"><%=rsObj("id")%></td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">客户帐号</div>
</td>
<td width = "88%"><%=rsObj("memberID")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">收货人姓名</div>
</td>
<td width = "88%"><%=rsObj("customerName")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">收货人地址</div>
</td>
<td width = "88%"><%=rsObj("address")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">邮政编码</div>
</td>
<td width = "88%"><%=rsObj("Zipcode")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">联系电话</div>
</td>
<td width = "88%"><%=rsObj("phone")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">电子邮件</div>
</td>
<td width = "88%"><%=rsObj("email")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">付款方式</div>
</td>
<td width = "88%"><%=rsObj("payment")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">备注</div>
</td>
<td width = "88%"><%=rsObj("remark")%> </td>
</tr>
<tr>
<td width = "12%" nowrap>
<div align = "right">订货日期</div>
</td>
<td width = "88%"><%=rsObj("createDate")%> </td>
</tr>
<tr bgcolor = "#77B3EE">
<td colspan = "2" nowrap><font face = "Wingdings 3"><b><font color = "#FFFFFF">a</font></b></font>
<font color = "#660033">订货手机明细……</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">手机编号</div>
</td>
<td width = "49%" nowrap>
<div align = "center">手机名称</div>
</td>
<td width = "14%" nowrap>
<div align = "center">手机价格</div>
</td>
<td width = "13%" nowrap>
<div align = "center">手机数量</div>
</td>
<td width = "16%" nowrap>
<div align = "center">金额小计</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">总计金额：<%=nTotalPrice%>元 </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">发货备注</div>
</td>
<td width = "93%">
<textarea name = "treatedRemark" cols = "70" rows = "3">已发货</textarea>
<input type = "hidden" name = "id" value = "<%=nOrderId%>">
</td>
</tr>
<tr>
<td height = "28" bgcolor = "#4296E7" colspan = "2">
<div align = "center">
<input type = "button" name = "Submit3" value = "删除该订单" onClick = "deleteMe()">
<input type = "button" name = "Submit" value = " 发 货 " onClick = "submitMe()">
<input type = "button" name = "Submit2" value = " 返 回 " onClick = "window.location = '<%=Session("adminOldUrl")%>'">
</div>
</td>
</tr>
</form>
</table>
<br>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?