stat_do.asp

中文bux点击站源码。配合其他站点用

<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->

<!--#include file="checklogin.asp"-->

<%
  Server.ScriptTimeout = 999
  Value = Request ("Value")
  rs.Open "Select * From member Where Active = True",Conn
  While Not rs.EOF
  Email = rs ("Email")
  UserName = rs ("UserName")
  SignupPoints = rs ("SignupPoints")
  Points = rs ("Points")
  Points1 = rs ("Points1")
  Points2 = rs ("Points2")
  Points3 = rs ("Points3")
  Points4 = rs ("Points4")
  Points5 = rs ("Points5")
  Points6 = rs ("Points6")
  PointsCredits = rs ("PointsCredits")
  PointsDebits = rs ("PointsDebits")
  Amount = SignupPoints + Points + Points1 + Points2 + Points3 + Points4 + Points5 + Points6 + PointsCredits - PointsDebits
  
  If Amount >= 1000 Then
     sql = "Update member Set DollarsCredits = DollarsCredits + '" & Amount & "' * '" & Value & "', PointsDebits = PointsDebits + '" & Amount & "', Points_Total = '" & Amount & "' Where UserName = '" & UserName & "'"
     Conn.Execute sql
  End If
  
  rs.MoveNext
  Wend
  rs.Close
  
  rs.Open "Select * From member Where Active = True And Points_Total <> 0",Conn
  While Not rs.EOF
  Email = rs ("Email")
  UserName = rs ("UserName")
  Points_Total = rs ("Points_Total")
  rs.Close
  rs.Open "Update member Set Points_Total = 0 Where UserName = '" & UserName & "'",Conn
  rs.Open "Insert Into credits(Email, UserName, CreditsType, CreditsAmount, CreditsDate, CreditsMemo, FinishDate, CreditsStatus) values('" & Email & "', '" & UserName & "', 'Dollars', '" & Points_Total & "' * '" & Value & "', Date(), '现金从点数兑换', Date(), True)",Conn
  rs.Open "Insert Into debits(Email, UserName, DebitsType, DebitsAmount, DebitsFee, DebitsDate, DebitsMemo, FinishDate, DebitsStatus) values('" & Email & "', '" & UserName & "', 'Points', '" & Points_Total & "', 0, Date(), '点数兑换成现金', Date(), True)",Conn
  rs.Open "Select * From member Where Active = True And Points_Total <> 0",Conn
  Wend
  rs.Close
  Set rs = nothing
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "点数兑换现金成功。每点价值是：" & Value & " 元。"
  Response.Redirect "success.asp"
  Response.End
%>