DiscuzNT改造系列之删除帖子后论坛版块列表同步更新

Declare @lasttid int
Declare @lastposterid int
Declare @lasttitle nvarchar(300)
Declare @lastpost datetime
Declare @lastposter nvarchar(100)

--更新lasttitle
SELECT TOP 2 @lasttid = [tid], @lastposterid = [posterid], @lasttitle = [title], @lastpost = [postdatetime], @lastposter = [poster] FROM [dnt_posts1] WHERE [tid] in (select tid from dnt_topics where fid = @tempFid and displayorder>-1) ORDER BY [pid] DESC
UPDATE [dnt_forums] SET lasttid=@lasttid,lastposterid=@lastposterid,lasttitle=@lasttitle,lastpost=@lastpost,lastposter=@lastposter where fid=@tempFid
--更新forum结束

2、当前版块已打开回收站，则把dnt_deletetopicbytidlist存储过程替换为
[code]set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go
---解决了删除帖子forum不更新的问题
ALTER PROCEDURE [dbo].[dnt_deletetopicbytidlist]
@tidlist AS VARCHAR(2000),
@posttablename AS VARCHAR(20)
AS
DECLARE @postcount int
DECLARE @topiccount int
DECLARE @todaycount int
DECLARE @sqlstr nvarchar(4000)
DECLARE @fid varchar(2000)
DECLARE @posterid varchar(200)
Declare @tempTid int
DECLARE @tempFid int
DECLARE @tempPosterid int
DECLARE @tempLayer int
DECLARE @temppostdatetime datetime
DECLARE @tempfidlist AS VARCHAR(1000) 


SET @fid = ''
SET @posterid = ''
SET @postcount=0
SET @topiccount=0
SET @todaycount=0

SET @tempfidlist = '';

IF @tidlist<>''
  BEGIN
  --对于回收站中的帖子不做处理
  SET @sqlstr = 'DECLARE cu_dnt_posts CURSOR FOR SELECT [tid],[fid],[posterid],[layer],[postdatetime] FROM [' + @posttablename + '] WHERE [tid] IN (' + @tidlist + ')'
  EXEC (@sqlstr)
  OPEN cu_dnt_posts
  FETCH NEXT FROM cu_dnt_posts into @tempTid,@tempFid,@tempPosterid,@tempLayer,@temppostdatetime
  WHILE @@FETCH_STATUS = 0
    BEGIN
    SET @postcount = @postcount + 1
    IF @tempLayer = 0
      BEGIN
      SET @topiccount = @topiccount + 1
      
      END
    IF DATEDIFF(d,@temppostdatetime,GETDATE()) = 0
      BEGIN
      SET @todaycount = @todaycount + 1
      END

    IF CHARINDEX(',' + LTRIM(STR(@tempFid)) + ',',@fid + ',') = 0
      BEGIN
      --SET @fid = @fid + ',' + LTRIM(STR(@tempFid)) 
      SELECT @tempfidlist = ISNULL([parentidlist],'') FROM [dnt_forums] WHERE [fid] = @tempFid
      IF RTRIM(@tempfidlist)<>''
        BEGIN
        SET @fid = RTRIM(@fid) + ',' +  RTRIM(@tempfidlist) + ',' + CAST(@tempFid AS VARCHAR(10))
        END
      ELSE
        BEGIN
        SET @fid =RTRIM(@fid) + ',' +  CAST(@tempFid AS VARCHAR(10))
        END
    
      END
    UPDATE [dnt_users] SET [posts] = [posts] - 1 WHERE [uid] = @tempPosterid
    
--更新forum开始 add by liudao 
    Declare @lasttid int
    Declare @lastposterid int
    Declare @lasttitle nvarchar(300)
    Declare @lastpost datetime
    Declare @lastposter nvarchar(100)
    
    --更新lasttitle
    SELECT TOP 1 @lasttid = [tid], @lastposterid = [posterid], @lasttitle = [title], @lastpost = [postdatetime], @lastposter = [poster] FROM [dnt_posts1] WHERE [tid] in (select tid from dnt_topics where fid = @tempFid and tid<>@tempTid and displayorder>-1) ORDER BY [pid] DESC
    UPDATE [dnt_forums] SET lasttid=@lasttid,lastposterid=@lastposterid,lasttitle=@lasttitle,lastpost=@lastpost,lastposter=@lastposter where fid=@tempFid
--更新forum结束 
    FETCH NEXT FROM cu_dnt_posts into @tempTid,@tempFid,@tempPosterid,@tempLayer,@temppostdatetime
    END
  CLOSE cu_dnt_posts
  DEALLOCATE cu_dnt_posts

  IF LEN(@fid)>0
    BEGIN 
  
    SET @fid = SUBSTRING(@fid,2,LEN(@fid)-1)
  
    UPDATE [dnt_statistics] SET [totaltopic]=[totaltopic] - @topiccount, [totalpost]=[totalpost] - @postcount
  
    SET @sqlstr = 'UPDATE [dnt_forums] SET [posts]=[posts] - ' +  cast(@postcount AS VARCHAR(10))  + 
        ', [topics]=[topics] - ' + cast(@topiccount AS VARCHAR(10)) + 
        ', [todayposts] = [todayposts] - ' + cast(@todaycount AS VARCHAR(10)) + 
      ' WHERE [fid] IN (' + @fid + ')'
    EXEC (@sqlstr)
    
  
    SET @sqlstr = 'DELETE FROM [dnt_favorites] WHERE [tid] IN (' + @tidlist + ')'
    EXEC (@sqlstr)
    
    SET @sqlstr = 'DELETE FROM [dnt_polls] WHERE [tid] IN (' + @tidlist + ')'
    EXEC (@sqlstr)
    SET @sqlstr = 'DELETE FROM [' + @posttablename + '] WHERE [tid] IN (' + @tidlist + ')'
    EXEC (@sqlstr)
    
    END
  SET @sqlstr = 'DELETE FROM [dnt_topics] WHERE [closed] IN (' + @tidlist + ') OR [tid] IN (' + @tidlist + ')'
  EXEC (@sqlstr)
  
  END

CODE:

CODE: