adminuseraudit.asp

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

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

%>
<%
flag=request("flag")
     nianji=request("nianji")
    banji=request("banji")
    mykey=request("mykey")
    fanwei=request("fanwei")
    page=request("page")
    
if flag=1 then

id=request("selok")
 
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
 

  do while not rs1.eof  
 
 rs1("isopen")=1
  rs1.update
  rs1.movenext
  loop
   rs1.close
 
next

if mykey="--关键字--" then
response.redirect "adminuser.asp?page="&page&"&fanwei="&fanwei&"&nianji="&nianji&"&banji="&banji&"&mykey="&mykey&"&success=审 批 成 功！"
else
response.redirect "adminuser1.asp?page="&page&"&fanwei="&fanwei&"&nianji="&nianji&"&banji="&banji&"&mykey="&mykey&"&success=审 批 成 功！"
end if


else
id=request("selno")
 
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
 

  do while not rs1.eof  
  

    
 rs1("isopen")=0
  rs1.update
  rs1.movenext
  loop
  
 rs1.close
next

if mykey="--关键字--" then
response.redirect "adminuser.asp?page="&page&"&fanwei="&fanwei&"&nianji="&nianji&"&banji="&banji&"&mykey="&mykey&"&success=禁 止 成 功！"
else
response.redirect "adminuser1.asp?page="&page&"&fanwei="&fanwei&"&nianji="&nianji&"&banji="&banji&"&mykey="&mykey&"&success=禁 止 成 功！"
end if

end if

  	%>