[标量函数] Html标记过滤 HtmlFilter

/****** Object:  UserDefinedFunction [dbo].[HtmlFilter]    Script Date: 11/30/2010 14:39:30 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

-- =============================================
-- Author:		MK
-- Create date: 2010-11-30
-- Description:	去除Html标记
-- =============================================
CREATE FUNCTION [dbo].[HtmlFilter]
(
	@INPUT VARCHAR(MAX)
)
RETURNS VARCHAR(MAX)
AS
BEGIN
	DECLARE @A INT;
	DECLARE @B INT;
	DECLARE @S VARCHAR(MAX);
	SET @S = @INPUT;
	
	WHILE CHARINDEX('<', @S, 0) > 0 BEGIN
		SET @A = CHARINDEX('<', @S, 0);
		SET @B = CHARINDEX('>', @S, @A);
		IF @B < 1
			SET @S = SUBSTRING(@S, 0, @A);
		ELSE
			SET @S = SUBSTRING(@S, 0, @A) + SUBSTRING(@S, @B + 1, LEN(@S) - @B);
	END
	RETURN @S;
END

GO