onlinepay_ok.asp

免费电影程序:系统做免费

<%
' 乘风电影V3.3 Mssql版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 程序安装演示:http://www.qqcf.com/?Action=setup&Setup=cffilmforsql
' 使用帮助：http://www.qqcf.com/?Action=help&Help=cffilmforsql

' 功　能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，用户无法获取实际链接，可随时更改所有内部影片的链接地址
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<%
If Application("OnlinePay_"&orderid)=0 Then
 Application("OnlinePay_"&orderid)=1
 If DateDiff("s","2000-1-1 0:0:0",Now())-CInt(orderid)>1200 Then
  Response.write "错误刷新，请关闭本页面"
  Response.End
 End If
Else 
 Response.write "错误刷新，请关闭本页面"
 Response.End
End If

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

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

Sql="Insert Into CFFilm_Gbook(User_Name,Reply,ReplyTime) Values('"&User_Name&"','充值成功，定单号码"&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>你的用户名："&User_Name
Response.write Mystr
%>