📄 paymentdetail2.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<!--#include file="Function.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>
<SCRIPT language=javascript>
var old=null;
var flag=true;
var oldradio=null;
var oldvp=null;
function trchange(v,vp){
flag=old==null?true:false;
if (!flag){
old.style.display="none";
}
if (oldradio==null){
oldradio=v;
}else{
oldradio.checked=false;
old=v;
}
for(var i=0;i<document.all.length;i++){
if (document.all[i].id==v)
old=document.all[i];
if (document.all[i].id==vp)
oldvp=document.all[i];
}
if (vp==null && oldvp!=null) oldvp.style.display="none";
else if (oldvp!=null) oldvp.style.display="";
old.style.display="";
}
</SCRIPT>
<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" 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 height=87 align="right" colspan="2">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" width="524" bordercolorlight="#0000FF" bordercolordark="#FFFFFF" class=main1 height="61">
<tr bgcolor="#0066FF">
<td width="59" height="20" align="center"><font color="#FFFFFF">商品编号</font></td>
<td width="191" height="20" align="center" bgcolor="#0066FF"><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="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>
<%
sp_name=session("shop")
set rs=server.createobject("adodb.recordset")
sqltext="select * from payment where sp_name='"&sp_name&"' "
rs.open sqltext,conn,1,1
%>
<tr valign="top">
<td class=main1 width=82 height=7 align="right"> <div align="right">
<p align="right"><font color="#000000">配送方式:</font></div></td>
<td class=main1 width=431 height=7>
<%
if rs("send1")<>"" then
response.Write"<INPUT onclick='trchange(""tp1"",null);window.document.FORM1.send_money.value="&rs("send1_b")&";window.document.FORM1.send_top.value="&rs("send1_c")&";' type=""radio"" name=""send"" value="&rs("send1")&">"&rs("send1")
end if
if rs("send2")<>"" then
response.Write"<INPUT onclick='trchange(""tp2"",null);window.document.FORM1.send_money.value="&rs("send2_b")&";window.document.FORM1.send_top.value="&rs("send2_c")&";' type=""radio"" name=""send"" value="&rs("send2")&">"&rs("send2")
end if
if rs("send3")<>"" then
response.Write"<INPUT onclick='trchange(""tp3"",null);window.document.FORM1.send_money.value="&rs("send3_b")&";window.document.FORM1.send_top.value="&rs("send3_c")&";' type=""radio"" name=""send"" value="&rs("send3")&">"&rs("send3")
end if
if rs("send4")<>"" then
response.Write"<INPUT onclick='trchange(""tp4"",null);window.document.FORM1.send_money.value=""0"";window.document.FORM1.send_top.value=""0"";' type=""radio"" name=""send"" value="&rs("send4")&">"&rs("send4")
end if
%>
<input type=hidden name="send_money" value="" >
<input type=hidden name="send_top" value="" >
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3" id="tp1" style="DISPLAY: none">
<tr>
<td width="96%">说明：<%=rs("send1_a")%></td>
</tr>
<tr>
<td>配送费：<strong><font color="#FF0000"><%=rs("send1_b")%></font></strong>元 购买金额达到
<strong><font color="#FF0000"><%=rs("send1_c")%></font></strong>元
时免配送费</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3" id="tp2" style="DISPLAY: none">
<tr>
<td width="96%">说明：<%=rs("send2_a")%></td>
</tr>
<tr>
<td>配送费：<strong><font color="#FF0000"><%=rs("send2_b")%></font></strong>元 购买金额达到
<strong><font color="#FF0000"><%=rs("send2_c")%></font></strong>元
时免配送费</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3" id="tp3" style="DISPLAY: none">
<tr>
<td width="96%">说明：<%=rs("send3_a")%></td>
</tr>
<tr>
<td>配送费：<strong><font color="#FF0000"><%=rs("send3_b")%></font></strong>元 购买金额达到
<strong><font color="#FF0000"><%=rs("send3_c")%></font></strong>元
时免配送费</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3" id="tp4" style="DISPLAY: none">
<tr>
<td width="96%">说明：<%=rs("send4_a")%></td>
</tr>
<tr>
<td>配送费：<strong><font color="#FF0000">免</font></strong></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td class=main1 width=82 height=7 align="right"> <div align="right">
<p align="right"><font color="#000000">付款方式:</font></div></td>
<td class=main1 width=431 height=7>
<%
if rs("pay1")<>"" then
response.Write"<INPUT onclick='trchange(""up1"",null)' type=""radio"" name=""pay"" value="&rs("pay1")&">"&rs("pay1")
end if
if rs("pay2")<>"" then
response.Write"<INPUT onclick='trchange(""up2"",null)' type=""radio"" name=""pay"" value="&rs("pay2")&">"&rs("pay2")
end if
if rs("pay3")<>"" then
response.Write"<INPUT onclick='trchange(""up3"",null)' type=""radio"" name=""pay"" value="&rs("pay3")&">"&rs("pay3")
end if
if rs("pay4")<>"" then
response.Write"<INPUT onclick='trchange(""up4"",null)' type=""radio"" name=""pay"" value="&rs("pay4")&">"&rs("pay4")
end if
%>
<input type="hidden" name="merchant" value="<%=rs("pay4_a")%>" >
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3" id="up1" style="DISPLAY: none">
<tr>
<td width="96%"><%=Fomathtm(rs("pay1_a"))%></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3" id="up2" style="DISPLAY: none">
<tr>
<td width="96%"><%=Fomathtm(rs("pay2_a"))%></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3" id="up3" style="DISPLAY: none">
<tr>
<td width="96%"><%=Fomathtm(rs("pay3_a"))%></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3" id="up4" style="DISPLAY: none">
<tr>
<td width="96%">说明：请点击下一步提交订单后按提示进行操作</td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td class=main1 width=82 height=7 align="right"> <div align="right">
<p align="right"><font color="#000000">订单备注:</font></div></td>
<td class=main1 width=431 height=7> <textarea rows="3" name="Remark" cols="54" style="font-size: 9pt"></textarea>
</td>
</tr>
<tr>
<td class=main1 colspan=2 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:set rs=nothing
conn.close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -