p2srechk_do.asp

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

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

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

<%
  UserName = Request ("UserName") 
  P2SID = Request ("P2SID") 
  P2SType = Request ("P2SType")
  P2SCredits = Request ("P2SCredits")
  P2SDate = Request ("P2SDate")
  P2SMemo = Request ("P2SMemo")
  P2SJiFen = Request ("P2SJiFen")
  
  rs.Open "Select * From memberp2s Where UserName = '" & UserName & "' And P2SID = " & P2SID & " And CStr (P2SDate) = '" & P2SDate & "' And Status = 'ReCheck'",Conn
  If rs.Eof Then
     rs.Close
     Set rs = nothing
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "该任务不存在，可能已复核。"
     Response.Redirect "error.asp"
     Response.End
  End If
  rs.Close
  
  If P2SJiFen = "" Then
     Set rs = nothing
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "必须输入积分：-3到-1分，作弊；0分，不通过；1-2分，需要改进；3分，通过；4-5分，优秀。"
     Response.Redirect "error.asp"
     Response.End
  End If
  
  P2SJiFen2 = CSng(P2SJiFen)
  
  If P2SJiFen2 > 5 Or P2SJiFen2 < -3 Then
     Set rs = nothing
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "积分不能超过5和-3：-3到-1分，作弊；0分，不通过；1-2分，需要改进；3分，通过；4-5分，优秀。"
     Response.Redirect "error.asp"
     Response.End
  End If

  If P2SJiFen2 >= 3 Then
     P2SJiFen2 = 3
  End If

  If P2SJiFen2 = 0 Then
     Status = "Failed"
  Else If P2SJiFen2 < 0 Then
        Status = "Cheated"
     Else
        Status = "Pass"
     End If
  End If
  
  P2SCredits2 = CSng(P2SCredits) * P2SJiFen2 / 3
  
  sql = "Update memberp2s Set P2SType = '" & P2SType & "', P2SCredits = '" & P2SCredits2 & "', P2SJiFen = '" & P2SJiFen & "', P2SMemo = '" & P2SMemo & "', Status = '" & Status & "' Where UserName = '" & UserName & "' And P2SID = " & P2SID & " And CStr (P2SDate) = '" & P2SDate & "'"  
  rs.Open sql,Conn
  
  If P2SType = "Dollars" Then
     rs.Open "Update member Set DollarsCredits = DollarsCredits + '" & P2SCredits2 & "', TotalP2S = TotalP2S + 1, TotalP2SJiFen = TotalP2SJiFen + '" & P2SJiFen & "' Where UserName = '" & UserName & "'",Conn
  Else
     rs.Open "Update member Set PointsCredits = PointsCredits + '" & P2SCredits2 & "', TotalP2S = TotalP2S + 1, TotalP2SJiFen = TotalP2SJiFen + '" & P2SJiFen & "' Where UserName = '" & UserName & "'",Conn
  End If
     
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "复核提交成功。"
  Response.Redirect "success.asp"
  Response.End
%>