📄 user_manage.asp
字号:
<%@language=vbscript codepage=936 %>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="background.asp"-->
<%
if session("admin")<>1 then response.Redirect "default.asp"
if (request.Form<>"") and (request.Form("search")=0) then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM register"
rs.open SQL,Conn,3,3
select case request("act")
case 1
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
sql= "update register set level1='网友' where id="&rs("id")
conn.execute(sql)
end if
rs.movenext
loop
info="成功设成网友！"
case 2
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
sql= "update register set level1='嘉宾' where id="&rs("id")
conn.execute(sql)
end if
rs.movenext
loop
info="成功设成嘉宾！"
case 3
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
sql= "update register set level1='管理员' where id="&rs("id")
conn.execute(sql)
end if
rs.movenext
loop
info="成功设成管理员！"
case 4
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
sql="delete from register where id="&rs("id")
conn.execute(sql)
end if
rs.movenext
loop
info="用户删除成功！"
case 5
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
sql= "update register set level1='版主' where id="&rs("id")
conn.execute(sql)
end if
rs.movenext
loop
info="成功设成版主！"
case 6
Set rs1=Server.CreateObject("ADODB.RecordSet")
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
sql="SELECT username FROM register where id="&rs("id")
rs1.open SQL,Conn,1,1
username=rs1("username")
rs1.close
sql="SELECT count(*) as usercount FROM guest where username='"&username&"'"
rs1.open SQL,Conn,1,1
usercount=rs1("usercount")
rs1.close
sql="SELECT count(*) as usercount FROM reply where replyname='"&username&"'"
rs1.open SQL,Conn,1,1
usercount=usercount+rs1("usercount")
rs1.close
sql= "update register set count1="&usercount&" where id="&rs("id")
conn.execute(sql)
end if
rs.movenext
loop
info="发言数重计完成！"
end select
response.Redirect "post_ok.asp?info="&info
end if
Set rs=server.createobject("ADODB.RECORDSET")
if request.Form("text")<>"" then
sql="SELECT * FROM register where username='"&request.Form("text")&"' order by count1 desc,id"
else
sql="SELECT * FROM register order by count1 desc,id"
end if
rs.open sql,conn,3,3
dim maxperpage,url,PageNo
url="user_manage.asp"
Set rs1=server.createobject("ADODB.RECORDSET")
rs1.open "Select * From option1",Conn,3,3
rs.pagesize=rs1("row2")
maxperpage=rs.pagesize
rs1.close
PageNo=REQUEST("PageNo")
if PageNo="" or PageNo=0 then PageNo=1
RS.AbsolutePage=PageNo
TSum=rs.pagecount
RowCount=rs.PageSize
PageNo=PageNo+1
PageNo=PageNo-1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户管理</title>
<link href="1.css" rel="stylesheet" type="text/css">
<script>
function ow(obj) {
URL=obj.href;
window.open(URL,'Preview','scrollbars=1,menubar=1,status=1,width=750,height=400,left=50,top=110');
return false;
}
</script>
</head>
<body>
<form action="" method="post" name="form" id="form">
<div align="center">
<table width="100%" cellspacing="1" class="tablebg<%=skin%>b" height="48">
<tr class="tablebg<%=skin%>a">
<td height="25" align="center"><div align="center"><b>用户名</b></div></td>
<td width="228" align="center" height="25"><b>电子邮件</b></td>
<td width="258" align="center" height="25"><b>个人主页</b></td>
<td width="121" align="center" height="25"><strong>QQ</strong></td>
<td width="98" align="center" height="25"><b>昵称</b></td>
<td width="55" align="center" height="25"><b>发言数</b></td>
<td width="44" align="center" height="25"><strong>修改</strong></td>
<td width="42" align=center height="25"><b>操作</b> </td>
</tr>
<% DO WHILE NOT rs.EOF AND RowCount>0%>
<tr class="tablebg<%=skin%>d">
<td width="114" height="20">
<div align="center"><font color=#000000><%=rs("username")%></font></div></td>
<td align="center"><font color=#000000><a href="mailto:<%=rs("mail")%>"><%=rs("mail")%></a></font></td>
<td align="center"><font color=#000000>
<a href="<%=rs("homepage")%>" target="_blank"><%=rs("homepage")%></a>
</font></td>
<td align="center"><font color=#000000><a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("qq")%>" target="_blank"><%=rs("qq")%></a></font></td>
<td align="center"><font color=#000000><%=rs("level1")%></font></td>
<td align="center"><font color=#000000><%=rs("count1")%></font></td>
<td align="center"><a href="user_manage_edit.asp?id=<%=rs("id")%>">√</a></td>
<td align="center" ><input name="<%=rs("id")%>" type="checkbox" id="<%=rs("id")%>3" value="on"></td>
</tr>
<%
rs.MoveNext
RowCount = RowCount - 1
Loop%>
</table>
</div>
<TABLE width=100% height="5" border=0 align=center cellPadding=3 cellSpacing=0>
<TBODY>
<TR>
<TD width="29%" style="LETTER-SPACING: 1px"><div align="left"><a href=### onClick=checkAll()>
<input name="search" type="hidden" id="search" value="0">
全选</a> <a href=### onClick=checkNone() >全不选</a>
<select name=act class=input2>
<option value="1">设为网友</option>
<option value="2">设为嘉宾</option>
<option value="5">设为版主</option>
<option value="3">设为管理员</option>
<option value="4">删除该用户</option>
<option value="6" selected>重计发言数</option>
</select>
<input name="goto" type=submit class=input2 id="goto2" value="确定">
</div></TD>
<TD><div align="right">
<% call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"名注册用户") %>
</div></TD>
</TR>
</TBODY>
</TABLE>
</form>
<div align="center">
<table border=0 width=100% cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<form name="form" method="post" action="">
<div align="center">
<%
set guest=nothing
set rs = nothing%><a target="_blank" onclick="return ow(this)" href="guest_register.asp">注册新成员</a>
<IMG src="images/search.gif" width="16" height="16" align=absMiddle>搜索用户名：
<input
class=input1 size=25 name=text>
<input name="submit" type=submit class=input2 value=" 搜 索 ">
<input name="search" type="hidden" id="search" value="1">
</div>
</form> </td>
</tr>
<tr>
<td align=center>
<!--#INCLUDE FILE="bottom.asp"-->
</tr></td>
</table>
</div>
</body>
</html>
<script language="JavaScript">
function checkAll()
{
var objID;
objID=document.forms[0].elements;
for (var i=0 ;i<objID.length-2;i++)
{
objID[i].checked=true;
}
}
function checkNone()
{
var objID;
objID=document.forms[0].elements;
for (var i=0 ;i<objID.length-2;i++)
{
objID[i].checked=false;
}
}
function checkRev()
{
var objID;
objID=document.forms[0].elements;
for (var i=0 ;i<objID.length-2;i++)
{
if (objID[i].checked==true)
objID[i].checked=false;
else
objID[i].checked=true;
}
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -