adminnianjidel.asp

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

<!--#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

  sql2="select * from tbnianji where nianjiid="& cint(id(j))
  set rs2=server.createobject("adodb.recordset")
  rs2.open sql2,conn,3,2
  nianji=rs2("nianji")
  response.write nianji
     
	  sql4="select  * from tbuser  where  nianji='"&nianji&"'"
  set rs4=server.createobject("adodb.recordset")
  rs4.open sql4,conn,3,2
 
  
  do while not rs4.eof
   username=rs4("username")
  userid=rs4("userid")
  
      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
  
        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
		
	   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
  		
  		      set rs9=server.createobject("adodb.recordset")
  sql9="select * from userdataread  where username='"&username&"'"
    rs9.open sql9,conn,3,2

  do while not rs9.eof  
  rs9.delete
  rs9.update
  rs9.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  
  
  sqlp="select  * from tbpower where nianjiid="& cint(id(j))
  set rsp=server.createobject("adodb.recordset")
  rsp.open sqlp,conn,3,2
  
  do while not rsp.eof
  rsp.delete
  rsp.update
  rsp.movenext
  loop  
  
next
 

 response.redirect "adminnianjidel1.asp?id="&id1
 
%>