📄 adminuser.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->
<!--#include file="md5.asp" -->
<body <%=background%> >
<script language=javascript>
//定义头像
function imghead1()
{
document.form1.imgheadfy.src=document.form1.imghead.value;
document.form1.imgheadfy.width=document.form1.imgwidth.value;
document.form1.imgheadfy.height=document.form1.imgheight.value;
}
</script>
<% if session(feiyuese&"grade")<>0 then
errormsg="很抱歉，只有超级管理员才可以操作此页面"
call error(errormsg)
response.end
end if%>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<tr align="center">
<td colspan="6" <%=tColor%> class=tdc1 height=22>用户管理</td>
</tr>
<tr align="left">
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width=20% colspan="1">快速查找</td> <td colspan="5" align=left width=80% bgcolor=<%=tColor2%> class=tdc height=22>
<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;} class=bdtj3>
<option value="?">请选择查询条件</option>
<option value="?action=search&view=1" <%if request("view")=1 then%>selected<%end if%> >列出所有用户</option>
<option value="?action=search&view=2" <%if request("view")=2 then%>selected<%end if%>>发贴最多TOP100</option>
<option value="?action=search&view=3" <%if request("view")=3 then%>selected<%end if%>>发贴最少的100个用户</option>
<option value="?action=search&view=4" <%if request("view")=4 then%>selected<%end if%>>所有版主以上用户</option>
<option value="?action=search&view=6" <%if request("view")=6 then%>selected<%end if%>>等待验证的用户</option>
</select>
</td>
</tr>
</table>
<%
select case chktopic(request("action"))
case "add"
call add()
case "add1"
call add1()
case "edit"
call edit()
case "edit1"
call edit1()
case "del"
call del()
case "search"
call view1()
case "adduser"
call adduser()
case "adduser1"
call adduser1()
case else
call search()
end select
%>
<%
sub view1()
%>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<tr align="center">
<form method="POST" action="?action=del">
<td colspan="6" <%=tColor%> class=tdc1 height=22>搜索结果</td>
</tr>
<% page=request.querystring("page")
if page="" then page=1
pages = "20"
set rs=server.createobject("adodb.recordset")
select case chktopic(request("view"))
case 1
sql = "select username,email,u_id,time,lastsendtime,fen from user order by time desc"
case 2
sql = "select top 100 username,email,u_id,time,lastsendtime,fen from user order by send desc"
case 3
sql = "select top 100 username,email,u_id,time,lastsendtime,fen from user order by send"
case 4
sql="select username,email,u_id,time,lastsendtime,fen from user where int(grade)<3 order by grade desc"
case 6
sql="select username,email,u_id,time,lastsendtime,fen from user where u_yzreg=1 order by time desc"
case 5
username=chktopic(request("username"))
userchk=chktopic(request("userchk"))
topp=chktopic(request("topp"))
if username="" or topp="" then
errormsg="<li>很抱歉,用户名或者最多记录不能为空</li>"
call error(errormsg)
response.end
else
sql = "select top "&topp&" username,email,u_id,time,lastsendtime,fen from user where "
if userchk=1 then
sql = sql&"username like '"&username&"' order by time desc"
else
sql = sql&"username like '%"&username&"%' order by time desc"
end if
end if
case else
errormsg="<li>参数错误</li>"
call error(errormsg)
response.end
end select
rs.open sql,conn,1,1
if not rs.eof then
if chktopic(request("view"))="6" then
set rs1=conn.execute("select n_num from total")
r=rs1(0)
else
r=rs.RecordCount
end if
if r mod pages=0 then
maxpagecount= r \ pages
else
maxpagecount= r \ pages+1
end if
RS.MoveFirst
if int(page) > maxpagecount then page = maxpagecount
if int(page)<1 then page=1
RS.Move (page-1) * pages
rcount=0
%>
<tr align="left">
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="17%">用户名</td>
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="17%">Email</td>
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="22%">注册时间</td>
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="10%">经验值</td>
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="22%">最后发表时间</td>
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="8%">操作</td>
</tr>
<%
do while not rs.eof and rcount <int(pages)
%>
<tr align="left">
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="17%"><a href="?action=edit&u_id=<%=rs("u_id")%>"><%=rs("username")%></a></td>
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="17%"><%=rs("email")%></td>
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="22%"><%=rs("time")%></td>
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="10%"><%=rs("fen")%></td>
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="22%"><%=rs("lastsendtime")%></td>
<td bgcolor=<%=tColor2%> class=tdc height=22 align=center width="8%"> <input type="checkbox" name=username value="<%=rs("username")%>"> </td>
</tr>
<% rs.MoveNext
rcount=rcount+1
loop %>
<tr align="left">
<td colspan="5" bgcolor=<%=tColor2%> class=tdc >
<%
if maxpagecount="" then maxpagecount=1
if r="" then r=0
pagestart=page-5
pageend=page+5
if pagestart<1 then pagestart=1
if pageend>maxpagecount then pageend=maxpagecount
response.write(" [ ")
if maxpagecount > 6 then Response.Write ("<a href=?action="&request("action")&"&view="&request("view")&"&username="&username&"&userchk="&userchk&"&topp="&topp&"&page=1>1</a> ... ")
for i=pagestart to pageend
if i<>int(page) then
Response.Write (" <a href=?action="&request("action")&"&view="&request("view")&"&username="&username&"&userchk="&userchk&"&topp="&topp&"&page="&i&">" & i & "</a> ")
else
Response.Write ("<b>"&i&"</b> ")
end if
next
if maxpagecount > page +5 then Response.Write( " ... <a href=?action="&request("action")&"&view="&request("view")&"&username="&username&"&userchk="&userchk&"&topp="&topp&"&page="&maxpagecount&">"&maxpagecount&"</a>")
response.write(" ] ")
response.write("..页次:"&page&"/"&maxpagecount&"页 每页:"&pages&" 用户数:"&r&"")%>
<td bgcolor=<%=tColor2%> class=tdc > <input type="submit" onclick="{if(confirm('确定删除选定的纪录吗?')){return true;}return false;}" value="删除" name="B1" class=bdtj> </td>
</form></tr>
<%
else
%>
<tr align=center>
<td colspan="6" bgcolor=<%=tColor2%> class=tdc height=22>没有记录
</td>
</tr>
<%end if%>
</table>
<%end sub
sub search%>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<tr align="center">
<td colspan="6" <%=tColor%> class=tdc1 height=22>查询用户</td>
</tr>
<tr>
<form name="form2" method="post" action="?action=search&view=5">
<td width="30%" bgcolor=<%=tColor2%> class=tdc align="right">
用户名:
<td width="70%" bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="username" size="20" class="bdtj3"> <INPUT type=checkbox CHECKED value=1 name=userchk>用户名完整匹配 </td>
</tr>
<tr>
<td width="30%" bgcolor=<%=tColor2%> class=tdc align="right">
最多显示记录:
<td width="70%" bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="topp" size="20" class="bdtj3" value=100> </tr>
<tr>
<td width="30%" bgcolor=<%=tColor2%> class=tdc align="right">
<td width="70%" bgcolor=<%=tColor2%> class=tdc>
<input type="submit" name="Submit" value="查 找" class="bdtj">
</td> </form>
</tr>
<table>
<%end sub
sub del()
if request.form("username").count<1 then
errormsg="<li>请选择要删除的用户</li>"
call error(errormsg)
response.end
else
for i=1 to request.form("username").count
sqldel="DELETE from user where username='"&chktopic(Request.form("username")(i))&"'"
conn.Execute (sqldel)
sql="delete from pm where q_receive='"&chktopic(Request.form("username")(i))&"'"
conn.execute(sql)
next
sql="update total set n_num=n_num-"&chktopic(request.form("username").count)&""
conn.execute(sql)
succmsg=succmsg&"<li>用户已经删除</li>"
call succ(succmsg)
response.end
end if
end sub
sub edit()
sqledit="select * from user where u_id="&chktopic(Request.QueryString("u_id"))&""
set rsedit=conn.execute(sqledit)
if rsedit.eof and rsedit.bof then
errormsg=succmsg&"<li>不存在此用户，或者用户可能已经被管理员删除<li>"
call error(errormsg)
else
%>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<form method="POST" action="?action=edit1&u_id=<%=Request.QueryString("u_id")%>" name="form1"> <tr valign="baseline" >
<td nowrap <%=tColor%> class=tdc1 colspan="2" height="16" align="center">修改用户信息</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">用户名</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="text" name="username" size="16" class="tdc" value="<%=rsedit("username")%>">
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">密码</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="password" name="password" size="20" class="tdc">(若不修改密码请留空)
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">邮件</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="text" name="email" size="32" class="tdc" value="<%=rsedit("email")%>">
</td>
</tr>
<tr>
<td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="22">
出生日期</td>
<td width="82%" bgcolor=<%=tColor2%> class=tdc height="23">
<select size="1" name="cyear" class="bdtj3">
<option value="">-</option>
<%for i=1949 to 2005%>
<option value="<%=i%>" <%if not isnull(rsedit("h_birder")) and isdate(rsedit("h_birder")) then %>
<%if cint(year(rsedit("h_birder")))=cint(i) then response.write "selected"%><%end if%>><%=i%></option>
<%next%>
</select>
年
<select size="1" name="cmonth" class="bdtj3">
<option value="">-</option>
<%for i=1 to 12%>
<option value="<%=i%>" <%if not isnull(rsedit("h_birder")) and isdate(rsedit("h_birder")) then%><%if cint(month(rsedit("h_birder")))=cint(i) then response.write "selected"%><%end if%>><%=i%></option>
<%next%>
</select>
月
<select size="1" name="cday" class="bdtj3">
<option value="">-</option>
<%for i=1 to 31%>
<option value="<%=i%>" <%if not isnull(rsedit("h_birder")) and isdate(rsedit("h_birder")) then%><%if cint(day(rsedit("h_birder")))=cint(i) then response.write "selected"%><%end if%>><%=i%></option>
<%next%>
</select>
日
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -