users.asp

网趣系统时尚版8（支付宝）

<!--#include file="Check.Asp"-->
<!--#include file="../Inc/Page_Cls.Asp"-->
<%
Select Case Request("action")
Case "Classedit"
	UserClassEdit
Case "saveeditClass"
	SaveEditClass
Case "Classadd"
	UserClassAdd
Case "saveaddClass"
	SaveAddClass
Case "UserClass"
	UserClass
Case "EditUser"
	EditUser
Case "UserEdit"
	UserEdit
Case "updateGrade"
	UpdateUserGrade
Case "addGrade"
	UserGradeAdd
Case "SaveAddGrade"
	SaveAddGrade
Case "UserGrade"
	UserGrade
Case "DelUserGrade"
	DelUserGrade
Case "DelUserclass"
        DelUserclass
 Case "update"
	Call UpDateUserData()
 Case Else
	Call ShowUserList()
End Select

Call AdminFooter()

Sub UpDateUserData
	Dim UserAction,UserID,ClassID,SuccStr,TopicCount,Flag,i,Urs,AllTable
	UserAction=Request.form("UserAction")
	UserID=Request.form("UserID")
	ClassID=Request.form("ClassID")
	if replace(UserID,",","")="" then
		Call GoBack("","请选择相应的用户！")
		Exit Sub
	end if
	
	'response.write UserID
	'response.end
	Select Case UserAction
		Case 1
			YxBBs.Execute("update [YX_User] Set IsShow=true Where ID in (" &UserID& ")")
			Call Suc("","成功屏蔽用户发言！","Users.Asp")
		Case 2
			YxBBs.Execute("update [YX_User] Set IsShow=false Where ID in (" &UserID& ")")
			Call Suc("","成功解除屏蔽用户发言！","Users.Asp")
		Case 3
			'计算被删贴子数
			Set Urs=Conn.Execute("Select Name from [YX_User] where ID in (" &UserID& ")")
				while not Urs.eof
					AllTable=Split(YxBBs.BBSTable(0),",")
					For i=0 To uBound(AllTable)
						YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where Name='"&Urs(0)&"'")
						YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where ReplyTopicID in (Select TopicID From[YX_Topic] where Name='"&Urs(0)&"')")
					Next
					YxBBs.Execute("Delete From[YX_Topic] where  Name='"&Urs(0)&"'")
					YxBBs.Execute("Delete From[YX_Sms] where  MyName='"&Urs(0)&"'")
					YxBBs.Execute("Delete From[YX_Admin] where UserName='"&Urs(0)&"'")
					YxBBs.Execute("Delete From[YX_User] where Name='"&Urs(0)&"'")
					Urs.MoveNext
				wend
			Set Urs=nothing
			Call Suc("","所选用户（包括所有帖子、留言等）已经被彻底删除！","Users.Asp")
		Case 4
			'计算被删贴子数
			Set Urs=Conn.Execute("Select Name from [YX_User] where ID in (" &UserID& ")")
				while not Urs.eof
					AllTable=Split(YxBBs.BBSTable(0),",")
					For i=0 To uBound(AllTable)
					YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where Name='"&Urs(0)&"'")
					YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where ReplyTopicID in (Select TopicID From[YX_Topic] where Name='"&Urs(0)&"')")
					Next
					YxBBs.Execute("Delete From[YX_Topic] where Name='"&Urs(0)&"'")
					Urs.MoveNext
				wend
			Set Urs=nothing
			Call Suc("","成功删除所选用户发表的所有帖子！","Users.Asp")
		Case 5
			set rs=Conn.execute("Select GradeNum,GradeName,GradePic from YX_UserGrade Where ClassID="&ClassID)
			if rs.eof or rs.bof then
				Call GoBack("错误提示","没有此用户组或已被删除。")
				Exit sub
			End if
			Conn.Execute("Update YX_User set GradeNum="&Rs("GradeNum")&",GradeName='"&rs("GradeName")&"',GradePic='"&rs("GradePic")&"',ClassID="&ClassID&" where ID in (" &UserID& ")")
			Set rs=nothing
			Call Suc("","成功转移所选用户!","Users.Asp")
	End select
End Sub

Sub ShowUserList()
Dim Action,WhereSql,OrderSql,Order,PageInfo,Keyword,search,ClassID
Order=Request.QueryString("Order")
Keyword=Request.QueryString("Keyword")
search=Request.QueryString("search")
ClassID=Request.QueryString("ClassID")
Action=Lcase(Request.QueryString("Action"))
WhereSql="ID<>0"
If ClassID<>"" Then WhereSql=WhereSql&" And ClassID="&ClassID
If Keyword<>"" then
	if search="1" then
		WhereSql=WhereSql&" And Mail like '%"&KeyWord&"%'"
	else
		WhereSql=WhereSql&" And Name like '%"&KeyWord&"%'"
	end if
end if

Select Case Action
	Case"sex"
		OrderSql="Sex"
	Case"coin"
		OrderSql="Coin"
	Case"essay"
		OrderSql="EssayNum"
	Case"mark"
		OrderSql="Mark"
	Case"regtime"
		OrderSql="RegTime"
	Case"grade"
		OrderSql="GradeNum"
	Case else
		OrderSql="ID"
End select
IF Order<>"1" Then OrderSql =OrderSql&" Desc"
Response.Write "<table align=center width='95%' border='0' cellpadding='6' cellspacing='1' Bgcolor=#FFFFFF>"&_
"<tr Bgcolor=#CCCCCC><td colspan=6>查看按：<a href=?Action=Sex&Order="&Order&"&Search="&Search&"&Keyword="&Keyword&"&ClassID="&ClassID&">姓别</a>&nbsp;/&nbsp;<a href=?Action=Essay&Order="&Order&"&Search="&Search&"&Keyword="&Keyword&"&ClassID="&ClassID&">贴数</a>&nbsp;/&nbsp;<a href=?Action=Coin&Order="&Order&"&Search="&Search&"&Keyword="&Keyword&"&ClassID="&ClassID&">金钱</a>&nbsp;/&nbsp;<a href=?Action=Mark&Order="&Order&"&Search="&Search&"&Keyword="&Keyword&"&ClassID="&ClassID&">Y币</a>&nbsp;/&nbsp;<a href=?Action=RegTime&Order="&Order&"&Search="&Search&"&Keyword="&Keyword&"&ClassID="&ClassID&">注册时间</a>&nbsp;/&nbsp;<a href=?Action=Grade&Order="&Order&"&Search="&Search&"&Keyword="&Keyword&"&ClassID="&ClassID&">等级</a></td><td colspan=3> 排序方式：<a href=?Action="&Action&"&Order=1&Search="&Search&"&Keyword="&Keyword&"&ClassID="&ClassID&">顺</a> / <a href=?Action="&Action&"&Order=2&Search="&Search&"&Keyword="&Keyword&"&ClassID="&ClassID&">倒</a></td></tr>"
	Dim Pages,Page,arr_Rs,i,Temp,Content
	Page = Request.QueryString("page")
	Set pages = New Cls_PageView
	pages.strTableName = "[YX_User]"
	pages.strPageUrl = "?Action="&Action&"&Order="&Order&"&Search="&Search&"&Keyword="&Keyword&"&ClassID="&ClassID
	pages.strFieldsList = "ID,Name,Sex,Mail,EssayNum,Coin,Mark,RegTime,GradeName"
	pages.strCondiction = WhereSql
	pages.strOrderList = OrderSql
	Pages.strPrimaryKey = "ID"
	pages.intPageSize = 20
	pages.intPageNow = Page
	pages.strCookiesName = "Members"&KeyWord&search&ClassID
	pages.Reloadtime=3
	pages.strPageVar = "page"
	pages.InitClass
	Arr_Rs = pages.arrRecordInfo
	PageInfo = pages.strPageInfo
	page=pages.intPageNow
	Set pages = nothing
	Response.Write "<form method=""POST"" action=""?action=update"" name=""recycle""><tr Bgcolor=#EFEFEF><td height=25 colspan=9>用户信息管理</td></tr><tr height=25 bgcolor=#CCCCCC align=center><td width='20%'><b>用户名</b></td><td width='10%'><b>性别</b></td><td width='10%'><b>E-mail</b></td><td width='10%'><b>发帖数</b></td><td width='10%'><b>金钱</b></td><td width='10%'><b>Y币</b></td><td width='15%'><b>注册时间</b></td><td width='15%'><b>等级</b></td><td><input type=checkbox value=""on"" name=""chkall"" onclick=""CheckAll(this.form)""></td></tr>"
	If IsArray(Arr_Rs) Then
		For i = 0 to UBound(Arr_Rs, 2)
			If Arr_Rs(2,i) Then Temp="男" Else Temp="女"
			Response.Write "<tr Height=25 Bgcolor=#EFEFEF><td align='center'><a href='?action=UserEdit&UserID="&Arr_Rs(0,i)&"'>"&Arr_Rs(1,i)&"</a></td><td align='center'>"&Temp&"</td><td align='center'><a href='mailto:"&Arr_Rs(3,i)&"'><img src='../images/mail.gif' border='0'></a></td><td align='center'>"&Arr_Rs(4,i)&"</td><td align='center'>"&Arr_Rs(5,i)&"</td><td align='center'>"&Arr_Rs(6,i)&"</td><td align='center'>"&Formatdatetime(Arr_Rs(7,i),2)&"</td><td align='center'>"&Arr_Rs(8,i)&"</td><td><input type=""checkbox"" name=""UserID"" value="""&Arr_Rs(0,i)&"""></td></tr>"
		Next
	End If
	Response.Write "<tr><td bgcolor=#e7e7e7 colspan=9 align=center><input type=""radio"" value=""1"" name=""useraction""> 屏蔽用户 <input type=""radio"" value=""2"" name=""useraction""> 解除屏蔽 <input type=""radio"" value=""3"" name=""useraction""> 删除用户资料 <input type=""radio"" value=""4"" name=""useraction""> 删除用户帖子 <input type=""radio"" value=""5"" name=""useraction"" checked> 移动到用户组 <select size=""1"" name=""ClassID"">"
		Dim UCL
		set UCL=Conn.execute("Select ClassID,ClassName from YX_UserClass Where ClassID<>6 order by ClassID asc")
		while not UCL.eof
			If UCL(0)=5 Then
				Response.Write "<option value="&UCL(0)&" selected>"&UCL(1)&"</option>"
			Else
				Response.Write "<option value="&UCL(0)&">"&UCL(1)&"</option>"
			End If
		UCL.MoveNext
		wend
		set UCL=nothing
	Response.Write "</select> <input type=""submit"" value=""执行操作"" name=""B1"" onclick=""{if(confirm('确定执行选择的操作吗?')){this.document.recycle.submit();return true;}return false;}""></td></tr>"
	Response.Write "</form><tr><td height=25 colspan=9 Bgcolor=#CCCCCC>"&PageInfo&"</td></tr></table>"
%>
<br>
<form>
<table width=95% border=0 align="center" cellpadding=6 cellspacing=1 bgcolor="#FFFFFF">
	<tr>
	<td bgcolor=#e7e7e7 align=center>
	<font color="#800000">搜索 <select size="1" name="search">
		<option value=0>用户名</option>
		<option value=1>Email</option>
	</select>&nbsp; <input type="text" name="keyword" size="20"> 
	<input type="Submit" value="查找" name="B1"></font></td></tr>	
  </table>
 </form>
<script language="JavaScript">
<!--
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>
<%
End Sub
%>

<%
Sub UpdateUserGrade
Server.ScriptTimeout=99999999
dim GradeNum,GradeName,GradePic,UserMinPostNum,ClassID,i
for i=1 to Request.form("GradeNum").count
	GradeNum=replace(Request.form("GradeNum")(i),"'","")
	GradeName=replace(Request.form("GradeName")(i),"'","")
	GradeNum=replace(Request.form("GradeNum")(i),"'","")
	GradePic=replace(Request.form("GradePic")(i),"'","")
	UserMinPostNum=replace(Request.form("UserMinPostNum")(i),"'","")
	ClassID=replace(Request.form("ClassID")(i),"'","")
	if isNumeric(GradeNum) and GradeName<>"" and GradePic<>"" and isNumeric(UserMinPostNum) and isNumeric(ClassID) and isNumeric(GradeNum)then
		Dim Rs
		set Rs=Conn.execute("Select GradeNum,GradeName,GradePic,ClassID from YX_User where GradeNum="&GradeNum)
		if not rs.eof then
			if rs("GradeName")<>GradeName or rs("GradePic")<>GradePic or rs("ClassID")<>Cint(ClassID) then
				Conn.execute("Update YX_User set GradeNum=" & GradeNum & ",GradeName='"& GradeName &"',GradePic='"& GradePic&"',ClassID="&ClassID&" where GradeName='"& rs("GradeName") &"'")
			end if
		end if
		Set Rs=Nothing
		Conn.execute("Update YX_UserGrade set GradeName='"&GradeName &"',GradeNum="&GradeNum&",GradePic='"&GradePic&"',UserMinPostNum="&UserMinPostNum&",ClassID="&ClassID&" where GradeNum="&GradeNum)
	End if
next
Call Suc("","用户等级设置成功！","?Action=UserGrade")
End sub


Sub UserGrade
%>
	<form method="POST" action="?action=updateGrade">
		<table width=95% border=0 align="center" cellpadding=6 cellspacing=1 bgcolor="#FFFFFF">
		<tr>
	<td bgcolor=#e7e7e7 colspan=6 align=center>
	<font color="#800000"><b>用 户 等 级 管 理</b></font></td></tr> 
 		<tr>
		<td bgcolor=#d7d7d7 align="center">名称</td>		
		<td bgcolor=#d7d7d7 width="12%" align="center">等级</td>		
		<td bgcolor=#d7d7d7 width="20%" align="center">图片</td>		
		<td bgcolor=#d7d7d7 width="15%" align="center">最少发贴量</td>		
		<td bgcolor=#d7d7d7 width="15%" align="center">所属用户组ID</td>		
		<td bgcolor=#d7d7d7 width="10%" align="center">操作</td>		
		</tr>
		<%
		Dim Rs
		set rs=Conn.execute("select * from YX_UserGrade order by GradeID asc")
		while not rs.eof 
		%>
 		<tr>
		<td bgcolor=#d7d7d7 align="center">
		<INPUT TYPE="hidden" name="GradeID" value="<%=rs("GradeID")%>">
		<input type="text" name="GradeName" size="23" value="<%=rs("GradeName")%>"></td>		
		<td bgcolor=#d7d7d7 align="center">
		<input type="text" name="GradeNum" size="12" value="<%=rs("GradeNum")%>"></td>		
		<td bgcolor=#d7d7d7 align="center">
		<input type="text" name="GradePic" size="17" value="<%=rs("GradePic")%>"></td>		
		<td bgcolor=#d7d7d7 align="center">
		<input type="text" name="UserMinPostNum" size="13" value="<%=rs("UserMinPostNum")%>"></td>		
		<td bgcolor=#d7d7d7 align="center">
		<input type="text" name="ClassID" size="10" value="<%=rs("ClassID")%>"></td>		
		<td bgcolor=#d7d7d7 align="center"><a href="?Action=DelUserGrade&GradeID=<%=rs("GradeID")%>">删除</a></td>		
		</tr> 
		<%
		rs.movenext
		wend
		rs.close
		set rs=nothing
		%>
		<tr>
		<td bgcolor=#e7e7e7 colspan=6 align=center>
		<input type="submit" value="提交" name="B1"></td></tr>
	</table>
	</form>

<%
End Sub

Sub DelUserGrade
dim GradeID
GradeID=request("GradeID")
YxBBs.Execute("Delete * From [YX_UserGrade] where GradeID="&GradeID&"")
Call Suc("","用户等级删除成功！建议您到更新用户数据中进行更新操作！","?Action=UserGrade")
End Sub

Sub DelUserclass
dim ClassID
ClassID=request("ClassID")
YxBBs.Execute("Delete * From [YX_UserClass] where ClassID="&ClassID&"")
Call Suc("","用户组删除成功！建议您到更新用户数据中进行更新操作！","?Action=UserClass")
End Sub

Sub SaveAddGrade
	dim GradeName,GradeNum,GradePic,UserMinPostNum,ClassID,flag,ErrStr
	GradeName=Request.form("Gradename")
	GradeNum=Request.form("GradeNum")
	GradePic=Request.form("GradePic")
	UserMinPostNum=Request.form("UserMinPostNum")
	ClassID=Request.form("ClassID")
	flag=false
	ErrStr=""
	if GradeName="" then
		ErrStr="<li>等级名没写。<br>"
		flag=true
	end if
	
	if GradeNum="" then
		ErrStr=ErrStr&"<li>等级序号没写。<br>"
		flag=true
	elseif Not isNumeric(GradeNum) then
		ErrStr=ErrStr&"<li>等级序号只能是数字。<br>"
		flag=true
	end if
	
	if GradePic="" then
		ErrStr=ErrStr&"<li>等级图片没有。<br>"
		flag=true
	end if
	
	if UserMinPostNum="" then
		ErrStr=ErrStr&"<li>新的等级需要文章数没写"
		flag=true
	elseif Not isNumeric(UserMinPostNum) then
		ErrStr=ErrStr&"<li>新的等级文章数只能是数字"
		flag=true
	end if
	
	if flag then
		Call GoBack("错误提示",ErrStr)
		exit sub
	end if