ag_stat.asp

来自「此源码的会员,代理,后台功能齐全,是真真正正包含数据库(在matali文件夹里)」· ASP 代码 · 共 53 行

<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
    Response.Write ("<script Language=Javascript>window.open('index.asp','_top');</script>")
	Response.End
End If
If Session("SK2F")="" Then
    Response.Write ("<script Language=Javascript>window.open('index.asp','_top');</script>")
	Response.End
End If

If Not Isnumeric(Request("P_AgentID")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  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"))

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.Recordset")
  Set Rs6=Conn.Execute("update m_agent set Stat="&Stat&" Where ID="&P_AgentID)
if stat=1 then
  set Count_rs=server.createobject("adodb.recordset")
   sql="Select Login_Name from m_agent where ID='"&P_AgentID&"'"
   Count_rs.open sql,conn,1,1
  do  while not Count_rs.eof
  Set Rs6=Conn.Execute("update m_member set Stat="&Stat&" Where manager='"&Count_rs("Login_Name")&"'")
  Count_rs.movenext
  loop
end if
  Set Rs6=Nothing
 if  request("stat")=1 then
 stat=0
 else
 stat=1
 end if
Response.Redirect "index_agent.asp?manager="&request("manager")&"&K1="&stat&""
%>