📄 admin_user.asp
字号:
<!-- #include file="setup.asp" -->
<!-- #include file="CheckAdmin.asp" -->
<!-- #include file="../Utility/MD5.asp" -->
<%
if RequestCookies("Userpass")="" or RequestCookies("Userpass")<>session("pass") then Response.Write ("<script>top.location.href='login.asp';</script>")
if UserRoleID <> 1 then Alert("您没有权限进入后台")
UserName=HTMLEncode(Request("UserName"))
RoleID=HTMLEncode(Request("RoleID"))
RoleName=HTMLEncode(Request("RoleName"))
Description=HTMLEncode(Request("Description"))
if Request("menu")="ChangePassword" then ChangePassword
Log("")
select case Request("menu")
case "UserEdit"
UserEdit
case "SearchUser"
SearchUser
case "UserDelTopic"
UserDelTopic
case "UserDel"
UserDel
case "Userok"
Userok
case "ChangePassword"
ChangePassword
case "UserRank"
UserRank
case "UserRankUp"
if Request.Form("RankName")<>"" then
Conn.Execute("insert into [Wo_Ranks] (RankName,PostingCountMin,RankIconUrl) values ('"&Request.Form("RankName")&"','"&Request.Form("PostingCountMin")&"','"&Request.Form("RankIconUrl")&"')")
end if
for each ho in Request.Form("RankID")
Conn.execute("update [Wo_Ranks] set RankName='"&Request.Form("RankName"&ho)&"',PostingCountMin='"&Request.Form("PostingCountMin"&ho)&"',RankIconUrl='"&Request.Form("RankIconUrl"&ho)&"' where RankID="&ho&"")
next
response.write "更新成功"
case "UserRankDel"
Conn.execute("Delete from [Wo_Ranks] where RankID="&Request("RankID")&"")
response.write "删除成功"
case "AllRoles"
AllRoles
case "CreateRole"
if RoleName=empty then Alert("您没有输入角色名称")
Conn.Execute("insert into [Wo_Roles] (Name) values ('"&RoleName&"')")
AllRoles
case "ViewRole"
ViewRole
case "UpRole"
if RoleName=empty then Alert("您没有输入角色名称")
Conn.execute("update [Wo_Roles] set Name='"&RoleName&"',Description='"&Description&"' where RoleID="&RoleID&"")
Response.Write("编辑成功")
case "DelRole"
if Roleid<4 then Alert("该角色为系统内置角色，无法删除")
if Not Conn.Execute("Select UserID From [Wo_Users] where UserRoleID="&RoleID&"" ).eof then Alert("只能删除没有成员的角色组！")
Conn.execute("Delete from [Wo_Roles] where RoleID="&RoleID&"")
Response.Write("删除成功")
case else
SearchUserok
end select
Sub ChangePassword
if Request.ServerVariables("Request_method") = "POST" then
NewPassword1=Trim(Request("NewPassword1"))
NewPassword2=Trim(Request("NewPassword2"))
if NewPassword1<>NewPassword2 then Alert("您2次输入的密码不同")
if Len(NewPassword1)<6 then Alert("密码不能小于6位数")
Conn.execute("update [Wo_Users] set Userpass='"&md5(NewPassword1)&"' where UserName='"&UserName&"'")
%><script language="JavaScript">parent.Wo_Modal.Close();</script><%
end if
%>
<title>修改密码</title>
<body style="background-color:#FFFFFF;"><br>
<form name=form action="Admin_User.asp?menu=ChangePassword" method="POST">
<input type=hidden name="UserName" value="<%=UserName%>">
修改密码 - (<%=UserName%>) <br><br>
<table border="0" width="100%">
<tr>
<td>新密码： </td>
<td><input name="NewPassword1" type="password" maxlength="15" size="40" /></td>
</tr>
<tr>
<td>重新输入新密码： </td>
<td><input name="NewPassword2" type="password" maxlength="15" size="40" /></td>
</tr>
</table>
<br>
<input type="submit" value=" 修改密码 ">
</form>
<%
Response.End
End Sub
Sub SearchUser
%>
<SCRIPT type="text/javascript" src="Utility/calendar.js"></SCRIPT>
窝友资料：<b><font color=red><%=Conn.execute("Select count(UserID) from [Wo_Users]")(0)%></font></b> 条
<table cellspacing="1" width="100%" border="0" id=CommonListArea>
<form method="POST" action="?menu=SearchUserok">
<tr id=CommonListTitle3>
<td align=center>窝友搜索</td>
</tr>
<tr id=CommonListCell>
<td><br>
<div style="text-align:center"><input size="45" name="SearchText"> <input type="submit" value=" 搜 索 "></div>
<br><br>
<fieldset>
<legend>根据排序</legend>
<select name=MemberSortDropDown>
<option value=UserName>窝友名</option>
<option value=UserEmail>电子邮件</option>
<option value=TotalPosts>主题数</option>
<option value=UserRegisterTime>注册日期</option>
<option value=UserActivityTime>最后活动日期</option>
</select>
<select name=SortOrderDropDown><option value=desc>倒序</option><option value=asc>顺序</option></select>
</fieldset><br>
<fieldset>
<legend>日期过滤</legend>
注册时间：<select name="JoinedDateComparer" onchange="javascript:if(this.options[this.selectedIndex].value != ''){document.getElementById('UserRegisterTime').style.display='';}else{document.getElementById('UserRegisterTime').style.display='none';}">
<option value="">----</option>
<option value="<">在此之前</option>
<option value="=">在此之时</option>
<option value=">">在此之后</option>
</select> <span id=UserRegisterTime style="display:none"><input size="24" name="JoinedDate_picker" onclick="showcalendar(event, this)" value="<%=date()%>"></span><br>
最后活动时间：<select name="LastPostDateComparer" onchange="javascript:if(this.options[this.selectedIndex].value != ''){document.getElementById('UserActivityTime').style.display='';}else{document.getElementById('UserActivityTime').style.display='none';}">
<option value="">----</option>
<option value="<">在此之前</option>
<option value="=">在此之时</option>
<option value=">">在此之后</option>
</select> <span id="UserActivityTime" style="display:none"><input size="24" name="LastPostDate_picker" onclick="showcalendar(event, this)" value="<%=date()%>"></span>
</fieldset><br>
<fieldset>
<legend>过 滤</legend>
角色：<select name="SearchRole">
<option value="">所有窝友</option>
<%
sql="select * from [Wo_Roles] where RoleID > 0 order by RoleID"
Set Rs=Conn.Execute(sql)
Do While Not Rs.EOF
Response.Write("<option value='"&Rs("RoleID")&"'>"&Rs("Name")&"</option>")
Rs.MoveNext
loop
Rs.Close
%>
</select><br>
搜索范围：<select name="SearchType">
<option value="UserName">窝友名包含有</option>
<option value="UserEmail">邮箱包含有</option>
<option value="all">窝友名或邮箱包含有</option>
</select><br>
状态：<select name="CurrentAccountStatus" size="1">
<option value="">所有状态</option>
<option value="0">正等待审核</option>
<option value="1">已通过审核</option>
<option value="2">已禁用</option>
<option value="3">未通过审核</option>
</select>
</fieldset>
<hr noshade="noshade" size="1" color=#999999 />
<fieldset>
<legend>快捷方式</legend>
<li><a href="?MemberSortDropDown=TotalPosts&SortOrderDropDown=desc">发主题排行</li></a>
<li><a href="?LastPostDateComparer==&LastPostDate_picker=<%=date()%>">过去 24 小时内活动的窝友</li></a>
<li><a href="?JoinedDateComparer==&JoinedDate_picker=<%=date()%>">过去 24 小时内注册的窝友</li></a>
<li><a href="?CurrentAccountStatus=0">等待审核的窝友</a></li>
</fieldset>
</form>
</td>
</tr>
</table><br>
<%
End Sub
Sub SearchUserok
%>
<table cellspacing="1" width="100%" border="0" id=CommonListArea>
<TR align=center id=CommonListTitle3>
<TD>窝友名</TD>
<TD>Email</TD>
<TD>发主题数</TD>
<TD>注册时间</TD>
<TD>最后活动时间</TD>
<TD>动作</TD>
</TR>
<%
SearchType=HTMLEncode(Request("SearchType"))
SearchText=HTMLEncode(Request("SearchText"))
SearchRole=HTMLEncode(Request("SearchRole"))
CurrentAccountStatus=HTMLEncode(Request("CurrentAccountStatus"))
JoinedDateComparer=Left(Request("JoinedDateComparer"),1)
LastPostDateComparer=Left(Request("LastPostDateComparer"),1)
JoinedDate_picker=HTMLEncode(Request("JoinedDate_picker"))
LastPostDate_picker=HTMLEncode(Request("LastPostDate_picker"))
if SearchType="all" then SearchType="UserEmail like '%"&SearchText&"%' or UserName"
if SearchText<>"" then item=item&" and ("&SearchType&" like '%"&SearchText&"%')"
if JoinedDate_picker<>"" and JoinedDateComparer<>"" then item=item&" and DateDiff("&SqlChar&"d"&SqlChar&",'"&JoinedDate_picker&"',UserRegisterTime) "&JoinedDateComparer&" 0"
if LastPostDate_picker<>"" and LastPostDateComparer<>"" then item=item&" and DateDiff("&SqlChar&"d"&SqlChar&",'"&LastPostDate_picker&"',UserActivityTime) "&LastPostDateComparer&" 0"
if SearchRole <> "" then item=item&" and UserRoleID="&SearchRole&""
if CurrentAccountStatus <> "" then item=item&" and UserAccountStatus="&CurrentAccountStatus&""
if item<>"" then item=" where "&mid(item,5)
sql="[Wo_Users]"&item&""
TotalCount=conn.Execute("Select count(UserID) From "&sql&"")(0) '获取数据数量
PageSetup=20 '设定每页的显示数量
TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数
PageCount = RequestInt("PageIndex") '获取当前页
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if Request("MemberSortDropDown")<>"" then item=item&" order by "&Request("MemberSortDropDown")&" "&Request("SortOrderDropDown")&""
sql="[Wo_Users]"&item&""
if PageCount<11 then
Set Rs=Conn.Execute(sql)
else
rs.Open sql,Conn,1
end if
if TotalPage>1 then RS.Move (PageCount-1) * pagesetup
i=0
Do While Not Rs.EOF and i<PageSetup
i=i+1
%>
<TR align=center id=CommonListCell>
<TD><a href="Admin_User.asp?menu=UserEdit&UserName=<%=Rs("UserName")%>"><%=Rs("UserName")%></a></TD>
<TD><a href="mailto:<%=Rs("UserEmail")%>"><%=Rs("UserEmail")%></a></TD>
<TD><%=Rs("TotalPosts")%></TD>
<TD><%=Rs("UserRegisterTime")%></TD>
<TD><%=Rs("UserActivityTime")%></TD>
<TD><a href="Admin_User.asp?menu=UserEdit&UserName=<%=Rs("UserName")%>">编辑</a> | <a onclick="return window.confirm('您确定要删除您所选窝友的全部资料?');" href="Admin_User.asp?menu=UserDel&UserID=<%=Rs("UserID")%>">删除</a></TD>
</TR>
<%
Rs.MoveNext
loop
Rs.Close
%>
</TABLE>
<table border=0 width=100% align=center><tr><td><%ShowPage()%></tr></td></table>
<%
End Sub
Sub UserEdit
sql="select * from [Wo_Users] where UserName='"&HTMLEncode(UserName)&"'"
Set Rs=Conn.Execute(sql)
if Rs.eof then Alert(""&UserName&" 的窝友资料不存在")
XMLDOM.loadxml("<Wo>"&Rs("UserInfo")&"</Wo>")
QQ=SelectSingleNode("QQ")
ICQ=SelectSingleNode("ICQ")
AIM=SelectSingleNode("AIM")
MSN=SelectSingleNode("MSN")
Yahoo=SelectSingleNode("Yahoo")
Skype=SelectSingleNode("Skype")
Set XMLDOM= Nothing
UserSign=replace(""&Rs("UserSign")&"","<br>", vbCrlf)
UserBio=replace(""&Rs("UserBio")&"","<br>",vbCrlf)
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -