?? order_particular.asp
字號:
<%
'這是安全模塊，如果客戶不是管理員用戶，立即重定向到首頁.
'這樣可以防止某些客戶直接訪問admin下面的文件。
If Session("UserType")<>"A" Then
Response.Redirect "../index.asp"
End If
%>
<!--#INCLUDE FILE="../odbc_connection2.asp"-->
<html>
<head>
<title>詳細(xì)資料</title>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
'利用Request.QueryString獲取傳過來的訂單編號和
Dim OrderId
OrderId=Request.QueryString("OrderId")
'獲取該訂單的有關(guān)信息
Dim strSql,rs,UserId,TotalNum,TotalMoney,SubmitDate,ConsignDate
strSql ="Select * From Orders where OrderId=" & OrderId
Set rs=db.Execute(strSql)
UserId=rs("UserId")
TotalNum=rs("TotalNum")
TotalMoney=rs("TotalMoney")
SubmitDate=rs("SubmitDate")
ConsignDate=rs("ConsignDate")
%>
<h2 align="center">訂單:<%=OrderId%></h2>
<center>
<table border="0" width="80%" align="center" >
<%
'獲取該訂單的顧客詳細(xì)信息
strSql ="Select * From Users where UserId='" & UserId & "'"
Set rs=db.Execute(strSql)
%>
<tr bgcolor="#F2F2F2">
<td width="20%">姓名：</td><td><%=rs("RealName")%></td>
</tr>
<tr bgcolor="#F2F2F2">
<td>通訊地址：</td><td><%=rs("Address")%></td>
</tr>
<tr bgcolor="#F2F2F2">
<td>郵政編碼：</td><td><%=rs("Postalcode")%></td>
</tr>
<tr bgcolor="#F2F2F2">
<td>電話</td><td><%=rs("Tel")%></td>
</tr>
<tr bgcolor="#F2F2F2">
<td>E-mail：</td><td><%=rs("Email")%></td>
</tr>
<tr bgcolor="#F2F2F2">
<td>訂貨日期</td><td><%=SubmitDate%></td>
</tr>
<tr bgcolor="#F2F2F2">
<td>發(fā)貨日期</td><td><%=ConsignDate%></td>
</tr>
<table>
<br>
<table border="0" width="80%" align="center" >
<caption align="left">訂單明細(xì)</caption>
<tr bgcolor="#B7B7B7" align="center">
<td>圖書編號</td><td>名稱</td><td>單價</td><td>數(shù)量</td><td>小計</td>
</tr>
<%
'獲取該訂單的圖書詳細(xì)信息,這里使用聯(lián)合查詢，請對照SQL語言學(xué)習(xí)本語句
strSql="Select book.BookId,book.BookName,book.BookPrice,Orders_particular.BuyNum,(Book.BookPrice * Orders_particular.BuyNum) As subtotal From Orders_particular,book"
strSql=strSql & " where Orders_particular.OrderId=" & OrderId
strSql=strSql & " And Orders_particular.BookId=book.BookId"
strSql=strSql & " Order By book.BookId"
Set rs=db.Execute(strSql)
Do While Not rs.Eof
%>
<tr bgcolor="#F2F2F2" align="center">
<td><%=rs("BookId")%></td>
<td><%=rs("BookName")%></td>
<td><%=rs("BookPrice")%></td>
<td><%=rs("BuyNum")%></td>
<td><%=rs("subtotal")%></td>
</tr>
<%
rs.MoveNext
Loop
%>
<tr bgcolor="#F2F2F2" align="center">
<td colspan="3">總計</td><td><%=TotalNum%></td><td><%=TotalMoney%></td>
</tr>
</table>
<p align=center><a href="JavaScript:close();">關(guān)閉窗口</a>
</center>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -