adminsubjectdel.asp

可在线管理科目

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

%>


<%
dim i
dim j
id=request("id")
'response.write id
id=split(id,",")
i=ubound(id)
'response.write i
for j=0 to i
  sql="select * from  tbkc where kcid="& cint(id(j))
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  
 
  
sqldel1="select  userdata.* from userdata,tbtk  where userdata.tmid=tbtk.tmid and tbtk.kcid="&cint(id(j))
set rsdel1=server.createobject("adodb.recordset")
rsdel1.open sqldel1,conn,3,2

do while  not rsdel1.eof 
    
    if rsdel1("isread")=1 then
        sqldel2="SELECT  *  from userdataread  where    tmid="&rsdel1("tmid")&"   "
		set rsdel2=server.createobject("adodb.recordset")
		rsdel2.open sqldel2,conn,3,2
		
		do while  not rsdel2.eof 
             rsdel2.delete
             rsdel2.update
             rsdel2.movenext
        loop
		
    end if
 
    rsdel1.delete
    rsdel1.update

rsdel1.movenext

loop


sqldel11="select  * from tbtk  where  kcid="&cint(id(j))
set rsdel11=server.createobject("adodb.recordset")
rsdel11.open sqldel11,conn,3,2

do while  not rsdel11.eof 
    
    if rsdel11("isread")=1 then
        sqldel12="SELECT  *  from tbread  where    tmid="&rsdel11("tmid")&"  "
		set rsdel12=server.createobject("adodb.recordset")
		rsdel12.open sqldel12,conn,3,2
		
		do while  not rsdel12.eof 
             rsdel12.delete
             rsdel12.update
             rsdel12.movenext
        loop
		
    end if
    
		
    rsdel11.delete
    rsdel11.update

rsdel11.movenext

loop
  
 
    
     sqldel13="SELECT  *  from tbselectpaper  where kcid="& cint(id(j))
     	set rsdel13=server.createobject("adodb.recordset")
		rsdel13.open sqldel13,conn,3,2
		
		do while  not rsdel13.eof 
             rsdel13.delete
             rsdel13.update
             rsdel13.movenext
        loop

    
  

  
  
    sql2="select  * from tbscore  where kcid="& cint(id(j))
  set rs2=server.createobject("adodb.recordset")
  rs2.open sql2,conn,3,2
    do while not rs2.eof
  rs2.delete
  rs2.update
  rs2.movenext
  loop
  
  
    sql3="select  * from tbistest  where kcid="& cint(id(j))
  set rs3=server.createobject("adodb.recordset")
  rs3.open sql3,conn,3,2
  do while not rs3.eof
  rs3.delete
  rs3.update
  rs3.movenext
  loop

  
   sql4="select  * from tbchapter  where kcid="& cint(id(j))
  set rs4=server.createobject("adodb.recordset")
  rs4.open sql4,conn,3,2
  do while not rs4.eof
  rs4.delete
  rs4.update
  rs4.movenext
  loop

     sql5="select  * from tbkcconfig  where kcid="& cint(id(j))
  set rs5=server.createobject("adodb.recordset")
  rs5.open sql5,conn,3,2
  
  do while not rs5.eof
  rs5.delete
  rs5.update
  rs5.movenext
  loop


'-----------------
 
  
      sql61="select  * from tbadmin  order by adminid "
  set rs61=server.createobject("adodb.recordset")
  rs61.open sql61,conn,3,2
  do while not rs61.eof
  
  power=rs61("power")
number=cint(id(j))
  
  if instr(power,",")>0 then
   	 powerid=split(power)
   	    
   	 back=""
     for k = 0 to ubound(powerid)
		power1=clng(trim(powerid(k)))
		
		if power1 <> number then 
		 back=back&", "&power1 
 
		end if 
		
		
	 next
	 
	 returnno=mid(back,3,len(back))
  else
   if  cint(power)=number then
    returnno=-2
    else
    returnno=power 
   end if
   
  end if
  
   rs61("power")=returnno
  
   rs61.update
  rs61.movenext
  loop
  
 
  
  '-----------------

'-----------------
  sql8="select  * from tbpaper  where kcid="& cint(id(j))
  set rs8=server.createobject("adodb.recordset")
  rs8.open sql8,conn,3,2
  
  do while not rs8.eof
  
      sql6="select  * from tbpower  order by id "
  set rs6=server.createobject("adodb.recordset")
  rs6.open sql6,conn,3,2
  do while not rs6.eof
  
  power=rs6("power")
number=rs8("paperno")
  
  if instr(power,",")>0 then
   	 powerid=split(power)
   	    
   	 back=""
     for k = 0 to ubound(powerid)
		power1=clng(trim(powerid(k)))
		
		if power1 <> number then 
		 back=back&", "&power1 
 
		end if 
		
		
	 next
	 
	 returnno=mid(back,3,len(back))
  else
   if  cint(power)=number then
    returnno=0
    else
    returnno=power 
   end if
   
  end if
  
   rs6("power")=returnno
  
   rs6.update
  rs6.movenext
  loop
  
  rs8.movenext
  loop
  
  '-----------------
       sql7="select  * from tbpaper  where kcid="& cint(id(j))
  set rs7=server.createobject("adodb.recordset")
  rs7.open sql7,conn,3,2
  
  do while not rs7.eof
  rs7.delete
  rs7.update
  rs7.movenext
  loop
  
  if not rs.eof then
  rs.delete
  rs.update
  rs.close
  end if
next
response.redirect "adminsubject.asp"
%>