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                    
%>