debits_do.asp

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

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

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

<%
  UserName = Request ("UserName")
  Email = Request ("Email")
  DebitsType = Request ("DebitsType")
  DebitsAmount = Request ("DebitsAmount")
  DebitsDate = Request ("DebitsDate")
  DebitsMemo = Request ("DebitsMemo")
  If DebitsAmount = "" then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入扣除数额才能支付扣除。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If DebitsDate = "" then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入扣除时间才能支付扣除。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If DebitsMemo = "" then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入扣除理由备注才能支付扣除。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If DebitsType = "Dollars" Then
     rs.Open "Update member Set DollarsDebits = DollarsDebits + '" & DebitsAmount & "' Where UserName = '" & UserName & "'",Conn
  Else
     rs.Open "Update member Set PointsDebits = PointsDebits + '" & DebitsAmount & "' Where UserName = '" & UserName & "'",Conn
  End If
  rs.Open "Insert Into debits(Email, UserName, DebitsType, DebitsAmount, DebitsDate, DebitsMemo) values('" & Email & "', '" & UserName & "', '" & DebitsType & "', '" & DebitsAmount & "', '" & DebitsDate & "', '" & DebitsMemo & "')",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "支付扣除成功。"
  Response.Redirect "success.asp"
  Response.End
%>