存储过程替换text,ntext列中的字符串

/*
author:amjn
date:2003-03-28
version:1.0
function:替换text,ntext列中的字符串(不支持中文)
*/
declare @ptr varbinary(16)
declare @amjnId int
declare @Position int,@len int
set @len=datalength('ILOVEHJL')　　
declare wux_Cursor scroll Cursor
for
select textptr([Name]),[amjnId] from USA201
for read only
open wux_Cursor
fetch next from wux_Cursor into @ptr,@amjnId
while @@fetch_status=0
begin
　　select @Position=patindex('%ILOVEHJL%',[Name]) from USA201 where [amjnId]=@amjnId
　　while @Position>0
　　begin
　　　　set @Position=@Position-1
　　　　updatetext USA201.[Name] @ptr @Position @len 'i love hjl'
　　　　select @Position=patindex('%ILOVEHJL%',[Name]) from USA201 where [amjnId]=@amjnId
　　end
　　fetch next from wux_Cursor into @ptr,@amjnId
end
close wux_cursor
deallocate wux_cursor
go