paymentdetail2.asp
来自「一个非常好的旅游网站程序.」· ASP 代码 · 共 183 行
ASP
183 行
<%@ 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
%>
<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><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=631>
<TBODY>
<TR>
<TD colSpan=2><IMG height=26 src="pic/user/top_PayMentDetai.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 onSubmit="return FORM1_onsubmit()"
action=PayMentDetailOk.asp method=post>
(第二步)购物信息及付款方式<br>
<table cellspacing=1 cellpadding=4 width=508 class=main1 align="center" bordercolorlight="#FFDF80" border="1" bordercolordark="#FFF9E6">
<tbody>
<tr>
<td class=main1 width=482 height=87 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" bgcolor="#E6E4C4">
<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="5" width="520" height="12"><font color="Red">总价格=人民币
<%=Sum%>元</font></td>
</tr>
</table>
<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")%>" >
</center>
</div>
</td>
</tr>
<tr valign="top">
<td class=main1 width=98 height=7 align="right">
<div align="right">
<p align="right"><font color="#000000">供货商家:</font></div>
</td>
<td class=main1 width=384 height=7><%=session("shop")%>
</td>
</tr>
<tr valign="top">
<%
shop_name1=session("shop")
set rs_shop=server.createobject("adodb.recordset")
sql = "Select p_other From shop where shop_name1='"&shop_name1&"'"
rs_shop.open sql,conn,1,1
%>
<td class=main1 width=98 height=7 align="right">
<div align="right">
<p align="right"><font color="#000000">商家附言:</font></div>
</td>
<td class=main1 width=384 height=7><%=rs_shop("p_other")%></td>
</tr>
<tr valign="top">
<td class=main1 width=98 height=7 align="right">
<div align="right">
<p align="right"><font color="#000000">付款方式:</font></div>
</td>
<td class=main1 width=384 height=7>
<select size="1" name="Pays" style="font-size: 14px">
<option>货到付款</option>
<option>款到发货</option>
</select>
</td>
</tr>
<tr valign="top">
<td class=main1 width=98 height=7 align="right">
<div align="right">
<p align="right"><font color="#000000">订单备注:</font></div>
</td>
<td class=main1 width=384 height=7>
<textarea rows="3" name="Remark" cols="54" style="font-size: 9pt"></textarea>
</td>
</tr>
<tr>
<td class=main1 colspan=2 width="494" height="2">
<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>
</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>
<%
rs.close
rs_shop.close
conn.close
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?