<!--#include file="conn.asp"-->
<%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if

%>


<%
dim i
dim j
id1=request("id")
'response.write id
id=split(id1,",")
i=ubound(id)
'response.write i
for j=0 to i

  sql1="select  * from tbpower where id="& cint(id(j))
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
  
 
  

  sql2="select  * from tbbanji  where banjiid="&rs1("banjiid")
  set rs2=server.createobject("adodb.recordset")
  rs2.open sql2,conn,3,2
  banji=rs2("banji")
  
  
    sql3="select  * from tbnianji  where nianjiid="&rs1("nianjiid")
  set rs3=server.createobject("adodb.recordset")
  rs3.open sql3,conn,3,2
  nianji=rs3("nianji")
  
      sql4="select  * from tbuser  where nianji='"&nianji&"'  and banji='"&banji&"'"
  set rs4=server.createobject("adodb.recordset")
  rs4.open sql4,conn,3,2
 
  
  do while not rs4.eof
   username=rs4("username")
  userid=rs4("userid")
  

  
        sql6="select  * from tbscore  where username='"&username&"'"
      set rs6=server.createobject("adodb.recordset")
      rs6.open sql6,conn,3,2
      
  		do while not rs6.eof
  			rs6.delete
  			rs6.update
  			rs6.movenext
  		loop
		
		      sql5="select  * from tbistest  where username='"&username&"'"
      set rs5=server.createobject("adodb.recordset")
      rs5.open sql5,conn,3,2
      
  		do while not rs5.eof
  			rs5.delete
  			rs5.update
  			rs5.movenext
  		loop
		
		
	   sql7="select  * from userdata  where username='"&username&"'"
      set rs7=server.createobject("adodb.recordset")
      rs7.open sql7,conn,3,2
      
  		do while not rs7.eof
  			rs7.delete
  			rs7.update
  			rs7.movenext
  		loop
  
  	   sql8="select  * from tbuser  where username='"&username&"'"
      set rs8=server.createobject("adodb.recordset")
      rs8.open sql8,conn,3,2
      
  		do while not rs8.eof
  			rs8.delete
  			rs8.update
  			rs8.movenext
  		loop
  
  
  rs4.movenext
  loop
  
 
next
response.redirect "adminbanjipowerdel12.asp?id="&id1
%>