admin_postings.asp

功能强大的bbs

		DelID=Request("DelID")
		If delid="" Then
			Dvbbs.AddErrCode(35)
			Exit Sub
		End If
		delid=Split(delid,",")
		Dim i
		j=0
		For i= 0 to UBound(delid)
			If delid(i)<>"" Then
				If IsNumeric(Trim(delid(i))) Then
					j=j+1
					replyID=Trim(delid(i))
					dele(0)
				End If
			End If
		Next
		If j>0 Then 
			Dvbbs.Dvbbs_Suc(SucMsgInfo("批量删除"&j&"个跟贴,您的操作已经记录"))
		Else
			Dvbbs.AddErrCode(35)
		End If 
	End Sub
	Public Sub main_a()
		Dim seldisable,reaction
		Dim postusername,DelUpFile
		DelUpFile=0
		Select Case Request("action")
		Case "锁定"
			If Not CanAwardTopic Then seldisable="disabled"
			reaction="lock"
			If not CanLockTopic Then Dvbbs.AddErrCode(28)
		Case "解锁"
			If Not CanAwardTopic Then seldisable="disabled"
			reaction="unlock"
			If not CanLockTopic Then Dvbbs.AddErrCode(28)
		Case "提升"
			If Not CanAwardTopic Then seldisable="disabled"
			reaction="uptopic"
			If not CanLockTopic Then Dvbbs.AddErrCode(28)
		Case "删除主题"
			doWealth=-Dvbbs.Forum_user(3)
			douserEP=-Dvbbs.Forum_user(8)
			douserCP=-Dvbbs.Forum_user(13)
			If Not CanAwardTopic Then seldisable="disabled"
			reaction="delet"
			If not CanDelTopic Then Dvbbs.AddErrCode(28)
			If SysObjFso=True Then DelUpFile=1
		Case "删除跟帖"
			doWealth=-Dvbbs.Forum_user(3)
			douserEP=-Dvbbs.Forum_user(8)
			douserCP=-Dvbbs.Forum_user(13)
			If Not CanAwardTopic Then seldisable="disabled"
			reaction="dele"
			Check_AnnounceInfo()
			If Dvbbs.ErrCodes<>"" Then Exit Sub
			'判断用户是否有删除帖子权限
			If (Cint(Dvbbs.GroupSetting(11))=1 and TopicUsername=Dvbbs.MemberName) Then LocalCanDelTopic=True
			If Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(11))=1 and TopicUsername=Dvbbs.MemberName Then
				LocalCanDelTopic=True
			ElseIf Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(11))=0 and TopicUsername=Dvbbs.MemberName Then
				LocalCanDelTopic=False
			End If
			If Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(18))=1 and TopicUsername<>Dvbbs.MemberName Then
				LocalCanDelTopic=True
			ElseIf Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(18))=0 and TopicUsername<>Dvbbs.MemberName Then
				LocalCanDelTopic=False
			End If
			If Not CanDelTopic Then Dvbbs.AddErrCode(28)
			If SysObjFso=True Then DelUpFile=1
		Case "单帖屏蔽"
			doWealth=-Dvbbs.Forum_user(15)
			douserEP=-Dvbbs.Forum_user(17)
			douserCP=-Dvbbs.Forum_user(16)
			If Not CanAwardTopic Then seldisable="disabled"
			reaction="islockpage"
			Check_AnnounceInfo()
			If Dvbbs.ErrCodes<>"" Then Exit Sub
			If Not CanBestTopic Then Dvbbs.AddErrCode(28)
		Case "解除屏蔽"
			doWealth=Dvbbs.Forum_user(15)
			douserEP=Dvbbs.Forum_user(17)
			douserCP=Dvbbs.Forum_user(16)
			If Not CanAwardTopic Then seldisable="disabled"
			reaction="nolockpage"
			Check_AnnounceInfo()
			If Dvbbs.ErrCodes<>"" Then Exit Sub
			If Not CanBestTopic Then Dvbbs.AddErrCode(28)

		Case "精华"
			doWealth=Dvbbs.Forum_user(15)
			douserEP=Dvbbs.Forum_user(17)
			douserCP=Dvbbs.Forum_user(16)
			If Not CanAwardTopic Then seldisable="disabled"
			reaction="isbest"
			Check_AnnounceInfo()
			If Dvbbs.ErrCodes<>"" Then Exit Sub
			If Not CanBestTopic Then Dvbbs.AddErrCode(28)
		Case "解除精华"
			doWealth=-Dvbbs.Forum_user(15)
			douserEP=-Dvbbs.Forum_user(17)
			douserCP=-Dvbbs.Forum_user(16)
			If Not CanAwardTopic Then seldisable="disabled"
			reaction="nobest"
			Check_AnnounceInfo()
			If Dvbbs.ErrCodes<>"" Then Exit Sub
			If not CanBestTopic Then Dvbbs.AddErrCode(28)
		Case "复制"
			seldisable="disabled"
			reaction="copy"
			Check_AnnounceInfo()
			If Dvbbs.ErrCodes<>"" Then Exit Sub
			'判断用户是否有移动帖子权限
			If (Cint(Dvbbs.GroupSetting(12))=1 and TopicUsername=Dvbbs.MemberName) Then LocalCanMoveTopic=True
			If Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(12))=1 and TopicUsername=Dvbbs.MemberName Then
				LocalCanMoveTopic=True
			ElseIf Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(12))=0 and TopicUsername=Dvbbs.MemberName Then
				LocalCanMoveTopic=False
			End If
			If Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(19))=1 and TopicUsername<>Dvbbs.MemberName Then
				LocalCanMoveTopic=True
			ElseIf Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(19))=0 and TopicUsername<>Dvbbs.MemberName Then
				LocalCanMoveTopic=False
			End If
			If Not CanMoveTopic Then Dvbbs.AddErrCode(28)
		Case "设置固顶"
			If Not CanAwardTopic Then seldisable="disabled"
			reaction="istop"
			If CanTopTopic Or CanTopTopic_a Or CanTopTopic_m Then
			Else
				Dvbbs.AddErrCode(28)
			End If
		Case "编辑固顶"
			If Not CanAwardTopic Then seldisable="disabled"
			reaction="istop"
			If CanTopTopic Or CanTopTopic_a Or CanTopTopic_m Then
			Else
				Dvbbs.AddErrCode(28)
			End If
		Case "移动"
			seldisable="disabled"
			reaction="move"
			If Not CanMoveTopic Then Dvbbs.AddErrCode(28)
		Case "奖励"
			seldisable=""
			reaction="award"
			If Not CanAwardTopic Then Dvbbs.AddErrCode(28)
		Case "惩罚"
			doWealth=-5
			douserEP=-1
			douserCP=-2
			seldisable=""
			reaction="punish"
			If Not CanAwardTopic Then Dvbbs.AddErrCode(28)
		Case "专题管理"
			If Not CanMoveTopic Then Dvbbs.AddErrCode(28)
			reaction="TopicMode"
		Case "跟贴管理"
			doWealth=-Dvbbs.Forum_user(3)
			douserEP=-Dvbbs.Forum_user(8)
			douserCP=-Dvbbs.Forum_user(13)
			Check_topicInfo()
			If Dvbbs.ErrCodes<>"" Then Exit Sub
			'判断用户是否有删除帖子权限
			If (Cint(Dvbbs.GroupSetting(11))=1 and TopicUsername=Dvbbs.MemberName) Then LocalCanDelTopic=True
			If Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(11))=1 and TopicUsername=Dvbbs.MemberName Then
				LocalCanDelTopic=True
			ElseIf Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(11))=0 and TopicUsername=Dvbbs.MemberName Then
				LocalCanDelTopic=False
			End If
			If Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(18))=1 and TopicUsername<>Dvbbs.MemberName Then
				LocalCanDelTopic=True
			ElseIf Dvbbs.FoundUserPer and Cint(Dvbbs.GroupSetting(18))=0 and TopicUsername<>Dvbbs.MemberName Then
				LocalCanDelTopic=False
			End If
			If Not CanDelTopic Then Dvbbs.AddErrCode(28)
			Dim Star,i,j,treedata,tmpstr,blank
			Star=Request("Star")
			If Star="" Then Star=1
			If Not IsNumeric(Star) Then star=1
			Set Rs=server.createobject("adodb.recordset")
			sql="select AnnounceID,parentID,BoardID,UserName,PostUserid,Topic,DateAndTime,length,RootID,layer,orders,Expression,body from "&TotalUseTable&" where BoardID="&Dvbbs.BoardID&" and RootID="&ID&" and BoardID<>777 and BoardID<>444 order by RootID desc,orders"
			rs.open sql,conn,1,1
			j=0
			If Not(Rs.EOF And Rs.BOF) Then
				Rs.PageSize=Cint(Dvbbs.Board_Setting(27))
				Rs.AbsolutePage=Star
				Do while Not Rs.EOF
				treedata=template.html(6)
				For i=1 to Rs(9)
					blank=blank&"&nbsp;"
				Next
				If Rs("topic")="" or isnull(rs("topic")) Then 
					treedata=Replace(treedata,"{$topic}",cutStr(replace(reubbcode(Dvbbs.ChkBadWords(rs("body"))),chr(10),""),35))
				Else
					treedata=Replace(treedata,"{$topic}",cutStr(Dvbbs.ChkBadWords(rs("Topic")),35))
				End If		
				If j=0 Then
					If star=1 Then 
						treedata=Replace(treedata,"{$del}","")
						treedata=Replace(treedata,"{$alertcolor}",Dvbbs.mainsetting(1))
					Else
						treedata=Replace(treedata,"{$del}"," <input type=""checkbox"" name=""DelID"" value="""&Rs(0)&""">")
						treedata=Replace(treedata,"{$alertcolor}","")
					End If
					
				Else
					treedata=Replace(treedata,"{$del}"," <input type=""checkbox"" name=""DelID"" value="""&Rs(0)&""">")
					treedata=Replace(treedata,"{$alertcolor}","")
				End If 
				treedata=Replace(treedata,"{$announceid}",Rs(0))
				treedata=Replace(treedata,"{$boardid}",Rs(2))
				treedata=Replace(treedata,"{$username}",Rs(3))
				treedata=Replace(treedata,"{$DateAndTime}",Rs(6))
				If Rs(7)=0 Then 
					treedata=Replace(treedata,"{$length}","无内容")
				Else
					treedata=Replace(treedata,"{$length}",Rs(7)&"字节")
				End If
				treedata=Replace(treedata,"{$rootid}",Rs(8))
				treedata=Replace(treedata,"{$Expression}",Rs(11))
				treedata=Replace(treedata,"{$blank}",blank)
				blank=""
				tmpstr=tmpstr&treedata
				Rs.MoveNext
				j=j+1
				If j=Cint(Dvbbs.Board_Setting(27)) Then Exit Do
				Loop
			End If
			template.html(5) = Replace(template.html(5),"{$id}",ID)
			template.html(5) = Replace(template.html(5),"{$boardid}",Dvbbs.boardid)
			template.html(5) = Replace(template.html(5),"{$reaction}",reaction)
			template.html(5) = Replace(template.html(5),"{$seldisable}",seldisable)
			template.html(5) = Replace(template.html(5),"{$doWealth}",doWealth)
			template.html(5) = Replace(template.html(5),"{$dousercp}",dousercp)
			template.html(5) = Replace(template.html(5),"{$douserep}",douserep)
			template.html(5) = Replace(template.html(5),"{$fileconfirm}",DelUpFile)
			template.html(5) = Replace(template.html(5),"{$action}",request("action"))
			template.html(5) = Replace(template.html(5),"{$treeloop}",tmpstr)
			Response.Write template.html(5)
			Endpage=Rs.PageCount
			Response.Write "<table border=0 cellpadding=0 cellspacing=3 width="""&Dvbbs.mainsetting(0)&""" align=center>"
			Response.Write "<tr><td valign=middle nowrap>"
			Response.Write "页次：<b>"&Star&"</b>/<b>"&Endpage&"</b>页"
			Response.Write "每页<b>"& Dvbbs.Board_Setting(27) &"</b> 贴数<b>"& Rs.RecordCount &"</b></td>"
			Response.Write "<td valign=middle nowrap><div align=right><p>分页： <b>"
			Dim Endpage
			If Star > 4 Then
				Response.Write "<a href=""admin_postings.asp?action=跟贴管理&BoardID="&Dvbbs.BoardID&"&ID="&ID&"&star=1"">[1]</a> ..."
			End If
			
			If Endpage >Star+3 Then
				Endpage=Star+3
			End If
			For i=Star-3 to Endpage
				If Not i<1 Then
					If i = CLng(star) Then
						response.write " <font color="&dvbbs.mainsetting(1)&">["&i&"]</font>"
					Else
						Response.Write " <a href=""admin_postings.asp?action=跟贴管理&BoardID="&Dvbbs.BoardID&"&ID="&ID&"&star="&i&""">["&i&"]</a>"
					End If
				End If
			Next
			If star+3 < Rs.PageCount Then
				response.write "... <a href=""admin_postings.asp?action=跟贴管理&BoardID="&Dvbbs.BoardID&"&ID="&ID&"&star="&Rs.PageCount&""">["&Rs.PageCount&"]</a></b>"
			End If
			Response.Write "</p></div></td></tr></table>"
			Set Rs=Nothing
			Response.Write "<script language=""JavaScript"">"
			Response.Write Chr(10)
			Response.Write "<!--"
			Response.Write Chr(10)
			Response.Write "function CheckAll(form) {"
			Response.Write Chr(10)
			Response.Write "for (var i=0;i<form.elements.length;i++){"
			Response.Write Chr(10)
			Response.Write "var e = form.elements[i];"
			Response.Write Chr(10)
			Response.Write "if (e.name != 'chkall')  e.checked = form.chkall.checked;"
			Response.Write Chr(10)
			Response.Write "}"
			Response.Write Chr(10)
			Response.Write "}"
			Response.Write Chr(10)
			Response.Write "//-->"
			Response.Write Chr(10)
			Response.Write "</script>"
			Response.Write Chr(10)		
			Exit Sub
		Case Else
			Dvbbs.AddErrCode(35)
			Exit Sub
		End Select
		Dim TempStr
		TempStr = template.html(0)
		TempStr = Replace(TempStr,"{$reaction}",reaction)
		TempStr = Replace(TempStr,"{$action}",request("action"))
		TempStr = Replace(TempStr,"{$seldisable}",seldisable)
		TempStr = Replace(TempStr,"{$doWealth}",doWealth)
		TempStr = Replace(TempStr,"{$dousercp}",dousercp)
		TempStr = Replace(TempStr,"{$douserep}",douserep)
		TempStr = Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
		TempStr = Replace(TempStr,"{$id}",id)
		TempStr = Replace(TempStr,"{$replyid}",replyid)
		TempStr = Replace(TempStr,"{$fileconfirm}",DelUpFile)     
		Response.Write TempStr
	End Sub

	Public Function Check_AnnounceInfo()
		Set Rs=Dvbbs.Execute("Select topic,username,postuserID From "&TotalUseTable&" Where boardid="&dvbbs.boardid&" and AnnounceID="&replyID)
		If Rs.Eof And Rs.Bof Then
			Dvbbs.AddErrCode(32)
			Exit Function
		End If
		Topic=rs(0)
		TopicUsername=rs(1)
		TopicUserID=Clng(rs(2))
	End Function
	Public Function Check_topicInfo()
		Set Rs=Dvbbs.Execute("Select topic,username,postuserID From "&TotalUseTable&" Where ParentID=0 and boardid="&dvbbs.boardid&" and RootID="&ID)
		If Rs.Eof And Rs.Bof Then
			Dvbbs.AddErrCode(32)
			Exit Function
		End If
		Topic=rs(0)
		TopicUsername=rs(1)
		TopicUserID=Clng(rs(2))
	End Function
	Public Function Insert_Forum_Log()
		Dvbbs.Execute("Insert Into Dv_Log (l_AnnounceID,l_BoardID,l_touser,l_username,l_content,l_ip,l_type) values (" & ID & "," & Dvbbs.BoardID & ",'" & Dvbbs.CheckStr(TopicUsername) & "','" & Dvbbs.MemberName & "','" & Dvbbs.CheckStr(sucmsg) & "','" & IP & "',"&LogType&")")
	End Function

	Public Function Update_User_Point(SQLSTR)
		If allmsg<>"" Then
		Dvbbs.Execute("Update [Dv_user] Set userWealth=userWealth+"&doWealth&",userCP=userCP+"&douserCP&",userEP=userEP+"&douserEP&" "&SQLSTR&" Where UserID="&TopicUserID)
		End If
	End Function

	Public Function Topic_Manage_Sms()