p2schk_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")
  
  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
  
  sql = "Update memberp2s Set P2SType = '" & P2SType & "', P2SJiFen = '" & P2SJiFen & "', P2SMemo = '" & P2SMemo & "', Status = 'ReCheck' Where UserName = '" & UserName & "' And P2SID = " & P2SID & " And CStr (P2SDate) = '" & P2SDate & "'"
  
  rs.Open sql,Conn 
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "审核提交成功，等待复核。"
  Response.Redirect "success.asp"
  Response.End
%>