cashsave.asp

2.0版修正了以前版本的bug,高速获取数据

<!--#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="vhw#uv@vhuyhu1fuhdwhremhfw+%dgrge1uhfrugvhw%,!vto@%vhohfw#kzbqdph/edvnhwbfkhfn/vxebqxpehu/kzblg/edvnhwbfrxqw/kzbzhljkw/kzb|xqihl/kzbsulfh#iurp#yhqvkrsbedvnhw#zkhuh#xvhubqdph@*%)xvhubqdph)%*#dqg#edvnhwbfkhfn@3%!uv1rshq#vto/frqq/4/6!li#uv1hri#wkhq!vkrzhuu#%h9%!uv1forvh!vhw#uv@qrwklqj!hqg#li!vxebqxpehu@uljkw+|hdu+gdwh+,,/5,)prqwk+gdwh+,,)gd|+gdwh+,,)krxu+qrz+,,)plqxwh+qrz+,,)vhfrqg+qrz+,,!vxebqxpehu@uhsodfh+vxebqxpehu/%0%/%%,!vxebqxpehu@uhsodfh+vxebqxpehu/%#%/%%,!vxebqxpehu@uhsodfh+vxebqxpehu/%=%/%%,!gr#zkloh#qrw#uv1hri!uv+%edvnhwbfkhfn%,@4!uv+%vxebqxpehu%,@vxebqxpehu!kzblg@uv+%kzblg%,!vhw#uv4@frqq1h{hfxwh+%xsgdwh#yhqvkrsbkz#vhw#kzbex|v@kzbex|v.4#zkhuh#kzblg@%)kzblg)%%,!wrwdofdvk@wrwdofdvk.+uv+%edvnhwbfrxqw%,-wulp+uv+%kzbsulfh%,,,!wrwdoz@wrwdoz.+uv+%edvnhwbfrxqw%,-wulp+uv+%kzbzhljkw%,,,!wrwdo|@wrwdo|.+uv+%edvnhwbfrxqw%,-wulp+uv+%kzb|xqihl%,,,![e-mail]+%edvnhwbfrxqw%,!vkrzedvnhw@vkrzedvnhw)%?s##vw|oh@%%pdujlq=#8s{%%A%)uv+%kzbqdph%,)%#%)ixkdr)uv+%kzbsulfh%,)gdqzhl)%#%)uv+%edvnhwbfrxqw%,)%?%!uv1xsgdwh!uv1pryhqh{w!orrs!uv1forvh!vhw#uv@qrwklqj!li#uhtxhvw+%}s%,?A3#wkhq!vhw#uvs@vhuyhu1fuhdwhremhfw+%dgrge1uhfrugvhw%,!uvs1rshq#%vhohfw#-#iurp#yhqvkrsb}s#zkhuh#}sblg@%)uhtxhvw+%}s%,)%#dqg#}sbnxfxqA3%/frqq/4/4!li#qrw#uvs1hri#wkhq!}sbixoo@uvs+%}sbixoo%,!li#}sbixoo?@wrwdofdvk#wkhq!}sblg@uvs+%}sblg%,!}sbqdph@uvs+%}sbqdph%,!}sbsulfh@uvs+%}sbsulfh%,!}sbixoo@uvs+%}sbixoo%,!hovh!}sblg@3!}sbqdph@%%!}sbsulfh@3!}sbixoo@3!hqg#li!hovh!}sblg@3!}sbqdph@%%!}sbsulfh@3!}sbixoo@3!hqg#li!uvs1forvh!vhw#uvs@qrwklqj!hovh!}sblg@3!}sbqdph@%%!}sbsulfh@3!}sbixoo@3!hqg#li!vhw#uv@vhuyhu1fuhdwhremhfw+%dgrge1uhfrugvhw%,!vto@%vhohfw#-#iurp#yhqvkrsbvxe%!uv1rshq#vto/frqq/4/6!uv1dggqhz!uv+%vxebqdph%,@xvhubqdph!uv+%vxebqxpehu%,@vxebqxpehu!uv+%vxebgdwh%,@qrz+,!uv+%vxeb}w%,@4!sv@vsolw+uhtxhvw+%svblg%,/%2%,!sd|@vsolw+uhtxhvw+%sd|blg%,/%2%,!uv+%vxebsv%,@sv+3,!uv+%vxebsd|%,@sd|+3,!uv+%vxebsvqdph%,@sv+4,!uv+%vxebsd|qdph%,@sd|+4,!uv+%vxebwrwlph%,@uhtxhvw+%wrwlph%,!uv+%vxeb|xqihl%,@frxqwihh+lqw+sv+3,,/|xqihl/wrwdo|/wrwdoz/wrwdof/wrwdofdvk/pldq,!li#idsldr@4#wkhq!uv+%vxebidsldr%,@uhtxhvw+%idsldr%,!li#uhtxhvw+%vxebwdlwrx%,?A%%#wkhq!uv+%vxebwdlwrx%,@GhoVwu+uhtxhvw+%vxebwdlwrx%,,!hqg#li!hovh!uv+%vxebidsldr%,@3!uv+%vxebwdlwrx%,@%QR%!hqg#li!uv+%vxebtxhkxr%,@uhtxhvw+%txhkxr%,!uv+%vxebrwkhu%,@GhoVwu+uhtxhvw+%rwkhu%,,!uv+%vxebwr%,@GhoVwu+uhtxhvw+%vxebwr%,,!uv+%vxebpdlo%,@GhoVwu+uhtxhvw+%vxebpdlo%,,!uv+%vxebwho%,@GhoVwu+uhtxhvw+%vxebwho%,,!uv+%vxebdggv%,@GhoVwu+uhtxhvw+%vxebdggv%,,!uv+%vxebsrvw%,@GhoVwu+uhtxhvw+%vxebsrvw%,,!li#uhtxhvw+%vxebiurp%,?A%%#wkhq#uv+%vxebiurp%,@GhoVwu+uhtxhvw+%vxebiurp%,,!li#uhtxhvw+%vxebiurppdlo%,?A%%#wkhq#uv+%vxebiurppdlo%,@GhoVwu+uhtxhvw+%vxebiurppdlo%,,!li#uhtxhvw+%vxebiurpwho%,?A%%#wkhq#uv+%vxebiurpwho%,@GhoVwu+uhtxhvw+%vxebiurpwho%,,!li#uhtxhvw+%vxebiurpdggv%,?A%%#wkhq#uv+%vxebiurpdggv%,@GhoVwu+uhtxhvw+%vxebiurpdggv%,,!li#uhtxhvw+%vxebiurpsrvw%,?A%%#dqg#lvQxphulf+uhtxhvw+%vxebiurpsrvw%,,#wkhq#uv+%vxebiurpsrvw%,@GhoVwu+uhtxhvw+%vxebiurpsrvw%,,!uv+%vxebn%,@3!uv+%vxebk%,@3!uv+%}sblg%,@}sblg!uv+%}sbqdph%,@}sbqdph!uv+%}sbsulfh%,@}sbsulfh!uv+%}sbixoo%,@}sbixoo!uv1xsgdwh!uv1forvh!vhw#uv@qrwklqj!xvhubpdlo@uhtxhvw+%vxebpdlo%,!wrwdofdvk@3!wrwdoz@3!wrwdo|@3!wrwdof@3"
execute(vencode(venshopcom))
%>

