admin_postings.asp

品泡女人香XI8.NET文章管理系统的源码

		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 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 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 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))
		Rs.close
	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))
		Rs.close
	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()
		If Request("ismsg")="1" Then
		Dim msgcontent
		msgcontent="您发表的帖子《[url=dispbbs.asp?boardID="&Dvbbs.BoardID&"&ID="&ID&"]"&Topic&"[/url]》因"&replace(Content,"原因：","")&"而被"&ActionInfo&"，且进行了"&replace(Allmsg,"用户操作：","")&"的操作"
		If Request("msg")<>"" Then msgContent=msgContent & chr(10) & "以下为操作者给您的附言：" & Request("msg")

		Dvbbs.Execute("Insert Into Dv_Message(incept,sender,title,content,sendtime,flag,issend) values('"&Dvbbs.CheckStr(TopicUsername)&"','"&Dvbbs.MemberName&"','系统消息','"&Dvbbs.CheckStr(msgContent)&"',"&SqlNowString&",0,1)")
		Update_User_Msg(TopicUsername)
		End If
	End Function
	Public Function Update_User_Msg(username)
		Dim msginfo
		If newincept(username)>0 Then
			msginfo=newincept(username) & "||" & inceptid(1,username) & "||" & inceptid(2,username)
		Else
			msginfo="0||0||null"
		End If
		Dvbbs.Execute("Update [Dv_User] Set UserMsg='"&dvbbs.CheckStr(msginfo)&"' Where username='"&dvbbs.CheckStr(username)&"'")
	End Function
	'统计留言
	Public Function newincept(iusername)
		Dim rs
		Rs=Dvbbs.Execute("Select Count(id) From Dv_Message Where flag=0 and issend=1 and delR=0 And incept='"& iusername &"'")
		newincept=Rs(0)
		Set Rs=Nothing
		If IsNull(newincept) Then newincept=0
	End Function
	Public Function inceptid(stype,iusername)
		Dim ars
		set ars=Dvbbs.Execute("Select top 1 id,sender From Dv_Message Where flag=0 and issend=1 and delR=0 And incept ='"& iusername &"'")
		if stype=1 then
			inceptid=ars(0)
		else
			inceptid=ars(1)
		end if
		set ars=nothing
	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_topic where topicID="&ID)
		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 "&TotalUseTable&" where BoardID="&Dvbbs.BoardID&" And rootID="&ID&" order by AnnounceID desc")
			If not(rs.eof and rs.bof) Then