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>