<!--#include file="../admin/conn.asp"-->
<!--#include file="c4_config.asp"-->
<!--#include file="c4_md5.asp"-->
<% if request.cookies("userid")="" or request.cookies("password")="" then
   response.write"没有登陆不能进入"
   response.end
   end if
%>
<%
'#############################################################
'#                   cbf001电影系统C4正式版
'#                            
'#                   http://www.cbf001.com
'#
'#  版权所有: cbf001空间站 www.cbf001.com
'#
'#  主页地址: http://www.cbf001.com
'#  技术支持: cbf001@qq.com
'#  技 术 QQ: 383352033
'#
'#############################################################
'# ·郑重声明:
'# ·此程序不得随意公开发布、销售或进行其他非法转让。
'# ·如对此程序有任何疑问，请在论坛留言。
'# ·论坛留言地址：http://cbf001.com/bbs/
'#############################################################

'本文件功能介绍：
'1、根据自己的密钥设置验证返回的加密字符串是否正确。
'2、显示定单成功页面。
'3、如果返回的提交有错误，即显示错误信息。
'4、为了增强反馈定单的安全性，系统返回的加密字符串由“定单号+成功支付金额+商户编号+商户密钥”经过MD5加密后产生的。下面的程序已经完成了此加密字符串的验证。
'5、为了防止黑客通过不正常的手段恶意反馈(刷新)成功页面，请您在此程序中加入验证定单号的功能，即每一个成功定单只能反馈一次此页面。下面的程序中有验证定单号的示例程序，供您研究和使用。
'6、反馈的数据您都可以充分利用并添加到您自己的数据库中。下面的程序中有添加定单信息到数据库中的示例程序，供您研究和使用。

on error Resume Next
'您可以充分利用以下反馈信息并添加到您自己的数据库中。
vip=Request.ServerVariables("Remote_Addr")   '提交者IP地址
v_orderid=Request.Form("v_orderid")   '168注册中心反馈的定单号
v_orderdate=Request.Form("v_orderdate")   '定单成交时间
v_price=Request.Form("v_price")   '定单成交价格
v_province=Request.Form("v_province")   '用户提交时选择的省份
v_city=Request.Form("v_city")   '用户提交时选择的城市(地区)
v_custom1=Request.Form("v_custom1")   '自定义字段1
v_custom2=Request.Form("v_custom2")   '自定义字段2
v_md5=Request.Form("v_md5")   '返回的加密字符串
v_pstatus=Request.Form("v_pstatus")   '定单成功反馈的字符串，有1和0两种情况。主要用于验证是否属正常反馈。

if v_pstatus="1" then
if v_orderid="" or v_orderdate="" or v_price="" or v_md5="" then%>
<script language=vbscript>
  MsgBox "非法反馈：反馈的数据不正确！"
  location.href = "<%=myhomepage%>"
</script>
<%end if
'以下程序验证返回的加密字符串是否正确
encrypt_string=Ucase(trim(md5(v_orderid&v_price&reg_userid&reg_key)))
if v_md5<>encrypt_string then%>
<script language=vbscript>
  MsgBox "致命错误：返回的加密字符串不正确，您是非法提交！"
  location.href = "<%=myhomepage%>"
</script>
<%Response.end
end if
'验证返回的加密字符串是否正确程序结束

'以下程序防止用户是否多次刷新成功页面，最好的方法是您做成从自己的数据库中检测v_orderid定单号是否已成交，如果已成交，就不显示页面。
 
'为防止用户多次刷新成功页面，使缓存的页面立即过期
'Response.Expires=0

'以下程序用于验证定单号是否为多次提交（或页面多次刷新），如果不是，就将成交定单添加到您自己的数据库中，这里只是示例程序(已被注释)，请根据您自己的网站和数据库进行修改。
 
'168注册中心强烈推荐您进行定单号验证，如果觉得定单可疑，请到定单管理区核对。因为贵站安全措施未做好而造成的损失，168注册中心概不负责。
 
'检测定单号是否已存在于数据库中

sql="SELECT count(ID) as zfs FROM 交易记录 where 支付号='" & v_orderid & "'"

rs.open sql,conn,3,1
 
if cstr(rs("zfs"))="1" then
	Response.write "错误：同一定单成交页面不允许多次刷新或提交！！"
	Response.end
