📄 usersh.asp
字号:
<!--#include file="../superno.asp"-->
<!--#include file="filetou.asp"-->
<!--#include file="../FUN.asp"-->
<%
b1=request.form("b1")
b2=request.form("b2")
b3=request.form("b3")
b4=request.form("b4")
b5=request.form("b5")
b6=request.form("b6")
d1=request.form("d1")
b=b1&b2&b3&b4&b5&b6
b=replace(b," ","")
if b<>"" then
c1=request.form("c1")
if c1="" then
set conn=nothing
response.redirect "../ever.asp?lr=请你至少选择一条记录"
end if
tj=replace(c1," ","")
tj=replace(tj,","," or id=")
select case b
case "执行删除"
sql ="delete from USER1 where id="&TJ
CASE "通过审核"
sql ="UPDATE USER1 SET 审核状态='已',审核人='root',审核时间=#"&date()&"# where id="&TJ
END SELECT
conn.execute sql,0,-1
set conn=nothing
response.redirect "usersh.asp"
end if
sql="SELECT * FROM USER1 WHERE id <>0 and 审核状态='未' order by 身份,所属网点,USER"
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 1
sql="select USER from USER1 where 身份='管理员' or 身份='系统管理员' "
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.Open sql,conn,1,1
DO WHILE NOT RS1.EOF
INILR=INILR& " <option value='"&rs1("user")&"'>"&RS1("USER")&"</option>"
RS1.MOVENEXT
LOOP
RS1.CLOSE
CALL SAVETEXT("GLUSER.HTM",INILR)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<Link Rel="STYLESHEET" Href="index.CSS" Type="text/css">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>用户列表</title>
</head>
<body bgcolor="#99CCFF">
<div align="center">
<center>
<table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bgcolor="#C0C0C0">
<tr>
<td width="100%" align="center">
<table border="0" width="100%" bgcolor="#000080" cellspacing="0">
<tr>
<td width="50%"> <font color="#FFFFFF"> 审核用户</font></td>
</center>
<td width="50%">
<a href="userlist.asp"><font color="#FFFFFF">用户列表</font></a></td>
</tr>
</table>
<center><form method="POST" action="?id=" ><%
IF NOT RS.EOF THEN
pagen=20 '每页显示数量
pagesn=request("pagesn")
if pagesn<=0 or pagesn="" then pagesn=1
rs.pagesize=pagen
pagezs=rs.pagecount
IF cint(PAGESN)>pagezs THEN pagesn=PAGEZS
zs=rs.recordcount
page=(pagesn-1)*pagen
rs.move page,1
Response.Write "<TABLE WIDTH='100%'> <TR><TD>一共有用户"&ZS&"人,分"&PAGEZS&"页,当前第"&PAGESN&"页</TD>"
Response.Write "<TD>跳转到："
FOR I=1 TO PAGEZS
Response.Write "[<A HREF='?PAGESN="&I&"'>"&I&"</A>] "
NEXT
Response.Write "</TD></TR></TABLE>"
END IF
%>
<table border="1" width="99%" bordercolorlight="#356286" cellspacing="0" cellpadding="2" bordercolordark="#D5D5D5" bgcolor="#D5D5D5">
<tr>
<td align="center" bgcolor="#B8C2D3">用户名</td>
<td align="center" bgcolor="#B8C2D3">IP</td>
<td align="center" bgcolor="#B8C2D3">注册日期</td>
<td align="center" bgcolor="#B8C2D3">浏览级别</td>
<td align="center" bgcolor="#B8C2D3">身份</td>
<td align="center" bgcolor="#B8C2D3">登录次数</td>
<td align="center" bgcolor="#B8C2D3">选择</td>
</tr>
<%
if rs.eof then
Response.Write " <tr>"
Response.Write " <td align='center' colspan='7'>暂无记录</td>"
Response.Write " </tr>"
else
for i=1 to pagen
Response.Write " <tr>"
Response.Write " <td align='center'><a href='userxxlr.asp?name="&rs("user")&"'>"&RS("USER")&"</a></td>"
Response.Write " <td align='center'>"&RS("IP")&" </td>"
Response.Write " <td align='center'>"&FORMATDATETIME(RS("注册日期"),1)&"</td>"
Response.Write " <td align='center'>"&RS("浏览级别")&"</td>"
Response.Write " <td align='center'>"&RS("身份")&"</td>"
Response.Write " <td align='center'>"&RS("登录次数")&"</td>"
Response.Write " <td align='center'><input type='checkbox' name='C1' value='"&RS("ID")&"'></td>"
Response.Write " </tr>"
rs.movenext
if rs.eof then exit for
next
end if
%> <tr>
<td align="center" colspan="7"><input type="submit" value="执行删除" name="B1">
<input type="submit" value="通过审核" name="B4"></td>
</tr>
</table></form>
</td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -