www.gusucode.com > 运动用品商城网站系统源代码程序 > cashsave.asp
<!--#include file="conn.asp"-->
<!--#include file="IncAsp/venshop_top.asp"-->
<!--#include file="IncAsp/venshop_email.asp"-->
<!--#include file="IncAsp/venshop_md5.asp"-->
<!--#include file="IncAsp/all_pay.asp"-->
<div align="center">
<table cellpadding="0" cellspacing="0" class="all_t1">
<tr><td class="all_l_td" valign="top">
<!--#include file="IncAsp/venshop_log.asp"--><div class="d5"></div>
</td>
<td valign="top" class="all_c_td">
<%if Request.Cookies("venshop")("user_name")="" and Request.Cookies("venshop")("guest")="" then
response.redirect "buy.asp"
response.end
end if
if Request.Cookies("venshop")("user_name")<>"" then
user_name=Request.Cookies("venshop")("user_name")
elseif Request.Cookies("venshop")("guest")<>"" then
user_name=Request.Cookies("venshop")("guest")
end if
if isvalidemail(trim(request("sub_mail")))=false then
showerr "e7"
else
user_mail=trim(request("sub_mail"))
end if
venshopcom="iptu>mdbtf)sfrvftu/tfswfswbsjbcmft)#IUUQ`IPTU#**||tfu!st>tfswfs/dsfbufpckfdu)#bepec/sfdpsetfu#*|trm>#tfmfdu!ix`obnf-cbtlfu`difdl-tvc`ovncfs-ix`je-cbtlfu`dpvou-ix`xfjhiu-ix`zvogfj-ix`qsjdf!gspn!wfotipq`cbtlfu!xifsf!vtfs`obnf>(#'vtfs`obnf'#(!boe!cbtlfu`difdl>1#|st/pqfo!trm-dpoo-2-4|jg!st/fpg!uifo|tipxfss!#f7#|st/dmptf|tfu!st>opuijoh|foe!jg|tvc`ovncfs>sjhiu)zfbs)ebuf)**-3*'npoui)ebuf)**'ebz)ebuf)**'ipvs)opx)**'njovuf)opx)**'tfdpoe)opx)**|tvc`ovncfs>sfqmbdf)tvc`ovncfs-#.#-##*|tvc`ovncfs>sfqmbdf)tvc`ovncfs-#!#-##*|tvc`ovncfs>sfqmbdf)tvc`ovncfs-#;#-##*|ep!xijmf!opu!st/fpg|st)#cbtlfu`difdl#*>2|st)#tvc`ovncfs#*>tvc`ovncfs|ix`je>st)#ix`je#*|tfu!st2>dpoo/fyfdvuf)#vqebuf!wfotipq`ix!tfu!ix`cvzt>ix`cvzt,2!xifsf!ix`je>#'ix`je'##*|upubmdbti>upubmdbti,)st)#cbtlfu`dpvou#*+usjn)st)#ix`qsjdf#***|upubmx>upubmx,)st)#cbtlfu`dpvou#*+usjn)st)#ix`xfjhiu#***|upubmz>upubmz,)st)#cbtlfu`dpvou#*+usjn)st)#ix`zvogfj#***|upubmd>upubmd,st)#cbtlfu`dpvou#*|tipxcbtlfu>tipxcbtlfu'#=q!!tuzmf>##nbshjo;!6qy##?#'st)#ix`obnf#*'#!#'gvibp'st)#ix`qsjdf#*'eboxfj'#!#'st)#cbtlfu`dpvou#*'#?#|st/vqebuf|st/npwfofyu|mppq|st/dmptf|tfu!st>opuijoh|jg!sfrvftu)#{q#*=?1!uifo|tfu!stq>tfswfs/dsfbufpckfdu)#bepec/sfdpsetfu#*|stq/pqfo!#tfmfdu!+!gspn!wfotipq`{q!xifsf!{q`je>#'sfrvftu)#{q#*'#!boe!{q`lvdvo?1#-dpoo-2-2|jg!opu!stq/fpg!uifo|{q`gvmm>stq)#{q`gvmm#*|jg!{q`gvmm=>upubmdbti!uifo|{q`je>stq)#{q`je#*|{q`obnf>stq)#{q`obnf#*|{q`qsjdf>stq)#{q`qsjdf#*|{q`gvmm>stq)#{q`gvmm#*|fmtf|{q`je>1|{q`obnf>##|{q`qsjdf>1|{q`gvmm>1|foe!jg|fmtf|{q`je>1|{q`obnf>##|{q`qsjdf>1|{q`gvmm>1|foe!jg|stq/dmptf|tfu!stq>opuijoh|fmtf|{q`je>1|{q`obnf>##|{q`qsjdf>1|{q`gvmm>1|foe!jg|tfu!st>tfswfs/dsfbufpckfdu)#bepec/sfdpsetfu#*|trm>#tfmfdu!+!gspn!wfotipq`tvc#|st/pqfo!trm-dpoo-2-4|st/beeofx|st)#tvc`obnf#*>vtfs`obnf|st)#tvc`ovncfs#*>tvc`ovncfs|st)#tvc`ebuf#*>opx)*|st)#tvc`{u#*>2|qt>tqmju)sfrvftu)#qt`je#*-#0#*|qbz>tqmju)sfrvftu)#qbz`je#*-#0#*|st)#tvc`qt#*>qt)1*|st)#tvc`qbz#*>qbz)1*|st)#tvc`qtobnf#*>qt)2*|st)#tvc`qbzobnf#*>qbz)2*|st)#tvc`upujnf#*>sfrvftu)#upujnf#*|st)#tvc`zvogfj#*>dpvougff)jou)qt)1**-zvogfj-upubmz-upubmx-upubmd-jou)upubmdbti*-jou)njbo**|jg!gbqjbp>2!uifo|st)#tvc`gbqjbp#*>sfrvftu)#gbqjbp#*|jg!sfrvftu)#tvc`ubjupv#*=?##!uifo|st)#tvc`ubjupv#*>EfmTus)sfrvftu)#tvc`ubjupv#**|foe!jg|fmtf|st)#tvc`gbqjbp#*>1|st)#tvc`ubjupv#*>#OP#|foe!jg|st)#tvc`rvfivp#*>sfrvftu)#rvfivp#*|st)#tvc`puifs#*>EfmTus)sfrvftu)#puifs#**|st)#tvc`up#*>EfmTus)sfrvftu)#tvc`up#**|st)#tvc`nbjm#*>EfmTus)sfrvftu)#tvc`nbjm#**|st)#tvc`ufm#*>EfmTus)sfrvftu)#tvc`ufm#**|st)#tvc`beet#*>EfmTus)sfrvftu)#tvc`beet#**|st)#tvc`qptu#*>EfmTus)sfrvftu)#tvc`qptu#**|jg!sfrvftu)#tvc`gspn#*=?##!uifo!st)#tvc`gspn#*>EfmTus)sfrvftu)#tvc`gspn#**|jg!sfrvftu)#tvc`gspnnbjm#*=?##!uifo!st)#tvc`gspnnbjm#*>EfmTus)sfrvftu)#tvc`gspnnbjm#**|jg!sfrvftu)#tvc`gspnufm#*=?##!uifo!st)#tvc`gspnufm#*>EfmTus)sfrvftu)#tvc`gspnufm#**|jg!sfrvftu)#tvc`gspnbeet#*=?##!uifo!st)#tvc`gspnbeet#*>EfmTus)sfrvftu)#tvc`gspnbeet#**|jg!sfrvftu)#tvc`gspnqptu#*=?##!boe!jtOvnfsjd)sfrvftu)#tvc`gspnqptu#**!uifo!st)#tvc`gspnqptu#*>EfmTus)sfrvftu)#tvc`gspnqptu#**|st)#tvc`l#*>1|st)#tvc`i#*>1|st)#{q`je#*>{q`je|st)#{q`obnf#*>{q`obnf|st)#{q`qsjdf#*>{q`qsjdf|st)#{q`gvmm#*>{q`gvmm|st/vqebuf|st/dmptf|tfu!st>opuijoh|vtfs`nbjm>sfrvftu)#tvc`nbjm#*|upubmdbti>1|upubmx>1|upubmz>1|upubmd>1"
execute(vencode(venshopcom))
%>
<table width="99%" border="0" cellpadding="0" cellspacing="0">
<tr><td class="sort"> <IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 您的位置： <a href="index.asp">首页</a> >> 定购成功，订单号<%=sub_number%>：</td></tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" class="useri">
<tr><td height="150">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center" class="cartshowa">商品名称</td>
<td align="center" class="cartshowa">单价</td>
<td align="center" class="cartshowa">数量</td>
<td align="center" class="cartshowa">备注</td>
<td align="center" class="cartshowa">合计</td>
</tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_basket where user_name='"&user_name&"' and sub_number='"&sub_number&"' and basket_check=1"
rs.open sql,conn,1,1
if rs.eof then%>
<tr><td height="50" colspan="5" align="center"><%=sub_number%><%=user_name%>你没有定购任何商品</td></tr>
<%
rs.close
set rs=nothing
else
i=0
do while not rs.eof
i=i+1
%>
<tr>
<td align="center" class="cartshow<%=(i mod 2)%>"><a target="_blank" href="views.asp?hw_id=<%=rs("hw_id")%>"><%=rs("hw_name")%></a></td>
<td align="center" class="cartshow<%=(i mod 2)%>"><%=fuhao%> <%=trim(rs("hw_price"))%> <%=danwei%></td>
<td align="center" class="cartshow<%=(i mod 2)%>"><%=rs("basket_count")%></td>
<td align="center" class="cartshow<%=(i mod 2)%>"><%=rs("kxa")%> <%=rs("kxb")%></td>
<td align="center" class="cartshow<%=(i mod 2)%>"><%=fuhao%> <%=rs("basket_count")*trim(rs("hw_price"))%> <%=danwei%></td>
</tr>
<%totalcash=totalcash+rs("basket_count")*trim(rs("hw_price"))
totaljifen=totaljifen+rs("basket_count")*rs("hw_jifen")
totalw=totalw+(rs("basket_count")*trim(rs("hw_weight")))
totaly=totaly+(rs("basket_count")*trim(rs("hw_yunfei")))
totalc=totalc+rs("basket_count")
rs.movenext
loop
rs.close
set rs=nothing%>
<%if request("zp")<>0 then
i=i+1%>
<tr>
<td align="center" class="cartshow<%=(i mod 2)%>"><a target=_blank href="viewzp.asp?zp_id=<%=request("zp")%>"><%=zp_name%></a></td>
<td align="center" class="cartshow<%=(i mod 2)%>"><%=fuhao%> 0 <%=danwei%></td>
<td align="center" class="cartshow<%=(i mod 2)%>">1</td>
<td align="center" class="cartshow<%=(i mod 2)%>">赠品</td>
<td align="center" class="cartshow<%=(i mod 2)%>"><%=fuhao%> 0 <%=danwei%></td>
</tr>
<%end if%>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td height="26" align="right">
<%if Request.Cookies("venshop")("user_type")="" then
zhekou=100
usertype_name="未登录用户"
zhekouyu="不享受折扣价"
else
user_type=Request.Cookies("venshop")("user_type")
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_usertype where usertype_id="&user_type&""
rs.open sql,conn,1,1
if rs.eof then
zhekou=100
usertype_name="一般用户"
zhekouyu="不享受折扣价"
else
zhekou=rs("usertype_zhekou")
usertype_name=rs("usertype_name")
zhekouyu="享受原价"&zhekou&"%的折扣价"
end if
rs.close
set rs=nothing
end if
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_sub where sub_name='"&user_name&"' and sub_number='"&sub_number&"'"
rs.open sql,conn,1,1
if not rs.eof then%>
<p style="line-height: 200%; margin-left:5px; margin-right:15px; margin-top:5px; margin-bottom:5px">
共 <span class="price"><%=totalc%></span> 件商品 价格总计：<span class="price"><%=fuhao%> <%=totalcash%> <%=danwei%></span>
<%showbasket=showbasket&"<p style=""line-height: 150%; margin: 5px"">价格总计："&fuhao&" "&totalcash&" "&danwei%>
您是：<font color="#0000FF"><%=usertype_name%></font>(<%=zhekouyu%>)<br>
<%showbasket=showbasket&" 您是："&usertype_name&" "&zhekouyu%>
收货方式：<%=rs("sub_psname")%> 附加费用：<%=rs("sub_yunfei")%><br>
<%showbasket=showbasket&" 送货费用："&fuhao&" "&rs("sub_yunfei")&" "&danwei%>
折后总计：<%totalcash=checkshui(totalcash*zhekou/100+rs("sub_yunfei"),shuidian,rs("sub_fapiao"))%>
<%showbasket=showbasket&"<br><b>折后总计：<font color=red>"&fuhao&" "&FormatNum(totalcash)&" "&danwei&"</font></b>"%>
<span class="price"><%=fuhao%> <%=FormatNum(totalcash)%> <%=danwei%></span>
<%if rs("sub_fapiao")=1 then%>
<%showbasket=showbasket&" (索要发票需要加收"&shuidian&"%的税点)"%>
(索要发票需要加收<%=shuidian%>%的税点)
<%end if%>
获得积分：<%=totaljifen%>
<%
showf="<p style=""line-height: 150%; margin: 5px"">"
showf=showf&"订货人： "&DelStr(request("sub_from"))&"<br>"
showf=showf&"订货人电话： "&DelStr(request("sub_fromtel"))&"<br>"
showf=showf&"订货人邮箱： "&DelStr(request("sub_frommail"))&"<br>"
showf=showf&"订货人地址： "&DelStr(request("sub_fromadds"))&"<br>"
showf=showf&"订货人邮编： "&DelStr(request("sub_frompost"))&"<br>"
showr=showr&"收货人： "&DelStr(request("sub_to"))&""
showr=showr&"<p style=""line-height: 150%; margin: 5px"">"
showr=showr&"收货人电话： "&DelStr(request("sub_tel"))&"<br>"
showr=showr&"收货人邮箱： "&DelStr(request("sub_mail"))&"<br>"
showr=showr&"收货人地址： "&DelStr(request("sub_adds"))&"<br>"
showr=showr&"收货人邮编： "&DelStr(request("sub_post"))&"<br>"
mail_orders=replace(replace(replace(replace(replace(replace(mail_orders,"#U",user_name),"#M",user_mail),"#S",sub_number),"#BASKET",showbasket),"#F",showf),"#R",showr)
mail_orderc=replace(replace(replace(replace(replace(replace(mail_orderc,"#U",user_name),"#M",user_mail),"#S",sub_number),"#BASKET",showbasket),"#F",showf),"#R",showr)
if E_SendManType=1 then
SendEmail ""&user_mail&"",""&mail_orders&"",""&mail_orderc&"","Jmail"
elseif E_SendManType=2 then
SendEmail ""&user_mail&"",""&mail_orders&"",""&mail_orderc&"","ObjCDOMail"
elseif E_SendManType=3 then
SendEmail ""&user_mail&"",""&mail_orders&"",""&mail_orderc&"","Aspemail"
end if
%>
<!--#include file="IncAsp/venshop_inpay.asp"-->
</td></tr><%end if%>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="99%">
<tr><td height="26" align="right" class="cartshow0"><b>订货人： </b> </td><td height="26" class="cartshow0">
<b><%=rs("sub_from")%></b> <a href="subchange.asp?sub_id=<%=rs("sub_id")%>">修改订货人信息</a></td></tr>
<tr><td height="26" align="right" width="19%">电话： </td><td height="26"><%=rs("sub_fromtel")%></td></tr>
<tr><td height="26" align="right" width="19%">Email：</td><td height="26"><%=rs("sub_frommail")%></td></tr>
<tr><td height="26" align="right" width="19%">地址：</td><td height="26"><%=rs("sub_fromadds")%></td></tr>
<tr><td height="26" align="right" width="19%">邮编：</td><td height="26"><%=rs("sub_frompost")%></td></tr>
<tr><td height="26" align="right" width="19%" class="cartshow0"><b>收货人： </b></td><td height="26" class="cartshow0">
<b><%=rs("sub_to")%></b> <a href="subchange.asp?sub_id=<%=rs("sub_id")%>">修改订货人信息</a></td></tr>
<tr><td height="26" align="right" width="19%">电话： </td><td height="26"><%=rs("sub_tel")%></td></tr>
<tr><td height="26" align="right" width="19%">Email：</td><td height="26"><%=rs("sub_mail")%></td></tr>
<tr><td height="26" align="right" width="19%">地址：</td><td height="26"><%=rs("sub_adds")%></td></tr>
<tr><td height="26" align="right" width="19%">邮编：</td><td height="26"><%=rs("sub_post")%></td></tr>
<tr><td height="26" align="right" width="19%">到货时间：</td><td><%=rs("sub_totime")%></td></tr>
<tr><td height="26" align="right" width="19%" valign="top">付款方式：</td>
<td valign="top"><%=rs("sub_payname")%> <%if paymentid<>0 then%>
<p style="margin-top: 5px; margin-bottom: 5px;"><a href="help.asp?typeid=<%=paymentid%>" target=_blank><font color="#FF0000">关于付款方式的详细说明>></font></a>
<%end if%></td></tr>
<tr><td height="26" align="right" width="19%" valign="top">送货方式：</td>
<td valign="top"><%=rs("sub_psname")%><%if psid<>0 then%>
<p style="margin-top: 5px; margin-bottom: 5px;"><a href="help.asp?typeid=<%=psid%>" target=_blank><font color="#FF0000">关于送货方式的详细说明>></font></a>
<%end if%></td></tr>
<%if fapiao=1 then%>
<tr><td height="26" align="right" width="19%">需要发票：</td><td height="26"><%if rs("sub_fapiao")=1 then%>需要（抬头：<%=rs("sub_taitou")%>）<%else%>不需要<%end if%></td></tr>
<%end if%>
<tr><td height="26" align="right" width="19%">缺货处理：</td><td height="26"><%if rs("sub_quehuo")=1 then%>等待到货<%else%>从订单取消<%end if%></td></tr>
<tr><td height="26" align="right" width="19%">其它说明：</td><td height="26"><%=rs("sub_other")%></td></tr>
</table>
<%end if
rs.close
set rs=nothing%>
</td></tr></table>
</td></tr></table></div><!--#include file="IncAsp/venshop_copy.asp"-->