admin_user.asp

感谢您使用BBSXP

sql="select * from [BBSXP_Users] where UserName='"&HTMLEncode(UserName)&"'"
Set Rs=Conn.Execute(sql)
if Rs.eof then error2(""&UserName&" 的用户资料不存在")

UserInfo=split(Rs("UserInfo"),"\")
realname=UserInfo(0)
country=UserInfo(1)
province=UserInfo(2)
city=UserInfo(3)
Postcode=UserInfo(4)
blood=UserInfo(5)
belief=UserInfo(6)
occupation=UserInfo(7)
marital=UserInfo(8)
education=UserInfo(9)
college=UserInfo(10)
address=UserInfo(11)
phone=UserInfo(12)
character=UserInfo(13)
personal=UserInfo(14)





%>
<form method="POST" name=form action="?menu=Userok">
<input type=hidden name=UserName value="<%=Rs("UserName")%>">
<div align="center">

<table cellSpacing="1" cellPadding="3" border="0" width="60%" class=a2>
<tr class=a1 id=TableTitleLink>
<td height="25" width="600" colspan="4" align="center">
<font color="000000">
<a target="_blank" href="Profile.asp?UserName=<%=Rs("UserName")%>">
查看“<%=Rs("UserName")%>”的详细资料</a></font></td>
</tr>
<tr class=a3>
<td colspan="2">&nbsp;用户名称：<%=Rs("UserName")%></td>
<td width="300" colspan="2" height="25">&nbsp;用户密码：<a onclick="checkclick('此操作将会把该用户的密码改成：123');" href="?menu=fix&UserName=<%=Rs("UserName")%>">还原密码</a></td>
</tr>
<tr class=a4>
<td colspan="2">&nbsp;用户权限：<select size="1" name="membercode">
<option value=0 <%if Rs("membercode")=0 then%>selected<%end if%>>尚未激活</option>
<option value=1 <%if Rs("membercode")=1 then%>selected<%end if%>>普通会员</option>
<option value=2 <%if Rs("membercode")=2 then%>selected<%end if%>>贵宾会员</option>
<option value=4 <%if Rs("membercode")=4 then%>selected<%end if%>>管 理 员</option>
<option value=5 <%if Rs("membercode")=5 then%>selected<%end if%>>社区区长</option>
</select>
</td>
<td width="300" colspan="2">&nbsp;所属公会：<input size="10" name="Consortia" value="<%=Rs("Consortia")%>"></td>
</tr>
<tr class=a3>
<td colspan="2">&nbsp;用户头衔：<input size="10" name="UserHonor" value="<%=Rs("UserHonor")%>"></td>
<td width="300" colspan="2">&nbsp;发表文章：<input size="10" name="PostTopic" value="<%=Rs("PostTopic")%>"></td>
</tr>
<tr class=a4>
<td colspan="2">&nbsp;社区金币：<input size="10" name="UserMoney" value="<%=Rs("UserMoney")%>"></td>
<td width="300" colspan="2">&nbsp;回复文章：<input size="10" name="Postrevert" value="<%=Rs("Postrevert")%>"></td>
</tr>
<tr class=a3>
<td colspan="2">&nbsp;社区存款：<input size="10" name="savemoney" value="<%=Rs("savemoney")%>"></td>
<td width="300" colspan="2">&nbsp;被删帖子：<input size="10" name="DelTopic" value="<%=Rs("DelTopic")%>"></td>
</tr>
<tr class=a3>
<td colspan="2">&nbsp;注册日期：<input size="10" name="UserRegTime" value="<%=Rs("UserRegTime")%>"></td>
<td width="300" colspan="2">&nbsp;经 验 值：<input size="10" name="experience" value="<%=Rs("experience")%>"></td>
</tr>

<tr class=a3>
<td colspan="4">&nbsp;用户头像：<input size="50" name="Userface" value="<%=Rs("Userface")%>"></td>
</tr>

<tr class=a3>
<td colspan="4">&nbsp;用户照片：<input size="50" name="Userphoto" value="<%=Rs("Userphoto")%>"></td>
</tr>
<tr class=a1 id=TableTitleLink>
<td colspan="4" align="center" height="25">
生活资料</td>
</tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;真实姓名：<input type="text" name="realname" size="10" value="<%=realname%>"><td width="50%" height="3" colspan="2">
&nbsp;性　　别：<input type="text" name="UserSex" size="10" value="<%=Rs("UserSex")%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;出生日期：<input type="text" name="birthday" size="10" value="<%=Rs("birthday")%>"><td width="50%" height="3" colspan="2">
&nbsp;国　　家：<b><input type="text" name="country" size="10" value="<%=country%>"></b></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;省　　份：<input type="text" name="province" size="10" value="<%=province%>"><td width="50%" height="3" colspan="2">
&nbsp;城　　市：<input type="text" name="city" size="10" value="<%=city%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;邮政编号：<input type="text" name="Postcode" size="10" value="<%=Postcode%>"><td width="50%" height="3" colspan="2">
&nbsp;血　　型：<input maxlength=4 size=10 name=blood value="<%=blood%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;信　　仰：<input type="text" name="belief" size="10" value="<%=belief%>"><td width="50%" colspan="2">
&nbsp;职　　业：<input type="text" name="occupation" size="10" value="<%=occupation%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;婚姻状况：<input maxlength=4 size=10 name=marital value="<%=marital%>"><td width="50%" colspan="2">
&nbsp;最高学历：<input type="text" name="education" size="10" value="<%=education%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;毕业院校：<input type="text" name="college" size="20" value="<%=college%>"><td width="50%" colspan="2">
&nbsp;电话号码：<input type="text" name="phone" size="10" value="<%=phone%>"></tr>
<tr class=a3 id=TableTitleLink>
<td width="50%" colspan="2">
&nbsp;联系地址：<input type="text" name="address" size="20" value="<%=address%>"><td width="50%" colspan="2">
&nbsp;手机号码：<input type="text" name="UserMobile" size="10" value="<%=Rs("UserMobile")%>"></tr>

<tr class=a4>
<td width="600" colspan="4">&nbsp;用户签名：<textarea name="UserSign" rows="4" cols="50"><%=Rs("UserSign")%></textarea></td>
</tr>

<tr class=a1 id=TableTitleLink>
<td width="50%" align="center" height="13">
<a onclick="checkclick('您确定要删除该用户所有发表过的帖子?');" href="?menu=UserDelTopic&UserName=<%=Rs("UserName")%>">
删除该用户的所有主题</a>


<td width="201" colspan="2" align="center" height="13">
<input type="submit" value=" 更 新 "></td>
<td width="50%" align="center" height="13">

<a onclick="checkclick('您确定要删除该用户的所有资料?');" href="?menu=UserDel&UserName=<%=Rs("UserName")%>">
删除该用户的所有资料</a></td>

</td>
</tr>


</table>
</form><A href="javascript:history.back()">返 回</A>
<Script>
document.form.UserSign.value = unYBBcode(document.form.UserSign.value);
function unYBBcode(temp) {
temp = temp.replace(/<br>/ig,"\n");
return (temp);
}
</Script>
<%
end sub

sub UserDelTopic
Conn.execute("Delete from [BBSXP_Threads] where UserName='"&UserName&"'")
%>
已经将 <%=UserName%> 所有发表过的主题全部删除<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub

sub UserDel

if UserName=Request.Cookies("UserName") then error2("不能自己删除自己")

for each ho in Request("UserName")
ho=HTMLEncode(ho)
Conn.execute("Delete from [BBSXP_Users] where UserName='"&ho&"'")
next

%>
已经成功删除 <%=UserName%> 的所有资料<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub


sub Userok


sql="select * from [BBSXP_Users] where UserName='"&UserName&"'"
Rs.Open sql,Conn,1,3
Rs("Userface")=Request("Userface")
Rs("Userphoto")=Request("Userphoto")
Rs("membercode")=Request("membercode")
Rs("UserHonor")=Request("UserHonor")
Rs("Consortia")=Request("Consortia")
Rs("PostTopic")=Request("PostTopic")
Rs("Postrevert")=Request("Postrevert")
Rs("experience")=Request("experience")
Rs("UserMoney")=Request("UserMoney")
Rs("savemoney")=Request("savemoney")
Rs("UserRegTime")=Request("UserRegTime")
Rs("DelTopic")=Request("DelTopic")
Rs("birthday")=Request("birthday")
Rs("UserSign")=HTMLEncode(Request.Form("UserSign"))
Rs("UserSex")=HTMLEncode(Request.Form("UserSex"))

Rs("UserInfo")=""&HTMLEncode(Request("realname"))&"\"&HTMLEncode(Request("country"))&"\"&HTMLEncode(Request("province"))&"\"&HTMLEncode(Request("city"))&"\"&HTMLEncode(Request("Postcode"))&"\"&HTMLEncode(Request("blood"))&"\"&HTMLEncode(Request("belief"))&"\"&HTMLEncode(Request("occupation"))&"\"&HTMLEncode(Request("marital"))&"\"&HTMLEncode(Request("education"))&"\"&HTMLEncode(Request("college"))&"\"&HTMLEncode(Request("address"))&"\"&HTMLEncode(Request("phone"))&"\"&HTMLEncode(Request("character"))&"\"&HTMLEncode(Request("personal"))&""
Rs("UserMobile")=""&HTMLEncode(Request("UserMobile"))&""


Rs.update
Rs.close
%> 更新成功</b></font></td>
</tr></table><br><br><a href=javascript:history.back()>返 回</a>
<%
end sub

sub Activation
%>
<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>
  <form method="POST" action=?menu=activationok>

<TABLE cellSpacing=1 cellPadding=1 width=100% align=center border=0 class=a2>
<TR height=25 class=a1>
		<td align="center">
		<input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON"></td>
		<td align="center">用户名</td>
		<td align="center">Email</td>
		<td align="center">注册时间</td></tr>
<%



sql="select * from [BBSXP_Users] where membercode=0 order by id Desc"
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 height=25>

      <TD align=middle width="6%" class=a3>
<INPUT type=checkbox value=<%=Rs("id")%> name=id></TD>
      <TD width="22%" align=Left class=a4>&nbsp;<a target="_blank" href=Profile.asp?UserName=<%=Rs("UserName")%>><%=Rs("UserName")%></a></TD>
      <TD width="45%" class=a3>&nbsp;<%=Rs("UserMail")%></TD>

      <TD align=center width=30% class=a4>&nbsp;<%=Rs("UserRegTime")%></TD>
    </TR>

<%

Rs.MoveNext
loop
Rs.Close


%>


</table>
<table border=0 width=100% align=center><tr><td>
<input type=submit  onclick="checkclick('您确定要激活所选的用户?');" value=" 激 活 "></form>
</td><td valign="top" align="right">
<script>ShowPage(<%=TotalPage%>,<%=PageCount%>,"menu=Activation")</script>
</td></tr></table>


<%
end sub

htmlend

%>