www.gusucode.com > asp+SQLServer网上书店系统设计(源代码+论文) > asp+SQLServer网上书店系统设计(源代码+论文)\网上书店asp+SQLServer\网上书店\blank3.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">

    <BR><BR>
      <FORM name=FORM1" 
      action=blank4.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")%>" >
<input type=hidden Name="Pays" Value="<%=Request.form("Pays")%>" >
<input type=hidden Name="Remark" Value="<%=Request.form("Remark")%>" >
<div align="center">
  <center>
      <TABLE cellSpacing=0 cellPadding=0 width=362>
        <TBODY>
        <TR>
          <TD align=middle width="372">
            <TABLE cellSpacing=1 cellPadding=4 width=508 bgColor=#000000 class=main1>
              <TBODY>
              <TR vAlign=top bgColor=#eeeeee>
                <TD colSpan=4 width="494" bgcolor="#EEEEEE">购书结算--(第三步)信息确认</TD></TR>
              <tr>
                <TD width=482 bgcolor=#EEEEEE height=7 align="right" colspan="4">
  <div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="524" bordercolor="#000000" height="61">
        <tr bgcolor="#006699">
          <td align="center" width="80"  height="20" bgcolor="#006699"><font color="#FFFFFF">编号</font></td>
          <td align="center" width="170"  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="67"  height="20" bgcolor="#006699"><font color="#FFFFFF">数量</font></td>
          <td align="center" width="83"  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="80" height="23"><%=rs("ID")%>
</td>
          <td align="center" width="170" height="23"><%=rs("ID")%>
</td>
          <td align="center" width="76" height="23"><%=rs("book_price2")%>
</td>
          <td align="center" width="67" height="23"><%=Quatity%></td>
          <td Align="center" width="83" height="23"><%=ccur(rs("book_price2"))*Quatity%>元
</td>
        </tr>
<%
      rs.MoveNext
   Wend
%>
        <tr>
      <td Align="Right" ColSpan="6" width="520" height="12"><font Color="Red">总价格=人民币 <%=Sum%>元</font></td>              
        </tr>       
      </table>       
      </center></div><blockquote>       
  </blockquote>       
</TD>       
              </tr>       
              <tr>       
                <TD width=103 bgcolor=#EEEEEE height=7 align="right">收货人姓名:</TD>       
                <TD width=379 height=7 bgcolor="#EEEEEE" colspan="3"><%=Request.form("rec_name")%></TD>       
              </tr>       
              <tr>       
                <TD width=103 bgcolor=#EEEEEE height=7 align="right">收货人地址:</TD>       
                <TD width=379 height=7 bgcolor="#EEEEEE" colspan="3"><%=Request.form("Address")%></TD>       
              </tr>       
              <tr>       
                <TD width=103 bgcolor=#EEEEEE height=7 align="right">邮政编码:</TD>       
                <TD width=127 height=7 bgcolor="#EEEEEE"><%=Request.form("postcode")%></TD>       
                <TD width=106 height=7 bgcolor="#006699">       
                  <p align="center"><font color="#FFFFFF">联系电话:</font> </TD>       
                <TD width=146 height=7 bgcolor="#EEEEEE"><%=Request.form("phone")%></TD>       
              </tr>       

              <tr>       
                <TD width=103 bgcolor=#EEEEEE height=7 align="right">付款方式:</TD>       
                <TD width=379 height=7 bgcolor="#EEEEEE" colspan="3"><%=Request.form("Pays")%></TD>       
              </tr>       
              <tr>       
                <TD width=103 bgcolor=#EEEEEE height=7 align="right">订单备注:</TD>       
                <TD width=379 height=7 bgcolor="#EEEEEE" colspan="3"><%=Request.form("Remark")%></TD>       
              </tr> <input type=hidden Name="sum" Value="<%=sum%>" >      
              <TR vAlign=top bgColor=#eeeeee>       
                <TD colSpan=4 width="494" bgcolor="#EEEEEE"></TD></TR>       
              <TR bgColor=#eeeeee>       
                <TD colSpan=4 width="494" 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>       
          </TD></TR></TBODY></TABLE></center>      
</div>      
<BR></FORM>       
</BODY></HTML>       
<%       
rs.close       
cn.close       
%>