?? adminuseraudit.asp
字號:
<!--#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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -