credits_do.asp

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

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

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

<%
  UserName = Request ("UserName")
  Email = Request ("Email")
  CreditsType = Request ("CreditsType")
  CreditsAmount = Request ("CreditsAmount")
  CreditsDate = Request ("CreditsDate")
  CreditsMemo = Request ("CreditsMemo")
  If CreditsAmount = "" then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入奖励数额才能增加奖励。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If CreditsDate = "" then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入奖励日期才能增加奖励。"
     Response.Redirect "error.asp"
     Response.End
  End if
  If CreditsMemo = "" then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入奖励理由备注才能增加奖励。"
     Response.Redirect "error.asp"
     Response.End
  End if
  rs.Open "Insert Into credits(Email, UserName, CreditsType, CreditsAmount, CreditsDate, CreditsMemo) values('" & Email & "', '" & UserName & "', '" & CreditsType & "', '" & CreditsAmount & "', '" & CreditsDate & "', '" & CreditsMemo & "')",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "奖励增加成功。等待审核。"
  Response.Redirect "success.asp"
  Response.End
%>