admin_user.asp

感谢您使用BBSXP

<!-- #include file="Setup.asp" -->
<!-- #include file="inc/MD5.asp" -->
<%
if SiteSettings("AdminPassword")<>session("pass") then response.redirect "Admin.asp?menu=Login"
Log(""&Request.ServerVariables("script_name")&"<br>"&Request.ServerVariables("Query_String")&"<br>"&Request.form&"")

UserName=HTMLEncode(Request("UserName"))


response.write "<center>"

select case Request("menu")

case "Activation"
Activation

case "User2"
User2

case "Showall"
Showall

case "Showallok"
Showallok

case "UserDelTopic"
UserDelTopic

case "UserDel"
UserDel

case "Userok"
Userok

case "fix"

Conn.execute("update [BBSXP_Users] set Userpass='"&md5("123")&"'  where UserName='"&UserName&"'")
error2("已经将 "&UserName&" 的密码还原成 123 ")




case "activationok"
for each ho in request.form("id")
Conn.execute("update [BBSXP_Users] set membercode=1 where id="&ho&"")
next
error2("已经将激活所选用户！")

end select




sub Showall
%>
用户资料：<b><font color=red><%=Conn.execute("Select count(id)from [BBSXP_Users]")(0)%></font></b> 条
<table cellspacing="1" cellpadding="2" width="100%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 colspan=2 align="center">用户管理</td>
  </tr>


<tr class=a4>
<td><form method="POST" action="?menu=User2">
请输入会员的名称: <input size="13" name="UserName">
<input type="submit" value="确定">

</td></form>
<td>
<form method="POST" action="?">

<input type=hidden name=menu value=Showallok>
快速搜索 <select onchange="javascript:submit()" size="1" name="UserSearch">
<option value="">请选择查询条件</option>
<option value=" and membercode=1">所有普通会员</option>
<option value=" and membercode=2">所有贵宾会员</option>
<option value=" and membercode=4">所有管理员</option>
<option value=" and membercode=5">所有社区区长</option>
</select>



</td>
</tr>

  <tr height=25>
    <td class=a1 align=center colspan=2>高级查询</td>
  </tr>




  <tr height=25 class=a3>
    <td>最多显示记录数</td>
    <td><input size="45" value="50" name="SearchMax"></td>
  </tr>


  <tr height=25 class=a3>
    <td>用户名包含</td>
    <td><input size="45" name="UserName"></td>
  </tr>




  <tr height=25 class=a3>
    <td>基本信息包含</td>
    <td><input size="45" name="UserInfo"></td>
  </tr>


  <tr height=25 class=a3>
    <td>联系信息包含</td>
    <td><input size="45" name="UserIM"></td>
  </tr>


  <tr height=25 class=a3>
    <td>Email包含</td>
    <td><input size="45" name="UserMail"></td>
  </tr>


  <tr height=25 class=a3>
    <td>主页包含</td>
    <td><input size="45" name="Userhome"></td>
  </tr>
  <tr height=25 class=a3>
    <td>签名包含</td>
    <td><input size="45" name="UserSign"></td>
  </tr>


  <tr height=25 class=a3>
    <td>注册日期</td>
    <td><input size="45" name="UserRegTime"></td>
  </tr>
  <tr height=25 class=a3>
    <td>最后登录时间</td>
    <td><input size="45" name="UserLandTime"></td>
  </tr>
    
  
  
  <tr height=25 class=a3>
    <td>最后登录IP</td>
    <td><input size="45" name="UserLastIP"></td>
  </tr>


  <tr height=25 class=a3>
    <td colspan="2" align="center">
	<input type="submit" value="   搜  索   "></td>
  </tr>

</form>
  </table>



</div>



<br>
<%
end sub







sub Showallok
if Request.form<>empty then session("temp")=Request.form
%>
<script>
function CheckAll(form){for (var i=0;i<form.elements.length;i++){var e = form.elements[i];if (e.name != 'chkall')e.checked = form.chkall.checked;}}
</script>
<table cellspacing="1" cellpadding="2" width="100%" border="0" class="a2" align="center">
<TR align=middle>
<TD class=a1>用户名</TD>
<TD class=a1 height="25">Email</TD>

<TD class=a1>短讯息</TD>

<TD class=a1 height="25">权限</TD>

<TD class=a1>注册时间</TD>
<TD class=a1>最后登录时间</TD>
<TD class=a1>最后登录IP</TD>

<TD class=a1>删除</TD>
</TR>
<form method="POST" action="?menu=UserDel">
<%
item=Request("UserSearch")
if Request("UserName")<>"" then item=""&item&" and UserName like '%"&Request("UserName")&"%'"
if Request("UserMail")<>"" then item=""&item&" and UserMail like '%"&Request("UserMail")&"%'"
if Request("Userhome")<>"" then item=""&item&" and Userhome like '%"&Request("Userhome")&"%'"
if Request("UserInfo")<>"" then item=""&item&" and UserInfo like '%"&Request("UserInfo")&"%'"
if Request("UserIM")<>"" then item=""&item&" and UserIM like '%"&Request("UserIM")&"%'"
if Request("UserSign")<>"" then item=""&item&" and UserSign like '%"&Request("UserSign")&"%'"
if Request("UserRegTime")<>"" then item=""&item&" and UserRegTime like '%"&Request("UserRegTime")&"%'"
if Request("UserLandTime")<>"" then item=""&item&" and UserLandTime like '%"&Request("UserLandTime")&"%'"
if Request("UserLastIP")<>"" then item=""&item&" and UserLastIP like '%"&Request("UserLastIP")&"%'"

if item="" or Request("SearchMax")="" then error2("请输入您要搜索的条件")

item="where"&item&""
item=replace(item,"where and","where")

sql="select top "&Request("SearchMax")&" * from [BBSXP_Users] "&item&""
Rs.Open sql,Conn,1



PageSetup=20 '设定每页的显示数量
Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数
i=0
Do While Not Rs.EOF and i<PageSetup
i=i+1


%>
<TR align=middle>
<TD class=a4><a target="_blank" href=Profile.asp?UserName=<%=Rs("UserName")%>><%=Rs("UserName")%></a>　</TD>
<TD class=a3><%=Rs("UserMail")%>　</TD>
<TD class=a4><a style=cursor:hand onclick="javascript:open('Friend.asp?menu=Post&incept=<%=Rs("UserName")%>','','width=320,height=170')"><img border="0" src="images/message.gif"></a></TD>
<TD class=a3>
<a href="Admin_User.asp?menu=User2&UserName=<%=Rs("UserName")%>">编辑</a></TD>
<TD class=a4><%=Rs("UserRegTime")%></TD>
<TD class=a3><%=Rs("UserLandTime")%></TD>
<TD class=a4><%=Rs("UserLastIP")%></TD>
<TD class=a3><input type="checkbox" value="<%=Rs("UserName")%>" name="UserName"></TD></TR>



<%
Rs.MoveNext
loop
Rs.Close
%>

	<TR align=middle class=a3>
<TD colspan="8" align="right">&nbsp;<input onclick="checkclick('您确定要删除您所选用户的全部资料?');"  type="submit" value="   确 定   "> <input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON">&nbsp;</TD></form>
	</TR>
</TABLE>
<table border=0 width=100% align=center><tr><td>
<script>ShowPage(<%=TotalPage%>,<%=PageCount%>,"<%=session("temp")%>")</script>
</tr></td></table>
<%
end sub








sub User2