SQl去掉HTML标签函数

create FUNCTION [dbo].[ReplaceHTML] ( 
@Textstr varchar (5000) 
) 
RETURNS varchar(5000) 
AS 
BEGIN 
	DECLARE @hr integer 
	DECLARE @objRegExp integer 
	DECLARE @sStr varchar(5000) 
	DECLARE @re integer 
	DECLARE @results varchar(5000) 
	EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT 
		IF @hr <> 0 BEGIN 
			RETURN '不能创建VBScript.RegExp对象' 
		END 
	EXEC @hr = sp_OASetProperty @objRegExp, 'Pattern', '<(.[^>]*)>' 
		IF @hr <> 0 BEGIN 
		RETURN 'Pattern对象错误' 
		END 
	EXEC @hr = sp_OASetProperty @objRegExp, 'Global', True 
		IF @hr <> 0 BEGIN 
		RETURN 'Global对象错误' 
		END 
	EXEC @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', True 
		IF @hr <> 0 BEGIN 
		RETURN 'IgnoreCase对象错误' 
		END 
	EXEC @hr = sp_OAMethod @objRegExp, 'Replace', @results OUTPUT, @Textstr,'' 
		IF @hr <> 0 BEGIN 
		RETURN @Textstr 
		END 
	EXEC @hr = sp_OADestroy @objRegExp 
		IF @hr <> 0 BEGIN 
		RETURN '不能注销VBScript.RegExp对象' 
       END 
-- Set @results = Replace(Replace(Replace(@results,'&nbsp;',''),'　',''),' ','') 
-- RETURN @results 
      RETURN Replace(Replace(Replace(@results,'&nbsp;',''),'　',''),' ','') 
END
--调用：update T_About set Content=dbo.ReplaceHTML(convert(varchar(1000),Content))