admin_user.asp

秘密网源代码 传闻拉了 100W风投

<form method="POST" name=form action="?menu=Userok">
<input type=hidden name=UserName value="<%=Rs("UserName")%>">
<table cellSpacing="1" border="0" width="70%" id=CommonListArea align=center>
	<tr id=CommonListTitle3>
		<td 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 id=CommonListCell>
		<td colspan="2">&nbsp;窝友名称：<%=Rs("UserName")%></td>
		<td width="600" colspan="2">&nbsp;窝友密码：<a href="javascript:Wo_Modal.Open('?menu=ChangePassword&UserName=<%=Rs("UserName")%>',500,160);">修改密码</a></td>
	</tr>
	<tr id=CommonListCell>
		<td colspan="2">&nbsp;窝友角色：<select name="UserRoleID">
<%
	sql="select * from [Wo_Roles] where RoleID > 0 order by RoleID"
	Set Rs1=Conn.Execute(sql)
		Do While Not Rs1.EOF 
%>
<option value="<%=RS1("RoleID")%>" <%if Rs("UserRoleID")=RS1("RoleID") then%>selected<%end if%>><%=RS1("Name")%></option>
<%
			Rs1.MoveNext
		loop
	Rs1.Close
%>
			</select>		</td>
		<td width="600" colspan="2">&nbsp;帐号状态：<select name="UserAccountStatus" size="1">
				<option value="0" <%if Rs("UserAccountStatus")=0 then%>selected<%end if%>>正等待审核</option>
				<option value="1" <%if Rs("UserAccountStatus")=1 then%>selected<%end if%>>已通过审核</option>
				<option value="2" <%if Rs("UserAccountStatus")=2 then%>selected<%end if%>>已禁用</option>
				<option value="3" <%if Rs("UserAccountStatus")=3 then%>selected<%end if%>>未通过审核</option>
			</select>		</td>
	</tr>
	<tr id=CommonListCell>
		<td width="600" colspan="2">&nbsp;发主题数：<input size="10" name="TotalPosts" value="<%=Rs("TotalPosts")%>"></td>
		<td colspan="2">&nbsp;信任等级：<select name="ModerationLevel" size="1">
			<option value="1" <%if Rs("ModerationLevel")=True then%>selected<%end if%>>信任窝友</option>
			<option value="0" <%if Rs("ModerationLevel")=False then%>selected<%end if%>>非信任窝友</option>
		</select></td>
	</tr>
	<tr id=CommonListCell>
		<td colspan="2">&nbsp;积   分：<input size="10" name="UserMoney" value="<%=Rs("UserMoney")%>" /></td>
		<td width="600" colspan="2">&nbsp;邀 请 人：<input size="20" name="ReferrerName" value="<%=Rs("ReferrerName")%>" /></td>
	</tr>
	<tr id=CommonListCell>
		<td colspan="2">&nbsp;经 验 值：<input size="10" name="experience" value="<%=Rs("experience")%>" /></td>
		<td colspan="2">&nbsp;窝友头像：<input size="20" name="UserFaceUrl" value="<%=Rs("UserFaceUrl")%>"></td>
	</tr>
	<tr id=CommonListCell>
		<td width="1200" colspan="4">&nbsp;注册日期：<%=Rs("UserRegisterTime")%> （ＩＰ：<%=Rs("UserRegisterIP")%>）</td>
	</tr>
	<tr id=CommonListCell>
		<td width="1200" colspan="4">&nbsp;活动日期：<%=Rs("UserActivityTime")%> （ＩＰ：<%=Rs("UserActivityIP")%>）</td>
	</tr>
	<tr id=CommonListTitle3>
		<td colspan="4" align="center">基本资料</td>
	</tr>
	<tr id=CommonListCell>
	  <td width="600" colspan="2">&nbsp;名字： <input type="text" name="RealName" size="20" value="<%=Rs("RealName")%>" /></td>
		<td width="600" height="3" colspan="2">&nbsp;性别： <select size=1 name=UserSex>
				<option value=0 selected>[请选择]</option>
				<option value=1 <%if Rs("UserSex")=1 then%>selected<%end if%>>男</option>
				<option value=2 <%if Rs("UserSex")=2 then%>selected<%end if%>>女</option>
	  </select></td>
	</tr>
	<tr id=CommonListCell>
		<td width="600" colspan="2">&nbsp;生日： <input type="text" name="birthday" size="20" value="<%=Rs("birthday")%>"></td>
		<td width="600" colspan="2">&nbsp;地址： <input type="text" name="Address" size="20" value="<%=Rs("Address")%>"></td>
	</tr>
	<tr id=CommonListCell>
	  <td colspan="2">&nbsp;职业： <input type="text" name="Occupation" size="20" value="<%=Rs("Occupation")%>"></td>
	  <td colspan="2">&nbsp;兴趣： <input type="text" name="Interests" size="20" value="<%=Rs("Interests")%>"></td>
    </tr>
	<tr id=CommonListCell>
	  <td colspan="2">&nbsp;邮箱： <input type="text" name="UserEmail" size="20" value="<%=Rs("UserEmail")%>"></td>
	  <td colspan="2">&nbsp;主页： <input type="text" name="WebAddress" size="20" value="<%=Rs("WebAddress")%>"></td>
    </tr>
	<tr id=CommonListCell>
	  <td colspan="2">&nbsp;博客： <input type="text" name="WebLog" size="20" value="<%=Rs("WebLog")%>"></td>
	  <td colspan="2">&nbsp;相册： <input type="text" name="WebGallery" size="20" value="<%=Rs("WebGallery")%>"></td>
    </tr>
	<tr id=CommonListCell>
	  <td colspan="2">&nbsp;QQ ：　<input type="text" name="QQ" size="20" onkeyup=if(isNaN(this.value))this.value='' value="<%=QQ%>"></td>
	  <td colspan="2">&nbsp;ICQ：　<input type="text" name="ICQ" size="20" onkeyup=if(isNaN(this.value))this.value='' value="<%=ICQ%>"></td>
    </tr>
	<tr id=CommonListCell>
	  <td colspan="2">&nbsp;AIM：　<input type="text" name="AIM" size="20" value="<%=AIM%>"></td>
	  <td colspan="2">&nbsp;MSN：　<input type="text" name="MSN" size="20" value="<%=MSN%>"></b></td>
    </tr>
	<tr id=CommonListCell>
	  <td colspan="2">&nbsp;Yahoo：<input type="text" name="Yahoo" size="20" value="<%=Yahoo%>"></td>
	  <td colspan="2">&nbsp;Skype：<input type="text" name="Skype" size="20" value="<%=Skype%>"></b></td>
    </tr>
	<tr id=CommonListCell>
		<td width="600" colspan="4">&nbsp;签名：<textarea name="UserSign" rows="4" cols="60"><%=UserSign%></textarea></td>
	</tr>
	<tr id=CommonListCell>
		<td width="600" colspan="4">&nbsp;简介：<textarea name="UserBio" rows="4" cols="60"><%=UserBio%></textarea></td>
	</tr>
	<tr id=CommonListTitle3>
		<td width="600" align="center" ><a onclick="return window.confirm('您确定要删除该窝友所有发表过的主题?');" href="?menu=UserDelTopic&UserName=<%=Rs("UserName")%>">删除该窝友的所有主题</a></td>
		<td width="600" colspan="2" align="center" ><input type="submit" value=" 更 新 "></td>
		<td width="600" align="center" ><a onclick="return window.confirm('您确定要删除该窝友的所有资料?');" href="?menu=UserDel&UserID=<%=Rs("UserID")%>">删除该窝友的所有资料</a></td>
	</tr>
