onlinepay_ok.asp

支持多种播放器RealPlayer,MediaPlayer

<%
'乘风电影程序
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>

<%
UserName=ChkStr(UserName,1)
OrderID=ChkStr(OrderID,1)
amount=ChkStr(amount,2)

Sql="Select PayOk From CFFilm_OnlinePay Where OrderID='"&OrderID&"'"
Set Rs= Conn.Execute(Sql)
If Rs.Eof Then
 Response.write "定单不存在"
 Response.End
End If

If Rs("PayOk")=-1 Then
 Response.write "此定单已经处理过"
 Response.End
End If

Sql="Update CFFilm_OnlinePay Set PayOk=-1 Where OrderID='"&OrderID&"'"
Conn.Execute(Sql)


AddDot=CLng(amount*RsSet("DotChangeNum"))'把钱换按比例换算成点数

Sql="Update CFFilm_User Set Total_Dot=Total_Dot+"&AddDot&",Spare_Dot=Spare_Dot+"&AddDot&" Where UserName='"&UserName&"'"
Conn.Execute Sql

Sql="Insert Into CFFilm_Gbook(UserName,Reply,ReplyTime) Values('"&UserName&"','充值成功，定单号码"&orderid&",充入"&amount&"元，获得"&AddDot&"点',getdate())"
Conn.Execute Sql

Mystr=Mystr&"支付成功，请关闭本页"
Mystr=Mystr&"<br><br>订单编号:"&orderid
Mystr=Mystr&"<br><br>订单金额:"&amount
Mystr=Mystr&"<br><br>支付结果:"&v_result
Mystr=Mystr&"<br><br>你的用户名："&UserName
Response.write Mystr
%>