qqcf_onlinepay_ok.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
'　　　　　　　 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'                       2006年9月14日									
'===================================
%>
<%
If Application("OnlinePay_"&orderid)=0 Then
 Application("OnlinePay_"&orderid)=1
 If DateDiff("s","2000-1-1 0:0:0",Now())-Int(orderid)>1200 Then
  Response.write "错误刷新，请关闭本页面"
  Response.End
 End If
Else 
 Response.write "错误刷新，请关闭本页面"
 Response.End
End If

Mystr=Mystr&"订单编号:"&orderid
Mystr=Mystr&"<br><br>订单金额:"&Request("amount")
Mystr=Mystr&"<br><br>支付结果:"&v_result

 AdUser_Name=merchant_param
 Enough_Cent=amount
 AdminDesc=Trim(Request("AdminDesc"))

 If AdminDesc="" Then AdminDesc="在线充值,订单编号:"&orderid

 Enough_Cent=Int(Enough_Cent*1000)'精确到厘

 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_CfWztg_AdUser Where AdUser_Name='"&AdUser_Name&"'"
 Rs.Open Sql,Conn,3,2
 Rs("Total_Cent")=Rs("Total_Cent")+Enough_Cent
 Rs("Spare_Cent")=Rs("Spare_Cent")+Enough_Cent
 Rs.Update'为广告商充值

 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select Top 1 * From WWW_QQCF_COM_Cfwztg_AdUser_Enough"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("AdUser_Name")=AdUser_Name
 Rs("Enough_Cent")=Enough_Cent
 Rs("AdminDesc")=AdminDesc
 Rs.Update'增加充值记录
 
 Set Rs = Server.CreateObject("Adodb.RecordSet")
 Sql="Select Top 1 * From WWW_QQCF_COM_CfWztg_Gbook"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("Assort")=2
 Rs("User_Name")=AdUser_Name
 Rs("Content")="-"
 Rs("Reply")="在线充值成功，此次充入"&Enough_Cent/1000&"元"
 Rs.Update'回复结果给用户
%>