</table>
</form>
<%
End Sub

Sub UserDelTopic
	Conn.execute("Delete from [Wo_Threads] where PostAuthor='"&UserName&"'")
	Response.Write("已经将 "&UserName&" 所有发表过的主题全部删除")
End Sub

Sub UserDel
	for each ho in Request("UserID")
		ho=int(ho)
		if ho=CookieUserID then Alert("不能自己删除自己")
		Conn.execute("Delete from [Wo_Users] where UserID="&ho&"")
	next
	Response.Write("已经成功删除窝友ID为（"&Request("UserID")&"）的所有资料")
End Sub

Sub Userok
	birthday=HTMLEncode(Request.Form("birthday"))
	if Not IsDate(birthday) then birthday=null
	
	
	sql="select * from [Wo_Users] where UserName='"&UserName&"'"
	Rs.Open sql,Conn,1,3
		Rs("UserFaceUrl")=Request("UserFaceUrl")
		Rs("UserRoleID")=Request("UserRoleID")
		Rs("UserEmail")=Request("UserEmail")
		Rs("TotalPosts")=Request("TotalPosts")
		Rs("experience")=Request("experience")
		Rs("UserMoney")=Request("UserMoney")
		Rs("ReferrerName")=Request("ReferrerName")
		Rs("TotalPosts")=Request("TotalPosts")
		Rs("UserSign")=HTMLEncode(Request.Form("UserSign"))
		Rs("Interests")=HTMLEncode(Request.Form("Interests"))
		Rs("UserBio")=HTMLEncode(Request.Form("UserBio"))
		Rs("UserSex")=RequestInt("UserSex")
		Rs("UserAccountStatus")=Request("UserAccountStatus")
		Rs("ModerationLevel")=Request("ModerationLevel")
		Rs("birthday")=birthday
		XMLDOM.loadxml("<Wo>"&Rs("UserInfo")&"</Wo>")
		Set objRoot = XMLDOM.documentElement
		objRoot.SelectSingleNode("QQ").text = ""&server.HTMLEncode(Request("QQ"))&""
		objRoot.SelectSingleNode("ICQ").text = ""&server.HTMLEncode(Request("ICQ"))&""
		objRoot.SelectSingleNode("AIM").text = ""&server.HTMLEncode(Request("AIM"))&""
		objRoot.SelectSingleNode("MSN").text = ""&server.HTMLEncode(Request("MSN"))&""
		objRoot.SelectSingleNode("Yahoo").text = ""&server.HTMLEncode(Request("Yahoo"))&""
		objRoot.SelectSingleNode("Skype").text = ""&server.HTMLEncode(Request("Skype"))&""
		Set objNodes=XMLDOM.documentElement.ChildNodes
		for each element in objNodes
			UserInfoList=UserInfoList&"<"&element.nodename&">"&element.text&"</"&element.nodename&">"&vbCrlf
		next
		Rs("UserInfo")=UserInfoList
		Rs("RealName")=Request("RealName")
		Rs("Occupation")=Request("Occupation")
		Rs("Address")=Request("Address")
		Rs("WebAddress")=Request("WebAddress")
		Rs("WebLog")=Request("WebLog")
		Rs("WebGallery")=Request("WebGallery")
	Rs.update
	Rs.close
	Response.Write("更新成功")
End Sub



Sub UserRank
%>
<form method="POST" action=?menu=UserRankUp>
<table border="0" cellspacing="1" id=CommonListArea width=100%>
	<tr id=CommonListTitle3>
		<td width="50" align="center">ID</td>
		<td width="120">名称</td>
		<td width="120">最低经验数</td>
		<td>图标路径</td>
		<td width="50" align="center">管理</td>
	</tr>
<%
	sql="select * from [Wo_Ranks] order by PostingCountMin"
	Set Rs=Conn.Execute(sql)
	do while not Rs.eof
%>
	<tr id=CommonListCell>
		<td align="center"><%=Rs("RankID")%><input type=hidden name=RankID value=<%=Rs("RankID")%>></td>
		<td><input size="10" name="RankName<%=Rs("RankID")%>" value="<%=Rs("RankName")%>"></td>
		<td><input size="10" name="PostingCountMin<%=Rs("RankID")%>" value="<%=Rs("PostingCountMin")%>"></td>
		<td><input size="30" name="RankIconUrl<%=Rs("RankID")%>" value="<%=Rs("RankIconUrl")%>"> <img src="../<%=Rs("RankIconUrl")%>"></td>
		<td align="center"><a onclick="return window.confirm('您确定要执行该操作?');" href="?menu=UserRankDel&RankID=<%=Rs("RankID")%>">删除</a></td>
	</tr>
