p2cgroupstat3.asp

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

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

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

<%
  P2CGroup = Request ("P2CGroup")
  P2CClick = Request ("P2CClick")
  P2CLimit = Request ("P2CLimit")
  P2SLimitTotal = Request ("P2SLimitTotal")
  P2SRemain = Request ("P2SRemain")
  P2SLimit = P2SLimitTotal - P2SRemain
  re.Open "Update p2c set P2CTotalVisit = P2CTotalVisit + P2CVisit, P2CTotalClick = P2CTotalClick + P2CClick, P2CVisit = 0, P2CClick = 0, P2CLimit = '" & P2CLimit & "' where P2CGroup = '" & P2CGroup & "'",Conn
  re.Open "Update p2s set P2STotalSignup = P2STotalSignup + P2SSignup, P2SSignup = 0, P2SLimit = '" & P2SLimit & "' where GroupForP2C = '" & P2CGroup & "'",Conn
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "操作成功。今天开放注册" & P2SLimit & "个。"
  Response.Redirect "success.asp"
  Response.End
%>