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

📄 paymentdetailok.asp

📁 一套很早的多用户电子商务程序
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
if request.Form("send")="" then
Response.Write ("<script>alert('对不起!你还没有选择配送方式,请返回重新选择!');javascript:history.back(1)</script>")
response.End()
end if
if request.Form("pay")="" then
Response.Write ("<script>alert('对不起!你还没有选择付款方式,请返回重新选择!');javascript:history.back(1)</script>")
response.End()
end if
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

%>
<HTML><HEAD><TITLE>订单确认</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE>BODY {
	FONT-SIZE: 10pt
}
TD {
	FONT-SIZE: 10pt; LINE-HEIGHT: 150%
}
A {
	TEXT-DECORATION: none
}
A:hover {
	TEXT-DECORATION: underline
}
</STYLE>


<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY background=pic/user/bg.jpg bgColor=#ffffff text=#000000> 
<DIV align=center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=631>
  <TBODY>
  <TR>
    <TD colSpan=2><IMG height=26 src="pic/user/top_PayMentDetai2.gif" width=631></TD></TR>
  <TR>
    <TD bgColor=#fff0c0 width=598>
      <TABLE align=center border=1 borderColorDark=#fffcf0 
      borderColorLight=#ffd146 cellPadding=4 width=590>
        <TBODY>
        <TR> 
            <TD width=574>
              <form language="javascript" name="FORM1" action="PayMentSave.asp" method="post">
                &nbsp;(第三步)订单确认 
			<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")%>" > 
			<input type=hidden name="send" value="<%=Request.form("send")%>" > 
			<input type=hidden name="pay" value="<%=Request.form("pay")%>" > 
			<input type=hidden name="merchant" value="<%=Request.form("merchant")%>" > 
			<input type=hidden name="Remark" value="<%=Request.form("Remark")%>" > 
                    <table border="1" cellpadding="0" cellspacing="0" width="507" bordercolorlight="#0000FF" bordercolordark="#FFFFFF" class=main1 height="61" align="center">
                      <tr bgcolor="#0066FF"> 
                        <td width="59"  height="20" align="center"><font color="#FFFFFF">商品编号</font></td> 
                        <td width="191"  height="20" align="center"><font color="#FFFFFF">商品名称</font></td> 
                        <td width="76" height="20" align="center"><font color="#FFFFFF">商品价格</font></td> 
                        <td width="67"  height="20" align="center"><font color="#FFFFFF">商品数量</font></td> 
                        <td width="83"  height="20" align="center"><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 
   rs.close:set rs=nothing

%> 
                  <tr>  
                        <td align="Right" colspan="6" width="520" height="12">
						<font color="Red">
<%if sum>=ccur(request.form("send_top")) then
send_money=0
else
send_money=request.form("send_money")
end if
response.write"总价:¥"&Sum&"元+配送费¥"&send_money&"元=¥"&Sum+send_money&"元"
%>
						</font>
<input type=hidden name="send_money" value="<%=send_money%>" >
<input type=hidden name="amount" value="<%=Sum+send_money%>" >						
						</td> 
                  </tr> 
                </table> 
                  
                    <table cellspacing=1 cellpadding=4 width=508 class=main1 align="center" bordercolorlight="#FFC515" border="1" bordercolordark="#FFF5D9">
                      <tbody>
                        <tr> 
                          <td class=main1 width=103 height=7 align="right">配送方式:</td>
                          <td class=main1 width=380 height=7> <%=Request.form("send")%></td> 
                        </tr>
                        <tr> 
                          <td class=main1 width=103 height=7 align="right">付款方式:</td>
                          <td class=main1 width=380 height=7> <%=Request.form("pay")%></td>
                        </tr>
                        <tr> 
                          <td class=main1 width=103 height=7 align="right">订单备注:</td>
                          <td class=main1 width=380 height=7> <%=Request.form("Remark")%></td>
                        </tr>
                      </tbody>
                    </table>
                    <br>
                    <table cellspacing=1 cellpadding=4 width=508 class=main1 align="center" bordercolorlight="#FFC515" border="1" bordercolordark="#FFF5D9">
                      <tbody>
                        <tr> 
                          <td class=main1 width=103 height=7 align="right">收货人姓名:</td>
                          <td class=main1 width=380 height=7> <%=Request.form("Name")%></td>
                        </tr>
                        <tr> 
                          <td class=main1 width=103 height=7 align="right">收货人地址:</td>
                          <td class=main1 width=380 height=7> <%=Request.form("Address")%></td>
                        </tr>
                        <tr> 
                          <td class=main1 width=103 height=7 align="right">邮政编码:</td>
                          <td class=main1 width=380 height=7> <%=Request.form("Zip")%></td>
                        </tr>
                        <tr> 
                          <td class=main1 width=103 height=7 align="right">联系电话:</td>
                          <td class=main1 width=380 height=7> <%=Request.form("Phone")%></td>
                        </tr>
                        <tr> 
                          <td class=main1 width=103 height=7 align="right">电子信箱:</td>
                          <td class=main1 width=380 height=7> <%=Request.form("Email")%></td>
                        </tr>
                      </tbody>
                    </table>      
                    <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>
                  </form> 
            </TD> 
          </TR>  
        </TBODY></TABLE></TD>  
    <TD background=pic/user/bak.gif vAlign=top width=33><IMG border=0   
      height=36 src="pic/user/j1.gif" width=33></TD></TR>  
  <TR>  
    <TD colSpan=2><IMG height=18 src="pic/user/bottom.gif"   
  width=631></TD></TR></TBODY></TABLE></DIV></BODY></HTML>  
<% 
conn.close 
%> 

⌨️ 快捷键说明

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