⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 paymentdetail2.txt

📁 网上购物系统
💻 TXT
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
Id=Session("LoginSuccess")
ProductList = Session("ProductList")
Products = Split(Request("cpbm"), ", ")
For I=0 To UBound(Products)
   PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList

ProductList = Session("ProductList")
If Len(ProductList) =0 Then
 Response.Redirect "Nothing.asp"
 response.end
end if

set rs=server.createobject("adodb.recordset")
sql = "Select * From Product"
sql = sql & " Where Product_Id In (" & ProductList & ")"
rs.open sql,conn,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">
<STYLE type=text/css>.main {
	FONT-SIZE: 12px
}
.main1 {
	FONT-SIZE: 14px
}
.main2 {
	FONT-SIZE: 16px
}
.main3 {
	FONT-SIZE: 7px
}
.main4 {
	FONT-SIZE: 10px
}
A:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
	COLOR: #000000; TEXT-DECORATION: none
}
A:active {
	COLOR: #ff0000; TEXT-DECORATION: none
}
A:hover {
	COLOR: #aa0000; TEXT-DECORATION: underline
}
</STYLE>

<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff>
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width=750>
  <TBODY>
  <TR>
    <TD height=62>
      <DIV align=center><BR><BR>
      <FORM language=javascript name=FORM1 onsubmit="return FORM1_onsubmit()" 
      action=PayMentDetailOk.asp method=post>
<input type=hidden Name="UserId" Value="<%=Request.form("UserId")%>" >
<input type=hidden Name="Name" Value="<%=Request.form("Name")%>" >
<input type=hidden Name="Address" Value="<%=Request.form("Address")%>" >
<input type=hidden Name="Zip" Value="<%=Request.form("Zip")%>" >
<input type=hidden Name="Phone" Value="<%=Request.form("Phone")%>" >
<input type=hidden Name="Email" Value="<%=Request.form("Email")%>" >
      <TABLE cellSpacing=0 cellPadding=0 width=362>
        <TBODY>
        <TR>
          <TD align=middle width="372"><STRONG><FONT color=red> 
           </FONT></STRONG>
            <TABLE cellSpacing=0 cellPadding=0 width=534 bgColor=#6d8e4d>
              <TBODY>
              <TR>
                <TD height=2 width="113"></TD>
                <TD height=2 width="417">
                  <DIV align=right style="width: 269; height: 19"></DIV></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=1 cellPadding=4 width=508 bgColor=#416327 class=main1>
              <TBODY>
              <TR vAlign=top bgColor=#e6e4c4>
                <TD class=main1 colSpan=2 width="494">购物结算--(第二步)购物信息及付款方式</TD></TR>
              <tr>
                <TD class=main1 width=482 bgColor=#E6E4C4 height=7 align="right" colspan="2">
  <div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="524" bordercolor="#008000" bordercolorlight="#008000" bordercolordark="#FFFFFF" class=main1 height="61">
        <tr bgcolor="#6d8e4d">
          <td align="center" width="59"  height="20"><font color="#FFFFFF">商品编号</font></td>
          <td align="center" width="191"  height="20"><font color="#FFFFFF">商品名称</font></td>
          <td align="center" width="76" height="20"><font color="#FFFFFF">商品价格</font></td>
          <td align="center" width="67"  height="20"><font color="#FFFFFF">商品数量</font></td>
          <td align="center" width="83"  height="20"><font color="#FFFFFF">总价</font></td>
        </tr>
<%
   Sum = 0
   While Not rs.EOF
     Quatity = CInt( Request( "Q_" & rs("Product_Id")) )
     If Quatity <= 0 Then 
        Quatity = CInt( Session(rs("Product_Id")) )
        If Quatity <= 0 Then Quatity = 1
     End If
     Session(rs("Product_Id")) = Quatity
     Sum = Sum + ccur(rs("P_NewPrice")) * Quatity
%>
        <tr>
          <td align="center" width="59" height="23"><%=rs("Product_ID")%>
</td>
          <td align="center" width="191" height="23"><%=rs("Product_Name")%>
</td>
          <td align="center" width="76" height="23"><%=rs("P_NewPrice")%>
</td>
          <td align="center" width="67" height="23"><%=Quatity%></td>
          <td Align="center" width="83" height="23"><%=ccur(rs("P_NewPrice"))*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 class=main1 width=103 bgColor=#6d8e4d height=7 align="right"><font color="#FFFFFF">付款方式:</font></TD>
                <TD class=main1 width=379 height=7 bgcolor="#E6E4C4"><select size="1" name="Pays" style="font-size: 14px">
                    <option>邮局汇款</option>
                    <option>货到付款</option>
                  </select> </TD>
              </tr>
              <tr>
                <TD class=main1 width=103 bgColor=#6d8e4d height=7 align="right"><font color="#FFFFFF">订单备注:</font></TD>
                <TD class=main1 width=379 height=7 bgcolor="#E6E4C4"><textarea rows="3" name="Remark" cols="54" style="font-size: 9pt"></textarea> </TD>
              </tr>
              <TR vAlign=top bgColor=#e6e4c4>
                <TD class=main1 colSpan=2 width="494"></TD></TR>
              <TR bgColor=#e6e4c4>
                <TD class=main1 colSpan=2 width="494">
                  <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>
            <TABLE cellSpacing=0 cellPadding=0 width=534 bgColor=#6d8e4d>
              <TBODY>
              <TR>
                <TD width=119 height=2></TD>
                <TD width=433 height=2>
                  <DIV align=right></DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR></FORM></DIV></TD></TR></TBODY></TABLE>
</DIV></BODY></HTML>
<%
rs.close
conn.close
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -