indivgroup_postmanage.asp

公司企业网站管理系统全站源码,用于企业内部对网站的管理

<!--#include file="Conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="Dv_plus/IndivGroup/Dv_IndivGroup_Config.asp"-->
<!--#include file="Dv_plus/IndivGroup/Dv_IndivGroup_MainCls.asp"-->
<%
Dim PostManage
Dvbbs.LoadTemplates("indivgroup")
'Dvbbs.SHOWSQL = 1
If Dv_IndivGroup_MainClass.ID=0 Or Dv_IndivGroup_MainClass.Name="" Then Response.redirect "showerr.asp?ErrCodes=对不起，你访问的圈子不存在或已经被删除&action=OtherErr"
If Dv_IndivGroup_MainClass.BoardID=0 Then Response.redirect "showerr.asp?ErrCodes=错误的栏目ID参数！请确认您是从有效的连接进入。&action=OtherErr"

Dv_IndivGroup_MainClass.Stats="帖子管理"
Dvbbs.Nav()
Dv_IndivGroup_MainClass.Head_var 1,"",""
Set PostManage=New Dv_PostManage_Forum
PostManage.main
Dvbbs.ActiveOnline()
Set PostManage=Nothing
Dvbbs.Footer()

Class Dv_PostManage_Forum
	Public TopicID,Topic,TopicUserName,TopicUserID,IsBest,IsTop,PostUserID
	Public IP,ID,ReplyID,ActionInfo,Content,AllMsg
	Public doWealth,douserCP,douserEP,UpdateBoardID,UpdateBoardID_1
	Public Rs,SQL,i
	Private LocalCanLockTopic,LocalCanDelTopic,LocalCanMoveTopic,LocalCanTopTopic,LocalCanBestTopic,LocalCanAwardTopic,LocalCanTopTopic_a,LocalCanTopTopic_m,LocalCanTopicMode
	Public title,sucmsg,LogType
	Public Lasttopic,Lastpost
	Public lastrootID,lastpostuser

	Private Sub Class_Initialize()
		'Response.write Request("ID")&"":Response.end
		TopicID=Dvbbs.CheckNumeric(Request("ID"))
		If TopicID=0 Then Response.redirect "showerr.asp?ErrCodes=<li>非法的贴子参数。&action=OtherErr"
		ReplyID=Dvbbs.CheckNumeric(Request("replyID"))

		If ReplyID = 0 Then
			Set Rs=Dvbbs.Execute("Select Title,IsBest,IsTop,PostuserID From Dv_Group_Topic Where GroupID="&Dv_IndivGroup_MainClass.ID&" and BoardID="&Dv_IndivGroup_MainClass.BoardID&" and TopicID="&TopicID)
		Else
			Set Rs=Dvbbs.Execute("Select T.Title,T.IsBest,T.IsTop,B.PostUserID From Dv_Group_Topic T Inner Join Dv_Group_BBS B On T.TopicID = B.RootID Where B.GroupID="&Dv_IndivGroup_MainClass.ID&" and B.BoardID="&Dv_IndivGroup_MainClass.BoardID&" and B.AnnounceID="&ReplyID)
		End If
		If Rs.Eof Then
			Response.redirect "showerr.asp?ErrCodes=<li>您查找的数据暂不存在！&action=OtherErr"
		Else
			Topic=rs(0)
			IsBest=Rs(1)
			IsTop=Rs(2)
			PostUserID = Rs(3)
		End If
		Rs.Close:Set Rs=Nothing			
	End Sub

	Public Function Main()
		If Dv_IndivGroup_MainClass.PowerFlag>0 And Dv_IndivGroup_MainClass.PowerFlag<4 Then
			Select Case LCase(Request("action"))
				Case "修复"				: fixtopic()		: ActionInfo="修复帖子"
				Case "lock"				: lock()			: ActionInfo="锁定帖子"
				Case "unchainlock"		: unchainlock()		: ActionInfo="解除锁定"
				Case "settop"			: SetTop()			: ActionInfo="固顶帖子"
				Case "unchaintop"		: UnchainTop()		: ActionInfo="解除固顶"
				Case "lockpage"			: lockpage()		: ActionInfo="单帖屏蔽"
				Case "unchainlockpage"	: unchainlockpage()	: ActionInfo="解除屏蔽"
				Case "setbest"			: setbest()			: ActionInfo="精华帖子"
				Case "unchainbest"		: unchainbest()		: ActionInfo="解除精华"
				Case "deletetopic"		: DeleteTopic()		: ActionInfo="删除主题帖子"
				Case "deletepost"		: DeletePost(1)		: ActionInfo="删除帖子"
				Case "delre"			: Call delre()		: ActionInfo="批量删除跟贴"
			End Select
		ElseIf Dv_IndivGroup_MainClass.PowerFlag=7 And PostUserID = Dvbbs.UserID Then
			Select Case LCase(Request("action"))
				Case "deletetopic"		: DeleteTopic()		: ActionInfo="删除主题帖子"
				Case "deletepost"		: DeletePost(1)		: ActionInfo="删除帖子"
			End Select
		Else
			Response.redirect "showerr.asp?ErrCodes=<li>你没有管理圈子帖子的权限。&action=OtherErr"
		End If
		If Dvbbs.ErrCodes<>"" Then Dvbbs.ShowErr()
	End Function
	'批量删除跟贴
	Private Sub delre()
		Check_topicInfo()
		If Dvbbs.ErrCodes<>"" Then Exit Sub
		'判断用户是否有删除帖子权限
		If Not CanDelTopic Then Dvbbs.AddErrCode(28)
		Dim DelID,j,i
		j=0
		DelID=Request("DelID")
		If delid="" Then
			Dvbbs.AddErrCode(35)
			Exit Sub
		End If
		delid=Split(delid,",")
		For i = 0 to UBound(delid)
			If Trim(delid(i))<>"" and IsNumeric(Trim(delid(i))) Then
				j=j+1
				replyID=Ccur(Trim(delid(i)))
				dele(0)
			End If
		Next
		If j>0 Then
			Dvbbs.Dvbbs_Suc(SucMsgInfo("批量删除"&j&"个跟贴,您的操作已经记录"))
		Else
			Dvbbs.AddErrCode(35)
		End If
	End Sub

	Public Function Check_topicInfo()
		Set Rs=Dvbbs.Execute("Select topic,username,postuserID From Dv_Group_BBS Where ParentID=0 and boardid="&Dv_IndivGroup_MainClass.BoardID&" and RootID="&TopicID)
		If Rs.Eof And Rs.Bof Then
			Dvbbs.AddErrCode(32)
			Exit Function
		End If
		Topic=rs(0)
		TopicUsername=rs(1)
		TopicUserID=Clng(rs(2))
		Rs.close
	End Function
	'判断是否为帖子最后回复
	Public Function isLastPost()
		Dim LastTopic,body,LastRootID,LastPostTime,LastPostUser
		Dim LastPost,uploadpic_n,LastPostUserID,LastID
		isLastPost=False
		'取得当前主题最后回复ID
		Set Rs=Dvbbs.Execute("select LastPost from Dv_Group_topic where topicID="&TopicID)
		If not (rs.eof and rs.bof) Then
			If not isnull(rs(0)) and rs(0)<>"" Then
				If Clng(split(rs(0),"$")(1))=Clng(replyID) Then isLastPost=True
			End If
		End If
		If isLastPost Then
			Set Rs=Dvbbs.Execute("select top 1 topic,body,AnnounceID,dateandtime,username,PostUserID,rootID,boardID from Dv_Group_BBS where BoardID="&Dv_IndivGroup_MainClass.BoardID&" And rootID="&TopicID&" order by AnnounceID desc")
			If not(rs.eof and rs.bof) Then
				body=rs(1)
				LastRootID=rs(2)
				LastPostTime=rs(3)
				LastPostUser=replace(rs(4),"$","")
				LastTopic=left(replace(body,"$",""),20)
				LastPostUserID=rs(5)
				LastID=rs(6)
				Dv_IndivGroup_MainClass.BoardID=rs(7)
			Else
				LastTopic="无"
				LastRootID=0
				LastPostTime=now()
				LastPostUser="无"
				LastPostUserID=0
				LastID=0
				Dv_IndivGroup_MainClass.BoardID=0
			End If
			set rs=nothing
			LastPost=LastPostUser & "$" & LastRootID & "$" & LastPostTime & "$" & replace(left(Dvbbs.Replacehtml(LastTopic),20),"$","") & "$" & uploadpic_n & "$" & LastPostUserID & "$" & LastID & "$" & Dv_IndivGroup_MainClass.BoardID
			Dvbbs.Execute("update Dv_Group_topic set LastPost='"&LastPost&"' where topicID="&TopicID)
		End If
	End Function
	'更新帖子最后回复信息 2005-1-12 Dv.Yz
	Public Function FixLastPost()
		Dim LastTopic,body,LastRootID,LastPostTime,LastPostUser
		Dim LastPost,uploadpic_n,LastPostUserID,LastID
		Set Rs = Dvbbs.Execute("SELECT TOP 1 Topic, Body, AnnounceID, Dateandtime, Username, PostUserID, RootID, BoardID ,signflag FROM Dv_Group_BBS WHERE GroupID="&Dv_IndivGroup_MainClass.ID&" And BoardID = "&Dv_IndivGroup_MainClass.BoardID&" AND RootID = " & TopicID & " ORDER BY AnnounceID DESC")
		If Not Rs.Eof Then
			Body = Rs(1)
			LastRootID = Rs(2)
			LastPostTime = Rs(3)
			LastPostUser = Replace(Rs(4),"$","")
			LastTopic = Left(Replace(Body,"$",""),20)
			LastPostUserID = Rs(5)
			LastID = Rs(6)
		Else
			LastTopic = "无"
			LastRootID = 0
			LastPostTime = Now()
			LastPostUser = "无"
			LastPostUserID = 0
			LastID = 0
		End If
		Rs.Close:Set Rs = Nothing
		LastPost = LastPostUser&"$"&LastRootID&"$"&LastPostTime&"$"&Replace(left(Dvbbs.Replacehtml(LastTopic),20),"$","")&"$$"&LastPostUserID&"$"&LastID&"$"&Dv_IndivGroup_MainClass.BoardID
		Dvbbs.Execute("UPDATE Dv_Group_Topic SET LastPost = '" & LastPost & "' WHERE GroupID="&Dv_IndivGroup_MainClass.ID&" And TopicID = "&TopicID)
	End Function
	'更新指定论坛信息
	Public Function LastCount(boardID)
		Dim LastTopic,body,LastRootID,LastPostTime,LastPostUser
		Dim LastPost,uploadpic_n,LastpostuserID,LastID
		Set Rs=Dvbbs.Execute("Select Top 1 Announceid,Dateandtime,Username,Postuserid,Rootid From Dv_Group_BBS Where GroupID="&Dv_IndivGroup_MainClass.ID&" And BoardID="&BoardID&" Order By Announceid Desc")
		If not(rs.eof and rs.bof) Then
			LastID=rs(0)
			LastPostTime=rs(1)
			LastPostUser=rs(2)
			LastPostUserID=rs(3)
			LastRootID=rs(4)