ag_stat.asp

1。超强文件读写锁定

<!--#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("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 Rs6=Conn.Execute("update m_agent set Stat="&Stat&" Where P_AgentID="&P_AgentID)
  set Count_rs=server.createobject("adodb.recordset")
   sql="Select Login_Name from m_agent where P_AgentID='"&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?P_AgentID="&request("ID")&"&K1="&stat&""
%>