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

📄 previeworder.asp

📁 非常棒的网上购物系统www.yuhuanrd.gov.cn www.yuhuanrd.gov.cn www.yuhuanrd.gov.cn www.yuhuanrd.gov.cn
💻 ASP
字号:
<!--#include file="../Comm/subconn.asp" -->
<%
Name=session("estore_userid")
Recname=request.form("Recname")
Zipcode=request.form("ZipCode")
RecPhone=request.form("RecPhone")
CompPhone=request.form("CompPhone")
Address=request.form("Address")
Recmail=request.form("Recmail")
Notes=request.form("Notes")
Discount=request.form("Discount")	
post=request.form("post")
Gettime=request.form("gettime")

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
%>
<HTML>
<HEAD>
<TITLE>订单提交预览</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../shop.css" type="text/css">
</HEAD>

<BODY>
<br>
<form name=confirm action="ordersent.asp" method=post>

<table border="0" cellspacing="0" cellpadding="0" align="center" width="520">
  <tr bgcolor="#FFFFFF"> 
    <td height=30><font color="#FF3333"><b><%=session("estore_userid")%> 请确认您所填写的内容!请检查后单击“提交订单”或“返回修改”</font></td>
	<input type=hidden value="ok" name="confirm">
  </tr>
</table>


<%
info="select * from shopsetup"
set rrrs=server.createobject("adodb.recordset")
rrrs.open info,conn,1,1
pei1=rrrs("pei1")
pei2=rrrs("pei2")
pei3=rrrs("pei3")
pei4=rrrs("pei4")
fei1=rrrs("fei1")
fei2=rrrs("fei2")
fei3=rrrs("fei3")
fei4=rrrs("fei4")
mianyoufei=rrrs("mianyoufei")
mianyoufei_msg=rrrs("mianyoufei_msg")


if post=1 then 
fei=fei1
pei=pei1
elseif post=2 then 
fei=fei2
pei=pei2
elseif post=3 then 
fei=fei3
pei=pei3
elseif post=4 then 
fei=fei4
pei=pei4
end if

if cint(session("sum"))>=mianyoufei then
pei=pei  & "," & mianyoufei_msg
fei=0
else
pei=pei & ",配送费用"& fei & "元"
end if

rrrs.close
set rrrs=nothing
%>

<%
userkou=session("userkou")

   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

paybackurl=rs("paybackurl")
rs.MoveNext
Wend
rs.close
set rs=nothing

     Sum1=FormatNumber(Sum*userkou/10,2) 
     sum=sum1+fei
     Sum=FormatNumber(Sum,2)      
session("sum")=sum

%> 


<br><br>
<table border="0" cellspacing="1" cellpadding="0" align="center" width="520" bgcolor="CCCCCC">

    <tr bgcolor="#FFFFFF">     
      <td width="20%" align=center height=25>配送及运费</td> <td>&nbsp;&nbsp; <%=pei%></td></tr>

    <tr bgcolor="#FFFFFF">     
      <td width="20%" align=center height=25>收货人姓名</td> <td>&nbsp;&nbsp; <%=Recname%>  </td></tr>


    <tr bgcolor="#FFFFFF">     
      <td width="20%" align=center height=25>收货人电话</td> <td>&nbsp;&nbsp; <%=RecPhone%>  </td></tr>

    <tr bgcolor="#FFFFFF">     
      <td width="20%" align=center height=25>移动电话</td> <td>&nbsp;&nbsp; <%=CompPhone%>  </td></tr>

    <tr bgcolor="#FFFFFF">     
      <td width="20%" align=center height=25>收货人邮箱</td> <td>&nbsp;&nbsp; <%=RecMail%>  </td></tr>
      
    <tr bgcolor="#FFFFFF">     
      <td width="20%" align=center height=25>邮政编码</td> <td>&nbsp;&nbsp; <%=ZipCode%>  </td></tr>                  

    <tr bgcolor="#FFFFFF">     
      <td width="20%" align=center height=25>收货人地址</td> <td>&nbsp;&nbsp; <%=address%>  </td></tr>      
      
    <tr bgcolor="#FFFFFF">     
      <td width="20%" align=center height=25>指定送达时间</td> <td>&nbsp;&nbsp; <%=gettime%>  </td></tr>      


    <tr bgcolor="#FFFFFF">     
      <td width="20%" align=center height=25>备&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;注</td> <td>&nbsp;&nbsp; <%=Notes%>  </td></tr>

        <INPUT TYPE="hidden" name="RecName" value="<%=Recname%>">
        <INPUT TYPE="hidden" name="RecPhone" value="<%=RecPhone%>">
        <INPUT TYPE="hidden" name="CompPhone" value="<%=CompPhone%>">        
        <INPUT TYPE="hidden" name="RecAddress" value="<%=address%>">
        <INPUT TYPE="hidden" name="Gettime" value="<%=gettime%>">        
        <INPUT TYPE="hidden" name="Recmail" value="<%=Recmail%>">
        <INPUT TYPE="hidden" name="Zipcode" value="<%=Zipcode%>">
        <INPUT TYPE="hidden" name="Discount" value="<%=Discount%>">
        <INPUT TYPE="hidden" name="Notes" value="<%=Notes%>">
        <INPUT TYPE="hidden" name="pei" value="<%=pei%>">
        <INPUT TYPE="hidden" name="fei" value="<%=fei%>">
        <INPUT TYPE="hidden" name="userkou" value="<%=userkou%>">        
	   <INPUT TYPE="hidden" name="paybackurl" value="<%=paybackurl%>">
        </font></td>
    </tr>
  <tr bgcolor="#FFFFFF"> 
    <td  height="30" align="center"  colspan=2><b><font color="#FF3333">商品总价:<%=Sum1%> 元 &nbsp;&nbsp;配送费用:<%=fei%> 元&nbsp;&nbsp; 总计:¥ <%=sum%> 元
    </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
  <td colspan=2 height=50 align=center>
  <input type="submit" value="提交订单">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;<input type="button" name="Submit21" onclick="javascript:history.go(-1)" value="返回修改">
</td>
  </tr>
  
</table>
</form></table>
</BODY>
</HTML>
<%
set conn=nothing
%>

⌨️ 快捷键说明

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