admindatabasedel.asp

来自「该系统测试用户信息主要由数据库直接输入」· ASP 代码 · 共 93 行

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

%>
<%

id=request("selAnnounce")

subjectview=request("subjectview")
typeadd=request("typeadd")

id=split(id,",")
i=ubound(id)
 
for j=0 to i
 
 
 sqldel1="select   * from userdata  where  tmid="& 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")&"   order by  readid "
		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 tmid="& 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
   
  
 
next

 		 
response.redirect "admindatabase.asp?success=删 除 成 功！&subjectview="&subjectview&"&typeadd="&typeadd




%>