ag_stat.asp

来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 56 行

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If

If Not Isnumeric(Request("stat")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If

If Request("stat")<0 Or Request("stat")>1 Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If

Dim P_AgentID,stat
  P_AgentID=cLng(Request("P_AgentID"))
  stat=cInt(Request("stat"))

If request("AgentID")>0 Then
  Set Rs6=Conn.Execute("update m_agent set Stat="&Stat&" Where ID="&request("AgentID"))
  Set Rs6=Conn.Execute("update m_member set Stat="&Stat&" Where manager='"&request("Agentname")&"'")
  Set Rs6=Nothing
  Response.Write ("<script language=javascript>location.href='index_agent.asp'</script>")
  Response.End
end if

If request("PID")>0 Then
  Set Rs6=Conn.Execute("update m_agent set Stat="&Stat&" Where ID="&request("PID"))
  Set Rs6=Conn.Execute("update m_agent set Stat="&Stat&" Where P_AgentID="&request("PID"))
  Set Rs6=Conn.Execute("update m_member set Stat="&Stat&" Where manager in (select login_name from m_agent where P_AgentID="&request("PID")&")")
  Set Rs6=Nothing
  Response.Write ("<script language=javascript>location.href='index_ag.asp'</script>")
  Response.End
End If

If request("GID")>0 Then
  Set Rs6=Conn.Execute("update m_agent set Stat="&Stat&" Where ID="&request("GID"))
  Set Rs6=Conn.Execute("update m_agent set Stat="&Stat&" Where P_AgentID="&request("GID"))
  Set Rs6=Conn.Execute("select id from m_agent Where P_AgentID="&request("GID"))
  do while not Rs6.eof
  	Set Rs7=Conn.Execute("update m_agent set Stat="&Stat&" Where P_AgentID="&Rs6("ID"))
  	Set Rs7=Conn.Execute("update m_member set Stat="&Stat&" Where manager in (select login_name from m_agent where P_AgentID="&Rs6("ID")&")")
  	Rs6.movenext
  loop
  Set Rs6=Nothing
  Set Rs7=Nothing
  Response.Write ("<script language=javascript>location.href='index_guan.asp'</script>")
  Response.End
End If
%>