gusucode.com > asp+SQLServer网上书店系统设计(源代码+论文) > asp+SQLServer网上书店系统设计(源代码+论文)\网上书店asp+SQLServer\网上书店\blank4.asp

    <%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="util.asp" -->
<!--#include file="conn.asp" -->
<%
bookList = Session("bookList")
flags="尚未处理"
If Len(bookList) = 0 Then 
Response.Redirect "nothing.asp"
end if
user=session("user")
set rs5=server.createobject("adodb.recordset")
sqltext5="select * from 用户 where user_name='"&user&"'"
rs5.open sqltext5,cn,1,1
set rs1=server.createobject("adodb.recordset")
sqltext1="select * from orderlist"
rs1.open sqltext1,cn,1,1
'保存购买人信息
set rs=server.createobject("adodb.recordset")
sqltext="select * from orderlist"
rs.open sqltext,cn,3,3,1
for i=1 to rs1.recordcount-1
rs1.movenext
next
'添加一个用户到数据库
rs.addnew
rs("order_ID")=rs1("order_id")+1
rs("user_ID")=request.form("user_ID")
rs("enbracer")=request.form("rec_name")
rs("user_name")=rs5("user_name")
rs("postcode")=request.form("postcode")
rs("phone")=request.form("phone")
rs("Address")=request.form("Address")
rs("Pay_method")=request.form("Pays")
rs("flag")=flags
rs("order_date")=Now()
rs("Remark")=request.form("Remark")
If rs("Remark")="" then
	rs("Remark")="无"
End If
rs("order_sum")=request.form("sum")
rs.update
rs1.close
rs.close
sql="select order_ID from  orderlist order by order_date desc"
rs.open sql,cn,1,1
a=rs(0)
rs.close
%>
<%
books=split(request("cpbm"),",")
for i=0 to UBound(books)
'response.write cpbm
next
set rs=server.createobject("adodb.recordset")
session("bookList")=bookList
sql = "Select * From book"
sql = sql & " Where ID In (" & bookList & ")"
sql = sql & " Order By ID"
rs.open sql,cn,1,1
%>
<%
if session(rs("ID"))=0 then
   session(rs("ID"))=1
end if

while not rs.eof
set rs4=server.createobject("adodb.recordset")
sqltext4="select * from book_sell"
rs4.open sqltext4,cn,1,1
for i=1 to rs4.recordcount-1
rs4.movenext
next
set rs2=server.createobject("adodb.recordset")
sqltext2="select * from book_sell"
rs2.open sqltext2,cn,3,3,1
rs2.addnew
rs2("id")=rs4("id")+1
rs2("book_ID")=rs("ID")
rs2("order_ID")=a
rs2("book_Name")=rs("book_Name")
rs2("num")=cint(session(rs("ID")))
rs2("price")=ccur(rs("book_Price2"))
rs2.update%>

<%
rs4.close
rs2.close
rs.movenext
wend
session.abandon
'response.redirect"success.asp"
rs.close
cn.close
%>
<html>
<head>
<href="style.css">
<title>提交成功</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body bgcolor="lightblue">

<p align="center"> 
<p align="center"> </p>
<div align="center">
      <TABLE cellSpacing=0 cellPadding=0 width=341>
        <TR>
          <TD align=middle width="342">
            <TABLE cellSpacing=0 cellPadding=0 width=373 bgColor=#006699>
              <TBODY>
              <TR>
                <TD height=2 width="113" bgcolor="#006699">
                  <p> </TD>
  <center>
                <TD height=2 width="256" bgcolor="#006699">
                  <DIV align=right></DIV></TD></TR></TBODY></TABLE>
  </center>
            <div align="center">
            <TABLE cellSpacing=1 width=373 bgColor=#416327 height="123" >
              <TBODY>
              <TR vAlign=top bgColor=#eeeeee>
                <TD  width="373" height="76" colspan="2" bgcolor="#EEEEEE">
                  <p><br>
                   订单提交成功,您的订单号是:<%=a%>
                  <p>我们即可按您的订单发货,请牢记您的订单号,以便查询。请你把钱寄到以下地方!</p>
                </TD></TR>
  <center>
              <center>
              <TR bgColor=#eeeeee>
                <TD  width="70" height="27" bgcolor="#EEEEEE">
                  汇款地址</TD>
                <TD  width="303" height="27" bgcolor="#EEEEEE">
                  梅州嘉应学院</TD></TR>
              <TR bgColor=#eeeeee>
                <TD  width="70" height="27" bgcolor="#EEEEEE">
                  收款人</TD>
                <TD  width="303" height="27" bgcolor="#EEEEEE">
                  stam</TD></TR>
              <TR bgColor=#eeeeee>
                <TD  width="70" height="27" bgcolor="#EEEEEE">
                  帐户</TD>
                <TD  width="303" height="27" bgcolor="#EEEEEE">
                  中国建设银行梅州分行(3201010100150172853)</TD></TR>
              <TR bgColor=#eeeeee>
                <TD  width="373" height="27" colspan="2" bgcolor="#EEEEEE">
                  <p align="center"> 
                  <h2 align="center"><input type="button" name="close" value="关闭窗口"  onClick="window.close()"></TD></TR></TBODY></TABLE>
              </center>
            </div>
            <TABLE cellSpacing=0 cellPadding=0 width=373 bgColor=#006699>
              <TBODY>
              <TR>
                <TD width=119 height=2 bgcolor="#006699"></TD>
                <TD width=272 height=2 bgcolor="#006699">
                  <DIV align=right style="width: 212; height: 19"></DIV></TD></TR></TBODY></TABLE></TD></TR></TABLE>
  </div>
  <p align="center"> </p>
</body>
</html>