adminpaperdel.asp

该系统测试用户信息主要由数据库直接输入

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

%>


<%
kcid=request("kcid")

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  tbpaper  where paperno="& cint(id(j))
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  
 
      sql1="select  * from userdata  where paperno="& cint(id(j))
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
    do while not rs1.eof
  rs1.delete
  rs1.update
  rs1.movenext
  loop
  
    sql2="select  * from tbscore  where paperno="& 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
  
     sql7="select  * from userdataread  where paperno="& 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
  
       sql8="select  * from tbselectpaper  where paperno="& cint(id(j))
  set rs8=server.createobject("adodb.recordset")
  rs8.open sql8,conn,3,2
    do while not rs8.eof
  rs8.delete
  rs8.update
  rs8.movenext
  loop

     sql5="select  * from tbkcconfig  where paperno="& 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

      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=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=0
    else
    returnno=power 
   end if
   
  end if
  
   rs6("power")=returnno
  
   rs6.update
  rs6.movenext
  loop
  
 
  
  if not rs.eof then
  rs.delete
  rs.update
  rs.close
  end if
next
response.redirect "adminpaper.asp?kcid="&kcid
 
%>