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 %>