?? submitorderprocess.asp
字號:
<%
Dim IntBuyerID, StrDate, StrCart, StrTotalPrice, IntShipped, IntCount, IntShowCounter, DblTotalPrice, DblFinalPrice, StrCartQuery, ObjRSCart
IF Session("LoginBuyer") = "" OR Session("LoginUser") = "" Then
Response.Redirect("Default.asp")
END IF
IntBuyerID = CInt(Session("LoginBuyer"))
StrDate = Date()
StrCart = "<cart>"
IntCount = CInt(Session("TotalItems"))
For IntShowCounter = 1 to IntCount
IF Session("MyItems")("Purchase" & IntShowCounter) = "yes" Then
DblTotalPrice = CDbl(Session("MyItems")("Price" & IntShowCounter) * CInt(Session("MyItems")("Quantity" & IntShowCounter)))
productid = Session("MyItems")("ISBN" & IntShowCounter)
quantity= Session("MyItems")("Quantity" & IntShowCounter)
Session("MyItems")("Purchase" & IntShowCounter) = "no"
StrCart = Session("MyItems")("BookName" & IntShowCounter)
StrCartQuery = "Insert into Orders(Buyerid,orderdate,cartitems,totalprice,shipped,productid,quantity,act_id) Values(" & IntBuyerID & ", '" & StrDate & "', '" & strCart & "'," & dbltotalprice & ", " & false & "," & productid & "," & quantity & "," & "1" & ")"
ObjCon.Execute(StrCartQuery)
END IF
Next
// StrCartQuery = "Insert into Orders Values ('"&IntBuyerID&"', '"&StrDate&"', '"&StrCart&"', '"&StrTotalPrice&"', '"&IntShipped&"')"
// ObjCon.Execute(StrCartQuery)
StrTotalPrice = CStr(DblFinalPrice)
IntShipped = 0
%>
<table border="0">
<tr>
<td><h3><font face="verdana, arial" color="darkblue">ORDER SUBMITTED!</font</h3></td>
</tr>
</table>
<hr color="black" noshade>
<table border="0">
<tr>
<td class="SimpleText">You order has been submitted.</td>
</tr>
</table>
<hr color="black" noshade>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -