www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > Onlinepay_Ok.asp

    <%
'乘风网站推广系统 Access版
'作者QQ:178575
'作者EMail:yliangcf@163.com
'作者网站:http://www.qqcf.com
'详细简介:http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示,安装演示,使用疑难解答,最新版本下载等内容
'因为这些内容可能时常更新,就没有放在程序里,请自己上网站查看
%>
<%
Sql="Select * From CFWztg_AdUser_OnlinePay Where OrderCode='"&OrderCode&"'"
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

AdUserName=Rs("AdUserName")
PayMoney=Rs("PayMoney")

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

Sql="Update CFWztg_AdUser Set Total_Cent=Total_Cent+" & PayMoney & ",Spare_Cent=Spare_Cent+" & PayMoney &" Where AdUserName='" & AdUserName & "'" 
Conn.Execute Sql
%>