admin_user.asp

教师评估系统

i=0
Do While Not Rs.Eof and i<PageSetup
i=i+1
Username=Rs("Username")
%>
<div class="tc b cb">
<div class="fl r ac w1a ha"><a href="Admin_User.asp?menu=EditUser&UserName=<%=Rs("UserName")%>" title="编辑该用户的资料"><u><%=Username%></u></a></div>
<div class="fl r ac w1a ha"><%=Rs("Usermail")%></div>
<div class="fl r ac w0c ha"><a onclick="return ShowModal('发送讯息','MyPanel.asp?menu=Post&incept=<%=Username%>');"><img alt='' src="Images/message.gif" /></a></div>
<div class="fl r ac w0 ha"><%=Rs("PostTopic")+Rs("PostRevert")%></div>
<div class="fl r ac w1a ha"><%=Rs("UserRegTime")%></div>
<div class="fl r ac w1a ha"><%=Rs("UserLandTime")%></div>
<div class="fl r ac w0 ha"><%=Rs("UserLastIP")%></div>
<div class="fl ac w0 ha"><input type="checkbox" name="UserName" value="<%=Rs("UserName")%>" /></div>
</div>
<%
Rs.MoveNext
loop
Rs.Close
%>
<div class="tc">
<span class="fl"><%ShowPage()%></span>
<span class="fr"><input type="submit" onclick="return confirm('您确定要删除您所选用户的全部资料?');" value="   确 定   " /> <input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON" /></span></form>
</div>
</div>
<%
end sub

sub EditUser
if UserName=Empty Then Error2("请输入关键字")
sql="select * from [WxUsers] where UserName='"&HTMLEncode(UserName)&"'"
Set Rs=Conn.Execute(sql)
if Rs.Eof then Error2("用户 "&UserName&" 不存在")
On Error Resume Next
UserInfo=split(Rs("UserInfo"),"\")
Realname=UserInfo(0)
Address=UserInfo(1)
Userwork=UserInfo(2)
UserInterest=UserInfo(3)
UserIntro=Replace(""&UserInfo(4)&"","<br />", vbCrlf)
UserSign=Replace(""&Rs("UserSign")&"","<br />", vbCrlf)
UserIM=split(Rs("UserIM"),"\")
qq=UserIM(0)
MSN=UserIM(1)
UC=UserIM(2)
Skype=UserIM(3)
UserStatus=Rs("UserStatus")
%><form method="post" name="form" action="?menu=Userok">
<input type="hidden" name="UserName" value="<%=Rs("UserName")%>" />
<div class="tb dt">
<div id="tt">编辑 <%=Rs("UserName")%> 的资料 <a onclick="return confirm('您确定要删除该用户所有发表过的帖子?');" href="?menu=UserDelTopic&UserName=<%=Rs("UserName")%>">[删除该用户的所有帖子]</a> <a onclick="return confirm('您确定要删除该用户?');" href="?menu=UserDel&UserName=<%=Rs("UserName")%>">[删除该用户]</a></div>
<div class="tc b cb">
<div class="fl r si w1a"><b>用户名</b></div>
<div class="fl r si w3"><%=Rs("UserName")%> <a href="?menu=Rename">[更改用户名]</a></div>
<div class="fl r si w1a"><b>密　码</b></div>
<div class="fl si w3">保密 <a onclick="return confirm('此操作将会把该用户的密码改成：123456');" href="?menu=fix&UserName=<%=Rs("UserName")%>">[还原密码]</a></div>
</div>
<div class="tc b cb">
<div class="fl r si w1a"><b>所属角色</b></div>
<div class="fl r si w3"><select name="UserRoleID"><%
sql="select * from [WxRoles] where ID > 0 order by ID"
Rs1.Open sql,Conn,1
Do While Not Rs1.Eof 
%><option value="<%=RS1("ID")%>"<%if Rs("UserRoleID")=Rs1("ID") then%> selected="selected"<%end if%>><%=Rs1("Name")%></option><%
Rs1.MoveNext
loop
Rs1.Close
%></select> 
</div>
<div class="fl r si w1a"><b>激活状态</b></div>
<div class="fl si w3"><select name="UserStatus">
<option value="1"<%if UserStatus=0 then%> selected="selected"<%end if%>>已激活</option>
<option value="0"<%if UserStatus=0 then%> selected="selected"<%end if%>>未激活</option>
</select></div>
</div>
<div class="tc b cb">
<div class="fl r si w1a"><b>发表主题</b></div>
<div class="fl r si w3"><input type="text" name="PostTopic" value="<%=Rs("PostTopic")%>" /></div>
<div class="fl r si w1a"><b>发表回帖</b></div>
<div class="fl si w3"><input type="text" name="PostRevert" value="<%=Rs("PostRevert")%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r si w1a"><b>精华帖子</b></div>
<div class="fl r si w3"><input type="text" name="GoodTopic" value="<%=Rs("GoodTopic")%>" /></div>
<div class="fl r si w1a"><b>被删帖子</b></div>
<div class="fl si w3"><input type="text" name="DelTopic" value="<%=Rs("DelTopic")%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r si w1a"><b>用户头衔</b></div>
<div class="fl r si w3"><input type="text" name="UserHonor" value="<%=Rs("UserHonor")%>" maxlength="10" /></div>
<div class="fl r si w1a"><b>用户头像</b></div>
<div class="fl si w3"><input type="text" size="30" name="Userface" value="<%=Rs("Userface")%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r si w1a"><b>社区金币</b></div>
<div class="fl r si w3"><input type="text" name="UserMoney" value="<%=Rs("UserMoney")%>" /></div>
<div class="fl r si w1a"><b>银行存款</b></div>
<div class="fl si w3"><input type="text"  name="SaveMoney" value="<%=Rs("SaveMoney")%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r si w1a"><b>注册日期</b></div>
<div class="fl r si w3"><input type="text" name="UserRegTime" value="<%=Rs("UserRegTime")%>" /></div>
<div class="fl r si w1a"><b>经 验 值</b></div>
<div class="fl si w3"><input type="text" name="Experience" value="<%=Rs("Experience")%>" /></div>
</div>
<div id="tt">生活资料</div>
<div class="tc b cb">
<div class="fl r si w1a"><b>真实姓名</b></div>
<div class="fl r si w3"><input type="text" name="Realname" value="<%=Realname%>" /></div>
<div class="fl r si w1a"><b>性　　别</b></div>
<div class="fl si w3"><select name="UserSex"><option value="male"<%if Rs("UserSex")="male" then%> selected="selected"<%end if%>>男</option><option value="female"<%if Rs("UserSex")="female" then%> selected="selected"<%end if%>>女</option></select></div>
</div>
<div class="tc b cb">
<div class="fl r si w1a"><b>用户生日</b></div>
<div class="fl r si w3"><input type="text" name="Birthday" value="<%=Rs("Birthday")%>" /></div>
<div class="fl r si w1a"><b>用户职业</b></div>
<div class="fl si w3"><input type="text" name="Userwork" value="<%=Userwork%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r si w1a"><b>用户地址</b></div>
<div class="fl r si w3"><input type="text" name="Address" value="<%=Address%>" /></div>
<div class="fl r si w1a"><b>用户兴趣</b></div>
<div class="fl si w3"><input type="text" name="UserInterest" value="<%=UserInterest%>" /></div>
</div>
<div id="tt">即时通讯资料</div>
<div class="tc b cb">
<div class="fl r si w1a"><img src="Images/qq.gif" alt="QQ" /> <b>QQ</b></div>
<div class="fl r si w3"><input type="text" name="qq" value="<%=qq%>" onkeyup="ChkNaN(this)" /></div>
<div class="fl r si w1a"><img src="Images/msn.gif" alt="MSN" /> <b>MSN</b></div>
<div class="fl si w3"><input type="text" name="MSN" value="<%=MSN%>" /></div>
</div>
<div class="tc b cb">
<div class="fl r si w1a"><img src="Images/uc.gif" alt="UC" /> <b>UC</b></div>
<div class="fl r si w3"><input type="text" name="UC" value="<%=UC%>" /></div>
<div class="fl r si w1a"><img src="Images/Skype.gif" alt="Skype" /> <b>Skype</b></div>
<div class="fl si w3"><input type="text" name="Skype" value="<%=Skype%>" /></div>
</div>
<div id="tt">签名&amp;简介</div>
<div class="tc b cb">
<div class="fl r t w1a"><b>用户签名</b></div>
<div class="fl t"><textarea name="UserSign" rows="1" cols="1"><%=UserSign%></textarea></div>
</div>
<div class="tc b cb">
<div class="fl r t w1a"><b>用户简介</b></div>
<div class="fl t"><textarea name="UserIntro" rows="1" cols="1"><%=UserIntro%></textarea></div>
</div>
<div class="tc ac"><input type="submit" id="submit" value="更新" /></div>
</div>
</form>
<%
end sub

sub UserDelTopic
Conn.Execute("delete from [WxThreads] where UserName='"&UserName&"'")
AdminSucc "删除"&UserName&"的所有帖子",""
end sub

sub UserDel
if LCase(UserName)=LCase(CookieUserName) then Error2("不能自己删除自己")
for each ho in Request("UserName")
ho=HTMLEncode(ho)
DelUserInfo(ho)
next
AdminSucc "删除 "&UserName&" 用户",""
end sub


sub Userok
if len(Request("UserHonor"))>10 then Error2("用户头衔不能超过10个字符")
Birthday=Request.Form("birthday")
if Not IsDate(Birthday) then Birthday=date()
Birthday=FormatDateTime(cDate(Birthday))
sql="select * from [WxUsers] where UserName='"&UserName&"'"
Rs.Open sql,Conn,1,3
Rs("Userface")=Request.Form("Userface")
Rs("UserRoleID")=Request.Form("UserRoleID")
Rs("UserHonor")=HTMLEncode(Request.Form("UserHonor"))
Rs("PostTopic")=ChkNumeric(Request.Form("PostTopic"))
Rs("PostRevert")=ChkNumeric(Request.Form("PostRevert"))
Rs("Experience")=ChkNumeric(Request.Form("Experience"))
Rs("UserMoney")=ChkNumeric(Request.Form("UserMoney"))
Rs("SaveMoney")=ChkNumeric(Request.Form("SaveMoney"))
Rs("UserRegTime")=Request.Form("UserRegTime")
Rs("DelTopic")=ChkNumeric(Request.Form("DelTopic"))
Rs("UserSign")=HTMLEncode(Request.Form("UserSign"))
Rs("UserSex")=HTMLEncode(Request.Form("UserSex"))
Rs("GoodTopic")=ChkNumeric(Request.Form("GoodTopic"))
Rs("UserStatus")=Request.Form("UserStatus")
Rs("birthday")=birthday
Rs("UserInfo")=""&HTMLEncode(Request.Form("Realname"))&"\"&HTMLEncode(Request.Form("Address"))&"\"&HTMLEncode(Request.Form("Userwork"))&"\"&HTMLEncode(Request.Form("UserInterest"))&"\"&HTMLEncode(Left(trim(Request("UserIntro")),150))&""
Rs("UserIM")=""&Request.Form("qq")&"\"&Request.Form("MSN")&"\"&Request.Form("UC")&"\"&Request.Form("Skype")
Rs.update
Rs.close
AdminSucc "编辑用户资料",""
end sub

sub Activation
%><form method="post" action="?menu=activationok">
<div class="tb dt">
<div id="tt">审核用户</div>
<div class="intro cb">
<div class="fl r w0"><input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON" /></div>
<div class="fl r w2">用户名</div>
<div class="fl r w2">Email</div>
<div class="fl r w2a">最后登录IP</div>
<div class="fl w2">注册时间</div>
</div>
<%
sql=" from [WxUsers] where UserStatus=0"
PageSetup=40 '设定每页的显示数量
PageCount = cint(Request.QueryString("PageIndex"))
TotalCount=Conn.Execute("select count(ID)"&sql)(0)
TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
Rs.Open "select ID,Username,Usermail,UserLastIP,UserRegTime"&sql&" order by ID Asc",Conn,1
if Not Rs.Eof Then
if TotalPage>1 then Rs.Move (PageCount-1) * pagesetup
UserGetRows=Rs.GetRows(pagesetup)
end if
Rs.close
if IsArray(UserGetRows) Then
For i=0 To UBound(UserGetRows,2)
ID=UserGetRows(0,i)
Username=UserGetRows(1,i)
Usermail=UserGetRows(2,i)
UserLastIP=UserGetRows(3,i)
UserRegTime=UserGetRows(4,i)
%>
<div class="tc b cb">
<div class="fl r ac w0 h2"><input type="checkbox" name="id" value="<%=ID%>" /></div>
<div class="fl r ac w2 h2"><a target="_blank" href="User.asp?Name=<%=Username%>"><%=Username%></a></div>
<div class="fl r ac w2 h2"><%=Usermail%></div>
<div class="fl r ac w2a h2"><%=UserLastIP%></div>
<div class="fl w2 ac h2"><%=UserRegTime%></div>
</div><%
Next
end if
%>
<div class="tc">
<span class="fl"><%ShowPage()%></span>
<span class="fr"><input type="submit" id="submit" onclick="return confirm('您确定要激活所选的用户?');" value="激 活" /></span>
</div>
</div>
</form>
<%
end sub

sub UserRank
%><form method="post" action="?menu=UserRankUp">
<div class="tb dt">
<div id="tt">用户级别管理</div>
<div class="intro cb">
<div class="fl r w2">名称</div>
<div class="fl r w2">最低经验数</div>
<div class="fl r w4">图标路径</div>
<div class="fl w0">管理</div>
</div><%
sql="select ID,RankName,PostingCountMin,RankIconUrl from [WxRanks] order by PostingCountMin"
Set Rs=Conn.Execute(sql)
Do While Not Rs.Eof
ID=Rs(0)
RankName=Rs(1)
PostingCountMin=Rs(2)
RankIconUrl=Rs(3)
%><input type="hidden" name="id" value="<%=ID%>" />
<div class="tc b cb">
<div class="fl r ac w2"><input name="RankName<%=ID%>" value="<%=RankName%>" /></div>
<div class="fl r ac w2"><input name="PostingCountMin<%=ID%>" value="<%=PostingCountMin%>" /></div>
<div class="fl r ac w4"><input name="RankIconUrl<%=ID%>" size="30" value="<%=RankIconUrl%>" /> <img alt="" src="<%=RankIconUrl%>" /></div>
<div class="fl ac w0"><a href="?menu=UserRankDel&RankID=<%=ID%>">删除</a></div>
</div>
<%
Rs.MoveNext
loop
Rs.Close
%><div class="tc b cb">
<div class="fl r ac w2"><input name="RankName" value="" /></div>
<div class="fl r ac w2"><input name="PostingCountMin" value="" /></div>
<div class="fl r ac w4"><input name="RankIconUrl" size="30" value="" /></div>
<div class="fl ac w0"><input type="submit" value="增加" /></div>
</div>
<div class="tc ac"><input type="submit" id="submit" value=" 更 新 " /></div>
</div>
</form>
<%
end sub

sub DelUserInfo(Name)
Set RsD=Conn.Execute("select ID,PostsTableName from [WxThreads] where UserName='"&Name&"' order by ID desc")
 Do While Not RsD.Eof
  ID=RsD(0)
  PostsTableName=RsD(1)
  Conn.Execute("delete from [WxPosts"&PostsTableName&"] where id="&id)
  Conn.Execute("delete from [WxVote] where ThreadID="&id&"")
 RsD.MoveNext
 Loop
 RsD.Close
 Set RsD=Nothing
set rsSchema=Conn.openSchema(20)
rsSchema.movefirst
Do Until rsSchema.Eof
if rsSchema("TABLE_TYPE")="TABLE" then
if instr(rsSchema("TABLE_NAME"),"Posts")>0 then Conn.Execute("delete from "&rsSchema("TABLE_NAME")&" where UserName='"&Name&"'") 
end if
rsSchema.MoveNext
Loop
rsSchema.close
Set rsSchema=nothing
 Conn.Execute("delete from [WxThreads] where UserName='"&Name&"'")
 Conn.Execute("delete from [WxSms] where incept='"&Name&"'")
 Conn.Execute("delete from [WxSms] where UserName='"&Name&"'")
 Conn.Execute("delete from [WxAdmin] where Forumname='"&Name&"'")
 Conn.Execute("delete from [WxFavorites] where UserName='"&Name&"'")
 Conn.Execute("delete from [WxUpFiles] where UserName='"&Name&"'")
 Conn.Execute("delete from [WxUsersOnline] where UserName='"&Name&"'")
 Conn.Execute("delete from [WxUsers] where UserName='"&Name&"'")
end sub

AdminBottom
%>