--检查是否在用户数据库里运行
SELECT @DBNAME = DB_NAME()
IF @DBNAME IN ('master','msdb','model','tempdb')
BEGIN
PRINT 'THIS PROCEDURE SHOULD NOT BE RUN IN SYSTEM DATABASES.'
RETURN
END ELSE
BEGIN
SET @DBNAMECHAR = 'DBNAME'
END

--第1阶段:检测碎片
--声明游标
DECLARE TABLES CURSOR FOR
SELECT CONVERT(VARCHAR,SO.ID)
FROM SYSOBJECTS SO
JOIN SYSINDEXES SI
ON SO.ID = SI.ID
WHERE SO.TYPE ='U'
AND SI.INDID < 2
AND SI.ROWS > 0

-- 创建一个临时表来存储碎片信息
CREATE TABLE #FRAGLIST (
TABLENAME CHAR (255),
INDEXNAME CHAR (255))

--打开游标
OPEN TABLES

-- 对数据库的所有表循环执行DBCC SHOWCONTIG命令
FETCH NEXT
FROM TABLES
INTO @TABLEIDCHAR

WHILE @@FETCH_STATUS = 0
BEGIN
--对表的所有索引进行统计
INSERT INTO #FRAGLIST

EXEC ('SELECT OBJECT_NAME(DT.OBJECT_ID) AS TABLENAME,SI.NAME AS INDEXNAME FROM '+
' (SELECT OBJECT_ID,INDEX_ID,AVG_FRAGMENTATION_IN_PERCENT,AVG_PAGE_SPACE_USED_IN_PERCENT '+
' FROM SYS.DM_DB_INDEX_PHYSICAL_STATS(DB_ID('''+@DBNAMECHAR+'''),object_id('''+@TABLEIDCHAR+''')'+
',NULL,''DETAILED'') WHERE INDEX_ID<>0)AS DT INNER JOIN SYS.INDEXES SI'+
' ON SI.OBJECT_ID=DT.OBJECT_ID AND SI.INDEX_ID=DT.INDEX_ID AND '+
' DT.AVG_FRAGMENTATION_IN_PERCENT>10'+
' AND DT.AVG_PAGE_SPACE_USED_IN_PERCENT<75 ORDER BY DT.AVG_FRAGMENTATION_IN_PERCENT DESC')
FETCH NEXT
FROM TABLES
INTO @TABLEIDCHAR
END

-- 关闭释放游标
CLOSE TABLES
DEALLOCATE TABLES

-- 为了检查，报告统计结果
SELECT * FROM #FRAGLIST

--第2阶段: (整理碎片) 为每一个要整理碎片的索引声明游标
DECLARE INDEXES CURSOR FOR
SELECT TABLENAME,INDEXNAME
FROM #FRAGLIST
-- 输出开始时间
SELECT 'STARTED DEFRAGMENTING INDEXES AT ' + CONVERT(VARCHAR,GETDATE())
--打开游标
OPEN INDEXES
--循环所有的索引
FETCH NEXT
FROM INDEXES
INTO @TABLENAME,@INDEXNAME
WHILE @@FETCH_STATUS = 0
BEGIN
SET QUOTED_IDENTIFIER ON
SELECT @EXECSTR = 'ALTER INDEX '+@INDEXNAME+' ON'+@TABLENAME+' REBUILD WITH(FILLFACTOR=90,ONLINE=ON)'

SELECT 'Now executing: '
SELECT(@EXECSTR)
EXEC (@EXECSTR)
SET QUOTED_IDENTIFIER OFF
FETCH NEXT
FROM INDEXES
INTO @TABLENAME,@INDEXNAME
END
-- 关闭释放游标
CLOSE INDEXES
DEALLOCATE INDEXES

-- 报告结束时间
SELECT 'FINISHED DEFRAGMENTING INDEXES AT ' + CONVERT(VARCHAR,GETDATE())

-- 删除临时表
DROP TABLE #FRAGLIST
GO

GO