ag_del.asp

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

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
  Login_name=Request("P_AgentID")

  Dim Rs6
Set Rs6=Conn.Execute("Select Top 1 ID,P_AgentID,Login_Name from m_agent where Login_name='"&Login_name&"'")
if not rs6.eof then
Show2=Rs6.GetRows(1)
end if
set Count_rs=server.createobject("adodb.recordset")
sql="Select  Login_Name from m_agent where P_AgentID='"&Show2(0,0)&"'"
Count_rs.open sql,conn,1,1
do while not Count_rs.eof
set Count_rs2=server.createobject("adodb.recordset")
sql="Select  Login_Name from m_agent where P_AgentID='"&Show2(0,0)&"'"
Count_rs2.open sql,conn,1,1
do while not Count_rs.eof

Count_rs2.movenext
loop
Count_rs.movenext
loop
Set Rs6=Conn.Execute("Select  Login_Name from m_member where manager='"&Show3(0,0)&"'")
if not rs6.eof then
Show4=Rs6.GetRows(-1)
end if
set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID from m_chilp where sort='特别号' and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
for i=0 to ubound(Show4)
Set Rs6=Conn.Execute("Delete From m_member Where manager='"&Show3(0,i)&"'")
Set Rs6=Conn.Execute("Delete From m_quota Where accounts='"&Show4(0,i)&"'")
Set Rs6=Conn.Execute("Delete From m_reportuser Where manager='"&Show3(0,i)&"'")
next
for i=0 to ubound(show3,0)
Set Rs6=Conn.Execute("Delete From m_agent Where P_AgentID='"&Show2(0,i)&"'")
Set Rs6=Conn.Execute("Delete From m_quota Where accounts='"&Show2(0,i)&"'")
Set Rs6=Conn.Execute("Delete From m_reportuser Where manager='"&Show2(0,i)&"'")
next
Set Rs6=Conn.Execute("Delete From m_agent Where Login_name='"&Login_name&"'")
Set Rs6=Conn.Execute("Delete From m_quota Where accounts='"&Login_name&"'")
Set Rs6=Conn.Execute("Delete From m_reportuser Where manager='"&Login_name&"'")
 
   Set Rs6=Nothing
   Response.Write ("<script language=javascript>alert('"&Login_name&"及其下的代理商或会员已被删除！');location.href='index_agent.asp'</script>")
   Response.End
%>