creditschk_do.asp

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

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

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

<%
  ID = Request ("ID")
  UserName = Request ("UserName")
  CreditsType = Request ("CreditsType")
  CreditsAmount = Request ("CreditsAmount")
  CreditsMemo = Request ("CreditsMemo")
  CreditsStatus = Request ("CreditsStatus")  
  If CreditsStatus <> "" Then
     re.Open "Update credits Set CreditsType = '" & CreditsType & "', CreditsAmount = '" & CreditsAmount & "', CreditsMemo = '" & CreditsMemo & "', FinishDate = Date(), CreditsStatus = True Where ID = " & ID & "",Conn
     If CreditsType = "Dollars" Then
        rs.Open "Update member Set DollarsCredits = DollarsCredits + '" & CreditsAmount & "' Where UserName = '" & UserName & "'",Conn
     Else
        rs.Open "Update member Set PointsCredits = PointsCredits + '" & CreditsAmount & "' Where UserName = '" & UserName & "'",Conn
     End If
  End If
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "奖励增加成功。"
  Response.Redirect "success.asp"
  Response.End
%>