www.gusucode.com > asp+SQLServer网上书店系统设计(源代码+论文) > asp+SQLServer网上书店系统设计(源代码+论文)\网上书店asp+SQLServer\网上书店\blank2.asp
<%@ LANGUAGE="VBSCRIPT" %> <!--#include file="conn.asp" --> <% ID=Session("user") bookList = Session("bookList") books = Split(Request("cpbm"), ", ") For I=0 To UBound(books) PutToShopBag books(I), bookList Next Session("bookList") = bookList bookList = Session("bookList") If Len(bookList) =0 Then Response.Redirect "nothing.asp" response.end end if set rs=server.createobject("adodb.recordset") sql = "Select * From book" sql = sql & " Where ID In (" & bookList & ")" rs.open sql,cn,3,3 %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE>购书结算</TITLE> <META http-equiv=Content-Type content="text/html; charset=gb2312"> <META content="Microsoft FrontPage 4.0" name=GENERATOR><href="style.css"> <link rel="stylesheet" type="text/css" href="style.css"> </HEAD> <BODY bgcolor="lightblue"> <div align="center"> <center> <TABLE cellSpacing=0 cellPadding=0 width=600> <TBODY> <TR> <TD height=62 width="100%"> <BR><BR> <FORM name=FORM1" action="blank3.asp" method=post> <input type=hidden Name="User_ID" Value="<%=Request.form("User_ID")%>" > <input type=hidden Name="rec_name" Value="<%=Request.form("rec_name")%>" > <input type=hidden Name="Address" Value="<%=Request.form("Address")%>" > <input type=hidden Name="postcode" Value="<%=Request.form("postcode")%>" > <input type=hidden Name="phone" Value="<%=Request.form("phone")%>" > <TABLE cellSpacing=0 cellPadding=0 width=100%> <TBODY> <TR> <TD align=middle width="100%"><STRONG><FONT color=red> </FONT></STRONG> <div align="center"> <center> <TABLE cellSpacing=1 width=100% bgColor=#000000 > <TBODY> <TR vAlign=top bgColor=#eeeeee> <TD colSpan=2 width="574" bgcolor="#EEEEEE"> <p align="center">购书结算--(第二步)购物信息及付款方式</p> </TD></TR> <tr> <TD width=100% bgcolor=#EEEEEE height=7 align="right" colspan="2"> <div align="center"><center> <table border="0" cellspacing="1" width="580" height="61" bgcolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF"> <tr bgcolor="#006699"> <td align="center" width="85" height="20" bgcolor="#006699"><font color="#FFFFFF">编号</font></td> <td align="center" width="205" height="20" bgcolor="#006699"><font color="#FFFFFF">书名</font></td> <td align="center" width="87" height="20" bgcolor="#006699"><font color="#FFFFFF">价格</font></td> <td align="center" width="76" height="20" bgcolor="#006699"><font color="#FFFFFF">数量</font></td> <td align="center" width="95" height="20" bgcolor="#006699"><font color="#FFFFFF">总价</font></td> </tr> <% Sum = 0 While Not rs.EOF Quatity = CInt( Request( "Q_" & rs("ID")) ) If Quatity <= 0 Then Quatity = CInt( Session(rs("ID")) ) If Quatity <= 0 Then Quatity = 1 End If Session(rs("ID")) = Quatity Sum = Sum + ccur(rs("book_Price2")) * Quatity %> <tr> <td align="center" width="85" height="23" bgcolor="#EEEEEE"><%=rs("ID")%> </td> <td align="center" width="205" height="23" bgcolor="#EEEEEE"><%=rs("book_Name")%> </td> <td align="center" width="87" height="23" bgcolor="#EEEEEE"><%=rs("book_Price2")%> </td> <td align="center" width="76" height="23" bgcolor="#EEEEEE"><%=Quatity%></td> <td Align="center" width="95" height="23" bgcolor="#EEEEEE"><%=ccur(rs("book_Price2"))*Quatity%>元 </td> </tr> <% rs.MoveNext Wend %> <tr> <td Align="Right" ColSpan="6" width="572" height="12" bgcolor="#EEEEEE"><font Color="Red">总价格=人民币 <%=Sum%>元</font></td> </tr> </table> </center></div><blockquote> </blockquote> </TD> </tr> <tr> <TD width=124 bgcolor=#EEEEEE height=7>付款方式</TD> <TD width=438 height=7 bgcolor="#EEEEEE"><select size="1" name="Pays" style="font-size: 14px"> <option>邮局汇款,款到发货</option> <option>现金支付,上门提货</option> <option>银行转帐,见票发货</option> </select> </TD> </tr> <tr> <TD width=124 bgcolor=#EEEEEE height=7>请给我们订单处理员留言</TD> <TD width=438 height=7 bgcolor="#EEEEEE"><textarea rows="6" name="Remark" cols="45" style="font-size: 10pt"></textarea> </TD> </tr> <TR vAlign=top bgColor=#eeeeee> <TD colSpan=2 width="574" bgcolor="#EEEEEE"></TD></TR> <TR bgColor=#eeeeee> <TD colSpan=2 width="574" bgcolor="#EEEEEE"> <DIV align=center><input type="button" value="上一步" name="B4" onclick="javascript:window.history.go(-1)"> <INPUT class=main type=submit size=3 value="下一步"name=Submit2> </DIV></TD></TR></TBODY></TABLE> </center> </div> </TD></TR></TBODY></TABLE><BR></FORM></TD></TR></TBODY></TABLE> </center> </div> </BODY></HTML> <% rs.close cn.close %>