ordercheck.asp

在线图书销售系统

<%@ Language=VBScript %>
<%'option explicit
  dim sname,spassword
  sname=Request("txtname")
  spassword=request("txtpassword")
  
  if session("salecomplete") = true then
    session("salecomplete") = false
    response.redirect "bookright.asp"
  end if
  'on error resume next
     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=""
 
  
     
    
%>你订购的商品如下：
<table align="center" border="0">
  <tr bgcolor="#ff0066">
    <th><font face="Verdana,Arial" color="#ffff33" size="-1">
     数量</font></TD>
    <th><font face="Verdana,Arial" color="#ffff33" size="-1">
      编号.</font></TD>
    <th><font face="Verdana,Arial" color="#ffff33" size="-1">
      书名</font></TD>
    <th><font face="Verdana,Arial" color="#ffff33" size="-1">
      价格</font></TD>
    <th><font face="Verdana,Arial" color="#ffff33" size="-1">
     小计</font></TD>
  </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
     if rs.EOF=true then           
	  rs.MoveLast            
     end if     
     rsorders.AddNew 
     'rsorders("guestid")=rs("id")
     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
%>