end if
rs.close 
'判断冲值金额
if v_price<>10 then
%>
有效购买金额不是10元，您支付了<%=v_price%>元，请联系客服!
<% 
response.end
end if
sql="SELECT top 1 * FROM 交易记录 where 管理员='' and 支付状态=0 and 用户名='" & v_custom1 & "' ORDER BY ID DESC"
rs.open sql,conn,1,1
if rs.eof then
	rs.close	
	sql="insert into 交易记录(用户名,管理员,用户IP,总金额,支付时间,支付号,购买类型,支付状态,确认方式) values ('" & v_custom1 & "','','"& vip &"',10,'"&now()&"','"&v_orderid&"',5,1,'自动确认')"
	conn.execute(sql)
else
	ID=rs("ID")
	rs.close
	sql="update 交易记录 set 支付状态=1, 确认方式='自动确认',支付时间='"&now()&"',用户IP='"& vip &"',总金额=10,支付号='"&v_orderid&"',购买类型=5 where ID=" & ID
	conn.execute(sql)	
end if
gmlx="5"
userid=trim(v_custom1)
%>
<%
'''///////////////////cBF001C4电影系统////////
If Userid <> Request.Cookies("userid") then Userid = Request.Cookies("userid")
set rs=server.createobject("adodb.recordset")
sql="select * from buy where id='"&payid&"'"
rs.open sql,conn,1,3
rs("pay")=1
rs.update
baoyue=rs("baoyue")
money=rs("money")
oklook=rs("oklook")
askmejoin=rs("askmejoin")
userid=rs("userid")
count=rs("count")
rs.close
set rs=nothing

if baoyue=1 then

set rs=server.createobject("adodb.recordset")
sql="select money,starlook,oklook,pay,baoyue from users where userid='"&userid&"'"
rs.open sql,conn,1,3
rs("pay")=1
rs("starlook")=now()
if rs("money")-now()<1 then
rs("money")=now() + dayer
rs("oklook")=oklook
rs("baoyue")=1
rs("vipdown")=vipdown
else
rs("money")=rs("money") + dayer
rs("oklook")=oklook
rs("baoyue")=1
end if
rs.update

else

set rs=server.createobject("adodb.recordset")
sql="select money,starlook,oklook,pay,usercount,baoyue from users where userid='"&userid&"'"
rs.open sql,conn,1,3
rs("pay")=1
rs("starlook")=now()
rs("usercount")=rs("usercount")+count
rs("baoyue")=1
rs("oklook")=2
rs("money")=now() + 15
rs.update


end if

conn.execute"delete from buy where id="&clng(request("id"))
if askmejoin<>"" then
set rs=server.createobject("adodb.recordset")
sql="select getmoney,payno,oklook from users where userid='"&askmejoin&"'"
rs.open sql,conn,1,3
if rs("oklook")=0 or rs("oklook")=2 then
give=1
elseif rs("oklook")=2 then
give=2
elseif rs("oklook")=3 then
give=3
elseif rs("oklook")=4 then
give=4
end if
rs("getmoney")=cint(rs("getmoney"))+request("paymoney")/10*giveme
rs("payno")=cint(rs("payno"))+1
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<% '下面请放入定单成功页面的HTML代码%>
 
<HTML><HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../include/mainstyle.css" type=text/css rel=stylesheet>
<LINK href="../include/DefaultSkin.css" type=text/css rel=stylesheet>
<TITLE>定单成交信息</TITLE>
</HEAD>
<BODY>
<% If Userid <> Request.Cookies("userid") then Userid = Request.Cookies("userid") %>
<p align=center>您已经成功冲值10元,得到了7天金牌会员服务！请重新登录即刻享受电影高速下载服务</p>
<p>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;支付金额：<%=v_price%><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;定单号：<%=v_orderid%><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;付款状态：<%=v_pstatus%><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IP地址：<%=vip%><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;定单成交时间：<%=v_orderdate%><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;用户名：<%=v_custom1%><br><br>
<p align=center><a href="javascript:window.close();"><b>关闭</b></a></p>
</p>
</BODY></HTML>
 
<%else
'下面请放入定单失败页面的HTML代码%>
<HTML><HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../include/mainstyle.css" type=text/css rel=stylesheet>
<LINK href="../include/DefaultSkin.css" type=text/css rel=stylesheet>
<TITLE>定单失败</TITLE>
</HEAD>
<BODY>
<p>
定单支付失败，有疑问可联系客服 ***********!

</p>
</BODY></HTML>
<%end if%>