cashsave.asp

凡人网络购物系统 v8.0 中文版

<!--#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="inhelp.asp"--></td>
<td align="center" valign="top"><%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 "邮箱地址格式有误，请确认"
response.end
else
user_mail=trim(request("sub_mail"))
end if
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_basket where user_name='"&user_name&"' and basket_check=0"
rs.open sql,conn,1,3
if rs.eof then
response.write "你没有订购任何商品"
response.end
rs.close
set rs=nothing
end if
sub_number=right(year(date()),2)&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 venshop_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
venshopcom="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!uv+%vxebsv%,@uhtxhvw+%svblg%,!uv+%vxebsd|%,@uhtxhvw+%sd|blg%,!uv+%vxebwrwlph%,@uhtxhvw+%wrwlph%,!uv+%vxebidsldr%,@uhtxhvw+%idsldr%,!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%,,!hqg#li!li#uhtxhvw+%vxebiurppdlo%,?A%%#wkhq!uv+%vxebiurppdlo%,@GhoVwu+uhtxhvw+%vxebiurppdlo%,,!hqg#li!li#uhtxhvw+%vxebiurpwho%,?A%%#wkhq!uv+%vxebiurpwho%,@GhoVwu+uhtxhvw+%vxebiurpwho%,,!hqg#li!li#uhtxhvw+%vxebiurpdggv%,?A%%#wkhq!uv+%vxebiurpdggv%,@GhoVwu+uhtxhvw+%vxebiurpdggv%,,!hqg#li!li#uhtxhvw+%vxebiurpsrvw%,?A%%#dqg#lvQxphulf+uhtxhvw+%vxebiurpsrvw%,,#wkhq!uv+%vxebiurpsrvw%,@GhoVwu+uhtxhvw+%vxebiurpsrvw%,,!hovh!uv+%vxebiurpsrvw%,@3!hqg#li!uv+%vxebn%,@3!uv+%vxebk%,@3!uv1xsgdwh!uv1forvh!vhw#uv@qrwklqj!xvhubpdlo@uhtxhvw+%vxebpdlo%,!li#HbVhqgPdqW|sh@4#wkhq!VhqgHpdlo#%%)xvhubpdlo)%%/%%)huuphv6)%%)vxebqxpehu)%%)pdlobrughuv)%%/%%)xvhubqdph)%%)huuphv7)%%)pdlobrughuf)%%/%Mpdlo%!hovhli#HbVhqgPdqW|sh@5#wkhq!VhqgHpdlo#%%)xvhubpdlo)%%/%%)huuphv6)%%)vxebqxpehu)%%)pdlobrughuv)%%/%%)xvhubqdph)%%)huuphv7)%%)pdlobrughuf)%%/%RemFGRPdlo%!hovhli#HbVhqgPdqW|sh@6#wkhq!VhqgHpdlo#%%)xvhubpdlo)%%/%%)huuphv6)%%)vxebqxpehu)%%)pdlobrughuv)%%/%%)xvhubqdph)%%)huuphv7)%%)pdlobrughuf)%%/%Dvshpdlo%!hqg#li"
execute(vencode(venshopcom))
%><!--#include file="invemail.asp"-->
<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="20"></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 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="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="20"></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="views.asp?hw_id=<%=rs("hw_id")%>"><%=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"><%=trim(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")*trim(rs("hw_price"))%> 元</td>
<td height="26" width="20"></td></tr>
<%totalcash=totalcash+rs("basket_count")*trim(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="line-height: 150%; margin-left:5px; margin-right:15px; margin-top:5px; margin-bottom:5px">
<%if Request.Cookies("venshop")("user_type")="" then
zhekou=100
usertype_name="未登录用户"
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"一般用户"
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 venshop_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")%>
您是：<%=usertype_name%>&nbsp;&nbsp;享受<%=zhekou%>%优惠价<br><%set rsp=server.CreateObject("adodb.recordset")
rsp.open "select * from venshop_ps where ps_id="&sub_ps&"",conn,1,1
if rsp.eof and rsp.bof then
pei_name="没有选择"
ps_fei=0
else
ps_name=rsp("ps_name")
ps_fei=rsp("ps_fei")
end if
rsp.close
set rsp=nothing%>收货方式：<%=ps_name%>&nbsp;&nbsp;附加费用：<%=ps_fei%><br>
折后总计：￥<%totalcash=totalcash*zhekou/100+ps_fei%><font color="#FF0000"><%=totalcash%></font>&nbsp;&nbsp;
获得积分：<%=totaljifen%>
<table border="0" cellpadding="0" cellspacing="0">
<%set rsp=server.CreateObject("adodb.recordset")
sql="select top 1 * from venshop_payonline"
rsp.open sql,conn,1,1
if rsp("payonline")=1 then
	c_mid		= rsp("pay_cncard")
	c_order		= sub_number
	c_orderamount	= totalcash
	c_ymd		= year(date())*10000+month(date())*100+day(date())
	c_moneytype	= "0"
	c_retflag	= "0"
	c_paygate	= ""
	c_returl	= rsp("pay_url")
	c_memo1		= "Venshop"
	c_memo2		= "70"
	c_pass		= rsp("pay_cncardp")
	notifytype	= "0"
	c_language	= "0"
	srcStr = c_mid & c_order & c_orderamount & c_ymd & c_moneytype & c_retflag & c_returl & c_paygate & c_memo1 & c_memo2 & notifytype & c_language & c_pass
	c_signstr	= MD5(srcStr)
%>
<form name="payForm1" action="https://www.cncard.net/purchase/getorder.asp" method="POST" target="_blank"><tr>