📄 ordercheck.asp
字号:
<%@ Language=VBScript %>
<% dim sname,spassword
sname=Request("txtname")
spassword=request("txtpassword")
if session("salecomplete") = true then
session("salecomplete") = false
response.redirect "bookright.asp"
end if
dim conn,rs,sql,i,connstr
connstr="dbq=" & server.MapPath("mdb/bookshop.mdb") & ";driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
if sname="" then
Response.Write "姓名不能为空!"
Response.End
end if
sql="select * from guest where name='" & sname & "' and password='" & spassword & "'"
rs.Open sql,conn,3,2
if not rs.EOF then
dim scaritemnums,ncartitemqtys,nnumcartitems
sCartItemNums = session("cartitemnumarray")
nCartItemQtys = session("cartitemqtyarray")
nNumCartItems = ubound(sCartItemNums)
dim temp
temp=""
%><body bgcolor="#86BF78">你订购的商品如下：
<table align="center" border="0">
<tr bgcolor="#ff0066">
<br><br>
<table width="241" height="76" border="0" align="center">
<tr bgcolor="#ff0066">
<th width="42" bgcolor="#33FF00"><font color="#000000" size="-1">
数量</font>
<th width="42" bgcolor="#0000FF"><font color="#FF00FF" size="-1">
编号</font>
<th width="42" bgcolor="#FFFF00"><div align="center"><font color="#0000FF" size="-1"> 书名</font></div>
<th width="42" bgcolor="#FFFFFF"><font color="#FF00FF" size="-1">
价格</font>
<th width="51" bgcolor="#000000"><font color="#FFFFFF" size="-1">
小计</font>
</tr>
<%
cSubTotal = 0
nNumItems = 0
for i = 1 to nNumCartItems
Set rsProducts = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM book WHERE id = " & sCartItemNums(i)
rsProducts.open sSQL, conn, 3,2
dim str
str=rsproducts("book")+","+cstr(ncartitemqtys(i))+";"
temp=temp+str
%>
<tr bgcolor="#99ccff">
<%
sTemp = nCartItemQtys(i)
nNumItems = nNumItems + nCartItemQtys(i)
%>
<td align="middle">
<font face="Verdana,Arial" color="#000000" size="-1">
<% = sTemp %></font></td>
<td align="middle">
<font face="Verdana,Arial" color="#000000" size="-1">
<% = rsProducts("id") %></font></td>
<td><font face="Verdana,Arial" color="#000000" size="-1">
<% = rsProducts("book") %></font></td>
<%
if rsProducts("Price") > 0 then
cPrice = rsProducts("Price")
else
cPrice = 0
end if
%>
<td align="middle">
<font face="Verdana,Arial" color="#000000" size="-1">
<% = cprice %></font></td>
<%
cExtension = nCartItemQtys(i) * cPrice
cSubTotal = cSubTotal + cExtension
%>
<td align="right">
<font face="Verdana,Arial" color="#000000" size="-1">
<% = cExtension %></font></td>
</tr>
<% next %>
<tr bgcolor="#c5c5c5">
<td align="middle" colspan="4">
<font face="Verdana,Arial" size="-1">总计</font></td>
<td align="right"><font face="Verdana,Arial" size="-1">
<% = formatcurrency(cSubTotal) %></font></td>
</tr>
</table>
<% set rsorders=server.CreateObject("adodb.recordset")
sql2="select * from orders"
rsorders.Open sql2,conn,3,3
rsorders.AddNew
rsorders("guestname")=rs("name")
rsorders("guestaddr")=rs("addr")
rsorders("guestzip")=rs("zip")
rsorders("guestphone")=rs("tel")
rsorders("bookname")=temp
rsorders("date")=date()
rsorders.Update
session("salecomplete") = true%>
<%
else
Response.Write "查无此人!"
end if
%>
<%
if session("salecomplete") = true then
Response.Write "网上书店感谢你的惠顾!<br>你的购物篮被清空以便你能继续购物!"
redim sItemNums(0)
redim nItemQtys(0)
sItemNums(0) = ""
nItemQtys(0) = 0
session("CartItemNumArray") = sItemNums
session("CartItemQtyArray") = nItemQtys
session("salecomplete") = false
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -