adminuserdata.asp

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

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

%>
<%
 nianji=request("nianji")
    banji=request("banji")
    mykey=request("mykey")
     fanwei=request("fanwei")

id=request("selAnnounce")
 
id=split(id,",")
i=ubound(id)
 
for j=0 to i

    set rs1=server.createobject("adodb.recordset")
  sql1="select * from tbuser  where userid="& cint(id(j))
  rs1.open sql1,conn,3,2
 
 if not  rs1.eof then
  username=rs1("username")
 end if
    set rs2=server.createobject("adodb.recordset")
  sql2="select * from tbistest  where username='"&username&"'"
  rs2.open sql2,conn,3,2

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

  do while not rs3.eof  
  rs3.delete
  rs3.update
  rs3.movenext
  loop
  
  
    set rs7=server.createobject("adodb.recordset")
  sql7="select * from userdata  where username='"&username&"'"
    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
	 
next
 
 
response.redirect "adminuserclear.asp?fanwei="&fanwei&"&nianji="&nianji&"&banji="&banji&"&mykey="&mykey&"&success=清 除 成 功！"
 
 	%>