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

📄 previeworder.asp

📁 二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台
💻 ASP
字号:
<!--#include file="../Comm/subconn.asp" -->
<%
Name=session("estore_userid")
Recname=request.form("Recname")
Zipcode=request.form("ZipCode")
RecPhone=request.form("RecPhone")
Address=request.form("Address")
Recmail=request.form("Recmail")
PaytypeID=request.form("PaytypeID")
Notes=request.form("Notes")
Discount=request.form("Discount")	'使用点券

if reg<>"1" then
	'判断是否正常购买,如果不是,需要登陆
	if session("estore_userid")="" then 
	response.redirect "../error.asp?error=006"
	response.end
	end if
end if

'判断购物车是否为空
ProductList = Session("ProductList")
if productlist<>"" then
sql="select * from ProdMain where ProdId in ("&productlist&") order by ProdId"
Set rs = conn.Execute( sql )
else
response.redirect "../error.asp?error=007"
response.end
end if

'获取支付方式提示
sqlp="select paytype,paymentmessage from paydefault where ID="&PaytypeID
set rsp=server.createobject("ADODB.Recordset")
rsp.open sqlp,conn,1,1
	PaymentMessage	= rsp("paymentmessage")
	Paytype			=rsp("paytype")
rsp.close
set rsp=nothing
%>


<!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 name="Robots" content="index,follow">
<meta name="Abstract" content="CycooShop">
<meta name="DC.Publisher" content="Cycoo Net Studio">
<meta name="Description" Content="欢迎使用 CycooShop 专业的电子商务平台 下载地址 www.cycoo.net">
<meta name="Keywords" Content="思高商城 免费下载">
<link rel="stylesheet" href="../cycoo15.css" type="text/css">
</HEAD>

<BODY>
<table width=100% cellpadding=0 cellspacing=0><tr><td><form name=confirm action="ordersent.asp" method=post><%=name%> <br>&nbsp;&nbsp;您好!<br>&nbsp;&nbsp;以下是您的订单,如果没有问题请 <input type="submit" value="马上提交订单">,或者返回 <input type="button" name="Submit21" onclick="javascript:history.go(-1)" value="返回修改订单"><br><br>&nbsp;&nbsp;有任何疑问请及时和我们联系&nbsp;&nbsp;电话:<%=adm_tel%>&nbsp;邮件:<%=adm_mail%><br><br><br>
<input type=hidden value="ok" name="confirm">
<table border="0" cellspacing="1" cellpadding="0" align="center" width="520" bgcolor="B0266D">
<tr bgcolor="#FFFFFF"> 
  <td height="25" colspan=4>&nbsp;收货人信息</td></tr>
<tr bgcolor="#FFFFFF"> 
      <td height="25" colspan=4><font color="B0266D"> &nbsp;&nbsp;&nbsp;&nbsp;收货人姓名:<%=Recname%><br>
        &nbsp;&nbsp;&nbsp;&nbsp;收货人电话:<%=RecPhone%><br>
        &nbsp;&nbsp;&nbsp;&nbsp;收货人邮箱:<%=Recmail%><br>
        &nbsp;&nbsp;&nbsp;&nbsp;收货地址:<%=address%><br>
        &nbsp;&nbsp;&nbsp;&nbsp;邮政编码:<%=Zipcode%><br>
        &nbsp;&nbsp;&nbsp;&nbsp;支付类型:<%=paytype%> <br>
        &nbsp;&nbsp;&nbsp;&nbsp;汇款账号:
		<%
sqlp="select paytype,paymentmessage from paydefault where paytype='"&paytype&"'"
set rsp=server.createobject("ADODB.Recordset")
rsp.open sqlp,conn,1,1
response.write rsp("paymentmessage")
rsp.close
set rsp=nothing
%> <br>
        &nbsp;&nbsp;&nbsp;&nbsp;备注说明:<%=Notes%><br>
        <INPUT TYPE="hidden" name="RecName" value="<%=Recname%>">
        <INPUT TYPE="hidden" name="RecPhone" value="<%=RecPhone%>">
        <INPUT TYPE="hidden" name="RecAddress" value="<%=address%>">
        <INPUT TYPE="hidden" name="Recmail" value="<%=Recmail%>">
        <INPUT TYPE="hidden" name="Zipcode" value="<%=Zipcode%>">
        <INPUT TYPE="hidden" name="PayTypeID" value="<%=PayTypeID%>">
        <INPUT TYPE="hidden" name="Discount" value="<%=Discount%>">
        <INPUT TYPE="hidden" name="Notes" value="<%=Notes%>">
        </font></td>
    </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="50%" height="25" align="center"> 
      <font color="B0266D">商 品 名 称</font>
    </td>
    <td width="10%" align="center"> 
      <font color="B0266D">数 量</font>
    </td>
    <td width="20%" align="center"> 
     <font color="B0266D">单 价</font>
    </td> 
	<td width="20%" align="center"> 
     <font color="B0266D">合 计</font>
    </td>
  </tr>
<%
   Sum = 0
   While Not rs.EOF
     Quatity = CInt( Request( "Q_" & rs("ProdId")) )
     If Quatity <= 0 Then 
        Quatity = CInt( Session(rs("ProdId")) )
        If Quatity <= 0 Then Quatity = 1
     End If
     Session(rs("ProdName")) = Quatity
     Sum = Sum + csng(rs("PriceList")) * Quatity
	session("Total")=Sum '总金额存入session
%> 
  <tr bgcolor="#FFFFFF"> 
    <td width="50%" height="20">&nbsp;<font color="B0266D"><%=rs("ProdName")%></font></td>
    <td width="10%">&nbsp;<font color="B0266D"><%=Quatity%></font></td>
    <td width="20%">&nbsp;<font color="B0266D"><%=FormatNumber(rs("PriceList"),2)%></font></td>
	<td width="20%">&nbsp;<font color="B0266D"><%=FormatNumber(csng(rs("PriceList"))*Quatity,2)%></font></td>
  </tr>
<%
rs.MoveNext
Wend
rs.close
set rs=nothing
%> 
  <tr bgcolor="#FFFFFF"> 
    <td colspan="4" height="25" align="right"> 
      <b><font color="#B0266D">总价格=<%=Sum%></font>&nbsp;&nbsp;
    </td>
  </tr>
</table>
<br><div align=center><font color="#333333">&copy; 2006 <B><%=siteurl%></B> <%=sitename%> </font><br>

 </div>

</form></table>
</BODY>
</HTML>
<%
set conn=nothing
%>

⌨️ 快捷键说明

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