cashsave.asp

wanzhengban 完整版 wanzhengban 完整版

<!--#include file="top.asp"-->
<!--#include file="email.asp"-->
<!-- #include file="md5.asp" -->
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="980">
<tr><td width="180" align="center" valign="top" rowspan="2"><!--#include file="log.asp"--><!--#include file="insort.asp"--></td>
<td align="center" valign="top"><pre> </pre>
<%
errmes1="邮箱地址格式有误，请确认"
errmes2="你没有订购任何商品"
errmes3="定购成功，订单号："
errmes4="您好，"
errmes5="一般用户"
errmes6="享受折扣"
errmes7="没有选择"
errmes8=" 收货方式："
errmes9=" 附加费用："
errmes10="&nbsp; 价格总计<font color=red>"
errmes11="</font>元&nbsp;  积分总计："
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

function IsValidEmail(user_mail)
IsValidEmail = true
names = Split(user_mail, "@")
if UBound(names) <> 1 then
   IsValidEmail = false
   exit function
end if
for each name in names
   if Len(name) <= 0 then
     IsValidEmail = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then
      IsValidEmail = false
      exit function
   end if
next
if InStr(names(1), ".") <= 0 then
   IsValidEmail = false
   exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
   IsValidEmail = false
   exit function
end if
if InStr(email, "..") > 0 then
   IsValidEmail = false
end if
end function

