⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 adminbanjipowerdel.asp

📁 该系统测试用户信息主要由数据库直接输入
💻 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

  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 "adminbanjipowerdel1.asp?id="&id1
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -