admin_user.asp

一个超市管理系统

<!-- #include file="setup.asp" -->
<%
if adminpassword<>session("pass") then
response.redirect "admin.asp?menu=login"
end if
%>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link href=images/skins/<%=Request.Cookies("skins")%>/bbs.css rel=stylesheet>
<br><center>
<%

select case Request("menu")

case "user"
user

case "user2"
user2

case "userdeltopic"
userdeltopic

case "userdel"
userdel

case "userok"
userok


case "deluserok"
if request("TimeLimit")="" then
error2("您没有选择日期！")
end if
conn.execute("delete from [user] where DateDiff('d',landtime,now)>"&request("TimeLimit")&" and membercode<2")
error2("已经将"&request("TimeLimit")&"天没有登陆过的普通用户资料删除了！")


case "deluser0"

conn.execute("delete from [user] where degree=0 and membercode<2")
error2("已经将从未登陆过社区的普通用户资料删除了！")


end select


sub user


%>
用户资料：<b><font color=red><%=conn.execute("Select count(id)from user")(0)%></font></b> 条

<form method="post" action="?menu=user2">
请输入会员的名称: <input size="13" name="username">
<input type="submit" value="确定">
</form>
<fieldset style="WIDTH: 90%">
<legend>清理用户数据</legend>
<form method="post" action="?menu=deluserok">
删除 <select name=TimeLimit>
<option value="60">60</option>
<option value="90" selected>90</option>
<option value="120">120</option>
</select> 天没有登陆过的普通用户资料
<input type="submit" value="确定">
</form>

<form method="post" action="?menu=deluser0">

<input type="submit" value="删除从未登陆过社区的普通用户资料">
</form>

</fieldset>
<br>
<%
end sub

sub user2

username=Request("username")
sql="select * from user where username='"&HTMLEncode(username)&"'"
rs.Open sql,Conn
if rs.eof then
error2(""&username&"的用户资料不存在")
end if

select case rs("membercode")
case 1
membercode="普通会员"
case 0
membercode="禁止发言"
disabled="disabled=true"
case 2
membercode="特邀嘉宾"
case 3
membercode="论坛版主"
case 4
membercode="管 理 员"
case 5
membercode="社区区长"
end select
%>
<form method="post" action="?menu=userok">
<input type=hidden name=oldname value="<%=rs("username")%>">
<div align="center">
<center>
<table cellSpacing="1" cellPadding="3" border="0" height="197" width="389" class=a2>
<tr class=a1>
<td height="28" width="300" colspan="2" bgcolor="#A4B6D7" align="center">
社区信息</td>
<td height="28" align="center" width="300" colspan="2" bgcolor="#A4B6D7"><font color="#000000"><a target="_blank" href="Profile.asp?username=<%=rs("username")%>">
查看详细资料</a></font></td>
</tr>
<tr class=a3>
<td width="300" colspan="2">&nbsp;用户名称
<input size="10" name="username" value="<%=rs("username")%>"></td>
<td width="300" colspan="2">&nbsp;用户密码
<input size="10" value="<%=rs("userpass")%>" readOnly name="1"></td>
</tr>
<tr class=a4>
<td width="300" colspan="2">&nbsp;用户头衔 <input size="10" name="honor" value="<%=rs("honor")%>"></td>
<td width="300" colspan="2">&nbsp;用户权限
<select size="1" name="membercode">
<option value=<%=rs("membercode")%>><%=membercode%></option>
<option value=1>普通会员</option>
<option value=2>特别嘉宾</option>
<option value=4>管 理 员</option>
</select> </td>
</tr>
<tr class=a3>
<td width="300" colspan="2">&nbsp;发表文章 <input size="10" name="posttopic" value="<%=rs("posttopic")%>"></td>
<td width="300" colspan="2">&nbsp;回复文章 <input size="10" name="postrevert" value="<%=rs("postrevert")%>"></td>
</tr>
<tr class=a4>
<td width="300" colspan="2">&nbsp;社区银两 <input size="10" name="money" value="<%=rs("money")%>"></td>
<td width="300" colspan="2">&nbsp;经 验 值 <input size="10" name="experience" value="<%=rs("experience")%>"></td>
</tr>
<tr class=a3>
<td width="300" colspan="2">&nbsp;社区存款 <input size="10" name="savemoney" value="<%=rs("savemoney")%>"></td>
<td width="300" colspan="2">&nbsp;体 力 值 <input size="10" name="userlife" value="<%=rs("userlife")%>"></td>
</tr>
<tr class=a1>
<td height="28" width="201" align="center">
<a onclick="{if(confirm('您确定要删除该用户所有发表过的帖子?')){return true;}return false;}" href="?menu=userdeltopic&username=<%=rs("username")%>">
删除该用户的所有帖子</a>


<td height="28" width="201" colspan="2" align="center">
<input type="submit" value=" 更 新 " <%=disabled%> name="Submit"></td>
<td height="28" width="201" align="center" bgcolor="#A4B6D7">

<a onclick="{if(confirm('您确定要删除该用户的所有资料?')){return true;}return false;}" href="?menu=userdel&username=<%=rs("username")%>">
删除该用户的所有资料</a></td>

</td>
</tr>
</table></center>
</div>
</form><A href="javascript:history.back()">返 回</A>
<%
end sub

sub userdeltopic
conn.execute("delete from [forum] where username='"&Request("username")&"'")
conn.execute("delete from [reforum] where username='"&Request("username")&"'")
rs.Open "log",Conn,1,3
rs.addnew
rs("username")=""&Request.Cookies("username")&""
rs("ip")=""&remoteaddr&":"&Request.ServerVariables("REMOTE_PORT")&""
rs("windows")=Request.Servervariables("HTTP_USER_AGENT")
rs("remark")="删除<font color=red>"&Request("username")&"</font>的所有帖子"
rs("logtime")=now
rs.update
rs.close
%>
已经将 <%=Request("username")%> 所有发表过的文章全部删除<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub

sub userdel
conn.execute("delete from [user] where username='"&Request("username")&"'")
rs.Open "log",Conn,1,3
rs.addnew
rs("username")=""&Request.Cookies("username")&""
rs("ip")=""&remoteaddr&":"&Request.ServerVariables("REMOTE_PORT")&""
rs("windows")=Request.Servervariables("HTTP_USER_AGENT")
rs("remark")="删除<font color=red>"&Request("username")&"</font>的所有资料"
rs("logtime")=now
rs.update
rs.close
%>
已经成功删除 <%=Request("username")%> 的所有资料<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub


sub userok
username=Request("username")

if Request("membercode")="" then
error2("权限不能为空！")
end if

sql="select * from user where username='"&HTMLEncode(Request("oldname"))&"'"
rs.Open sql,Conn,1,3


rs("username")=Request("username")
rs("membercode")=Request("membercode")
rs("honor")=Request("honor")
rs("posttopic")=Request("posttopic")
rs("postrevert")=Request("postrevert")
rs("experience")=Request("experience")
rs("userlife")=Request("userlife")
rs("money")=Request("money")
rs("savemoney")=Request("savemoney")
rs.update
rs.close
%> 更新成功</b></font></td>
</tr></table><br><br><a href=javascript:history.back()>返 回</a>
<%
end sub

htmlend

%>