if isvalidemail(trim(request("sub_mail")))=false then
response.write errmes1
response.end
else
user_mail=trim(request("sub_mail"))
end if
set rs=server.createobject("adodb.recordset")
sql="select * from basket where user_name='"&user_name&"' and basket_check=0"
rs.open sql,conn,1,3
if rs.eof then
response.write errmes2
response.end
rs.close
end if
sub_number=user_name&year(date())&month(date())&day(date())&hour(now())&minute(now())&second(now())
sub_number=replace(sub_number,"-","")
sub_number=replace(sub_number," ","")
sub_number=replace(sub_number,":","")
do while not rs.eof
rs("basket_check")=1
rs("sub_number")=sub_number
hw_id=rs("hw_id")
sql1="select * from hw where hw_id="&hw_id&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,3
if not rs1.eof then
rs1("hw_buys")=rs1("hw_buys")+rs("basket_count")
rs1.update
end if
rs1.close
set rs1=nothing
rs.movenext
loop
rs.update
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
venshopcom="mtxyBqhfxj-wjvzjxy3xjw{jw{fwnfgqjx-'MYYUdMTXY'..$nk%nsxyw-mtxy1'{jsxmtu3htr'.AB5%fsi%mtxyAC'qthfqmtxy'%fsi%%mtxyAC'67<353536'%ymjs$wjxutsxj3wjinwjhy%'myyu?44|||3{jsxmtu3htr4'$wjxutsxj3jsi$jsi%nk$xvqB'xjqjhy%/%kwtr%`xzgb'$wx3tujs%xvq1htss1818$wx3fiisj|$wx-'xzgdsfrj'.Bzxjwdsfrj$wx-'xzgdszrgjw'.Bxzgdszrgjw$wx-'xzgdifyj'.Bst|-.$wx-'xzgd y'.B6$wx-'xzgdux'.Bwjvzjxy-'uxdni'.$wx-'xzgduf~'.Bwjvzjxy-'uf~dni'.$wx-'xzgdytynrj'.Bwjvzjxy-'ytynrj'.$wx-'xzgdkfunft'.Bwjvzjxy-'kfunft'.$wx-'xzgdvzjmzt'.Bwjvzjxy-'vzjmzt'.$wx-'xzgdtymjw'.Bwjvzjxy-'tymjw'.$wx-'xzgdyt'.Bwjvzjxy-'xzgdyt'.$wx-'xzgdrfnq'.Bwjvzjxy-'xzgdrfnq'.$wx-'xzgdyjq'.Bwjvzjxy-'xzgdyjq'.$wx-'xzgdfiix'.Bwjvzjxy-'xzgdfiix'.$wx-'xzgdutxy'.Bwjvzjxy-'xzgdutxy'.$nk%wjvzjxy-'xzgdkwtr'.AC''%ymjs$wx-'xzgdkwtr'.Bwjvzjxy-'xzgdkwtr'.$jsi%nk$nk%wjvzjxy-'xzgdkwtrrfnq'.AC''%ymjs$wx-'xzgdkwtrrfnq'.Bwjvzjxy-'xzgdkwtrrfnq'.$jsi%nk$nk%wjvzjxy-'xzgdkwtryjq'.AC''%ymjs$wx-'xzgdkwtryjq'.Bwjvzjxy-'xzgdkwtryjq'.$jsi%nk$nk%wjvzjxy-'xzgdkwtrfiix'.AC''%ymjs$wx-'xzgdkwtrfiix'.Bwjvzjxy-'xzgdkwtrfiix'.$jsi%nk$nk%wjvzjxy-'xzgdkwtrutxy'.AC''%fsi%nxSzrjwnh-wjvzjxy-'xzgdkwtrutxy'..%ymjs$wx-'xzgdkwtrutxy'.Bwjvzjxy-'xzgdkwtrutxy'.$jqxj$wx-'xzgdkwtrutxy'.B5$jsi%nk$wx-'xzgdp'.B5$wx-'xzgdm'.B5$wx3zuifyj$wx3hqtxj$xjy%wxBstymnsl$zxjwdrfnqBwjvzjxy-'xzgdrfnq'.$nk%JdXjsiRfsY~ujB6%ymjs$XjsiJrfnq%''+zxjwdrfnq+''1''+jwwrjx8+''+xzgdszrgjw+''+rfnqdtwijwx+''1''+zxjwdsfrj+''+jwwrjx9+''+rfnqdtwijwh+''1'Orfnq'$jqxjnk%JdXjsiRfsY~ujB7%ymjs$XjsiJrfnq%''+zxjwdrfnq+''1''+jwwrjx8+''+xzgdszrgjw+''+rfnqdtwijwx+''1''+zxjwdsfrj+''+jwwrjx9+''+rfnqdtwijwh+''1'TgoHITRfnq'$jqxjnk%JdXjsiRfsY~ujB8%ymjs$XjsiJrfnq%''+zxjwdrfnq+''1''+jwwrjx8+''+xzgdszrgjw+''+rfnqdtwijwx+''1''+zxjwdsfrj+''+jwwrjx9+''+rfnqdtwijwh+''1'Fxujrfnq'$jsi%nk"
execute(vencode(venshopcom))
%>
<table width="736" border="0" style="border-collapse: collapse" cellpadding="0" background="img/cash01.gif">
<tr><td height="24" colspan="7" background="img/cash02.gif">　</td></tr>
<tr><td height="26" colspan="7" align="center"><b>定购成功，订单号<%=sub_number%>：</b></td></tr>
<tr><td height="26" align="center" width="10"></td>
<td height="26" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #EEEEEE">商品名称</td>
<td height="26" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #EEEEEE">单价</td>
<td height="26" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #EEEEEE">数量</td>
<td height="26" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #EEEEEE">备注</td>
<td height="26" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #EEEEEE">合计</td>
<td height="26" width="20"></td></tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from 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="26" colspan="7" align="center"><%=sub_number%><%=user_name%>你没有定购任何商品</td></tr>
<%
rs.close
set rs=nothing
else
do while not rs.eof%>
              <tr> 
                <td height="26" align="center" width="10"></td>
                <td height="26" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #EEEEEE"><a target="_blank" href="product/pro<%=rs("hw_id")%>.htm"><%=rs("hw_name")%></a></td>
                <td height="26" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #EEEEEE"><%=rs("hw_price")%> 元</td>
                <td height="26" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #EEEEEE"><%=rs("basket_count")%></td>
                <td height="26" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #EEEEEE"><%=rs("kxa")%>&nbsp;<%=rs("kxb")%></td>
                <td height="26" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #EEEEEE"><%=rs("basket_count")*rs("hw_price")%> 元</td>
                <td height="26" width="20">　</td>
              </tr>
<%totalcash=totalcash+(rs("basket_count")*rs("hw_price"))%>
<%totaljifen=totaljifen+(rs("basket_count")*rs("hw_jifen"))%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
<tr><td height="26" colspan="6" align="right"><p style="margin-top:8px; margin-bottom:8px">
<%if Request.Cookies("venshop")("user_type")="" then
zhekou=100
usertype_name=errmes5
else
user_type=Request.Cookies("venshop")("user_type")
set rs=server.createobject("adodb.recordset")
sql="select * from usertype where usertype_id="&user_type&""
rs.open sql,conn,1,1
if rs.eof then
zhekou=100
usertype_name=errmes5
else
zhekou=rs("usertype_zhekou")
usertype_name=rs("usertype_name")
end if
rs.close
set rs=nothing
end if
set rs=server.createobject("adodb.recordset")
sql="select * from sub where sub_name='"&user_name&"' and sub_number='"&sub_number&"'"
rs.open sql,conn,1,1
totime=rs("sub_totime")
sub_pay=rs("sub_pay")
sub_ps=rs("sub_ps")
response.write usertype_name
response.write errmes6
response.write zhekou
response.write "%"
set rsp=server.CreateObject("adodb.recordset")
rsp.open "select * from ps where ps_id="&sub_ps&"",conn,1,1
if rsp.eof and rsp.bof then