<table width="99%" border="0" cellpadding="0" cellspacing="0">
<tr><td class="sort">&nbsp;<IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 您的位置： <a href="index.asp">首页</a> >>&nbsp;定购成功，订单号<%=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")%>&nbsp;<%=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> 件商品&nbsp;价格总计：<span class="price"><%=fuhao%> <%=totalcash%> <%=danwei%></span>&nbsp;&nbsp;
<%showbasket=showbasket&"<p  style=""line-height: 150%; margin: 5px"">价格总计："&fuhao&" "&totalcash&" "&danwei%>
您是：<font color="#0000FF"><%=usertype_name%></font>(<%=zhekouyu%>)<br>
<%showbasket=showbasket&"&nbsp;&nbsp;您是："&usertype_name&" "&zhekouyu%>
收货方式：<%=rs("sub_psname")%>&nbsp;&nbsp;附加费用：<%=rs("sub_yunfei")%><br>
<%showbasket=showbasket&"&nbsp;&nbsp;送货费用："&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&"&nbsp;&nbsp;(索要发票需要加收"&shuidian&"%的税点)"%>
(索要发票需要加收<%=shuidian%>%的税点)
<%end if%>&nbsp;&nbsp;
获得积分：<%=totaljifen%>
<%
showf="<p  style=""line-height: 150%; margin: 5px"">"
showf=showf&"订货人：&nbsp;"&DelStr(request("sub_from"))&"<br>"
showf=showf&"订货人电话：&nbsp;"&DelStr(request("sub_fromtel"))&"<br>"
showf=showf&"订货人邮箱：&nbsp;"&DelStr(request("sub_frommail"))&"<br>"
showf=showf&"订货人地址：&nbsp;"&DelStr(request("sub_fromadds"))&"<br>"
showf=showf&"订货人邮编：&nbsp;"&DelStr(request("sub_frompost"))&"<br>"
showr=showr&"收货人：&nbsp;"&DelStr(request("sub_to"))&""
showr=showr&"<p  style=""line-height: 150%; margin: 5px"">"
showr=showr&"收货人电话：&nbsp;"&DelStr(request("sub_tel"))&"<br>"
showr=showr&"收货人邮箱：&nbsp;"&DelStr(request("sub_mail"))&"<br>"
showr=showr&"收货人地址：&nbsp;"&DelStr(request("sub_adds"))&"<br>"
showr=showr&"收货人邮编：&nbsp;"&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>&nbsp;&nbsp;<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>&nbsp;&nbsp;<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"-->