p2scontestend.asp

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

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

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

<%
  Server.ScriptTimeout = 999
  rs.Open "Update setup Set P2SContest = False",Conn
  rs.Open "Select * From member",Conn
  While Not rs.EOF
  UserName = rs ("UserName")
  TotalP2S = rs ("TotalP2S")
  P2S_Begin = rs ("P2S_Begin")
  TotalP2SJiFen = rs ("TotalP2SJiFen")
  P2SJiFen_Begin = rs ("P2SJiFen_Begin")
  sql = "Update member Set P2S_End = '" & TotalP2S & "' - '" & P2S_Begin & "', P2SJiFen_End = '" & TotalP2SJiFen & "' - '" & P2SJiFen_Begin & "' Where UserName = '" & UserName & "'"
  Conn.Execute sql
  rs.MoveNext
  Wend
  rs.Close
  Set rs = nothing
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "注册竞赛现在结束。"
  Response.Redirect "success.asp"
  Response.End
%>