<%page =int(Request("page"))
id=request("id")
if jb<>"admin" then response.redirect "tb_dlxx.asp"
xm=request("xm")
yhm=request("yhm")
jb=request("jb")
bz=request("bz")
wz=request("wz")
cx=request("cx")
cz=request("cz")
dz=request("dz")
qx=request("qx1")
if id<>"" and dz="bz" then
if instr(id,",") > 0 then fid = left(id,len(id)-1)
fid = replace(fid,",","' or yhm='")
fid = " where yhm ='" + fid +"'"
exec="update yrwl_tb_admin set jb='" + bz + "'" + fid
conn.execute exec
conn.close
response.redirect "tb_gl.asp?cz="&cz&"&page="+cstr(page)
end if
if qx<>"" and cz="qx" and id<>"" then
if instr(id,",") > 0 then fid = left(id,len(id)-1)
fid = replace(fid,",","' or yhm='")
fid = " where yhm ='" + fid +"'"
exec="update yrwl_tb_admin set qx='"&qx&"'" + fid
conn.execute exec
conn.close
response.redirect "tb_gl.asp?cz="&cz&"&page="+cstr(page)
end if
if id<>"" and dz="sc" then
if instr(id,",") > 0 then fid = left(id,len(id)-1)
fid = replace(fid,",","' or yhm='")
fid = " where yhm ='" + fid +"'"
exec="delete from yrwl_tb_admin "+fid
conn.execute exec
''exec="delete from yrwl_tb_lt "+fid
''conn.execute exec
conn.close
response.redirect "tb_gl.asp?cz="&cz&"&page="+cstr(page)
end if
set rs=server.createobject("adodb.recordset")
if cz = "gly" then sqltj = " and jb<>'0'"
if cx <> "" then sqltj = sqltj & " and yhm like '%"&cx&"%'"
exec="select id,yhm,sj,jb from yrwl_tb_admin where 1=1 "&sqltj&" order by id desc"
rs.open exec,conn,3,1
rs.PageSize = 25
If page < 1 Then page = 1
If page > rs.PageCount Then page = rs.PageCount
if not rs.eof then rs.AbsolutePage =page%>
序号
用户名
级别
登陆信息
注册时间
<%for j=1 to rs.pagesize
if rs.eof then exit for
jb1 = rs("jb")
id = rs("id")
sj = rs("sj")
if jb1 = "0" then zjb="普通"
if jb1 <> "0" and jb1 <> "admin" then zjb = "版主"
if jb1 = "admin" then zjb="管理员"
yhm = rs("yhm")%>