<%
		Rs.Movenext
	loop
	Set Rs = Nothing
%>
	<tr id=CommonListCell>
		<td align="center"><font color="#FF0000">增加</font></td>
		<td><input size="10" name="RankName" value=""></td>
		<td><input size="10" name="PostingCountMin" value=""></td>
		<td colspan="2"><input size="30" name="RankIconUrl" value=""></td>
	</tr>
</table>
<input type="submit" value=" 更 新 ">
</form>
<%
End Sub

Sub AllRoles
%><b>角色管理</b><br>创建/编辑角色，用来控制一个窝友在制定版块的权限。<br>
<table cellspacing="1" width="100%" border="0" id=CommonListArea>
	<tr id=CommonListTitle3>
		<td align="center">角色管理</td>
	</tr>
<%
	sql="select * from [Wo_Roles] order by RoleID"
	Set Rs=Conn.Execute(sql)
		Do While Not Rs.EOF 
%>
	<tr id=CommonListCell>
		<td><%if Rs("RoleID") > 3 then%><a href="?menu=ViewRole&RoleId=<%=Rs("RoleID")%>"><%end if%><b><%=Rs("Name")%></b></a><br><%=Rs("Description")%></td>
	</tr>
<%
			Rs.MoveNext
		loop
	Rs.Close
%>
	<tr id=CommonListCell>
		<td>
		<form name="form" method="POST" action="?menu=CreateRole">
			<input name="RoleName" onkeyup="ValidateTextboxAdd(this, 'RoleName1')" onpropertychange="ValidateTextboxAdd(this, 'RoleName1')" size="50"><input type="submit" value="创建" id="RoleName1" disabled></form>
		</td>
	</tr>
</table>
<%
End Sub

Sub ViewRole
	if  RoleId<4 then PostDisabled="disabled"
	Rs.Open "select * from [Wo_Roles] where RoleID="&RoleId&"",Conn,1
%><form name="form" method="POST" action="?menu=UpRole&RoleID=<%=RoleID%>">
	<table cellspacing="1" width="100%" border="0" id=CommonListArea>
		<tr id=CommonListTitle3>
			<td align="center" colspan="2">角色管理</td>
		</tr>
		<tr id=CommonListCell>
			<td>RoleID</td>
			<td width="50%"><%=Rs("RoleID")%></td>
		</tr>
		<tr id=CommonListCell>
			<td>名称</td>
			<td width="50%"><input name="RoleName" size="50" value="<%=Rs("Name")%>"></td>
		</tr>
		<tr id=CommonListCell>
			<td>描述</td>
			<td width="50%"><input name="Description" size="50" value="<%=Rs("Description")%>"></td>
		</tr>
		<tr id=CommonListCell>
			<td colspan="2" align="right"><input <%=PostDisabled%> type="button" value="删除" onclick="document.location.href='?menu=DelRole&amp;RoleID=<%=RoleID%>'"><input <%=PostDisabled%> type="submit" value="保存"></td>
		</tr>
	</table>
</form>
<%
	Rs.close
End Sub


Set XMLDOM=Nothing

%>