SQL2000 变量超过8000的办法

--创建数据测试环境
create table #tb(aa text)
insert into #tb select  nr    from  dbo.HK_YWDATAWJ where y=1 and LB='busi_info' and dataid=10031685

declare @s_str varchar(8000),@d_str varchar(8000)
select  @s_str=substring(aa ,patindex('%业务状况%',aa)+2,patindex('%发展概览%',aa)-patindex('%业务状况%',aa)+2 ) from #tb
select  @d_str=substring(aa ,patindex('%发展概览%',aa)+4,patindex('%股本变化%',aa)-patindex('%发展概览%',aa) ) from #tb
print @s_str
--print @d_str
declare @doc varchar(2000), @CCLine varchar(8000),@CCLineSum varchar(8000)
set @CCLineSum=''
while Patindex('%</CCLine>%',@s_str)>0
begin
 set @doc=substring(@s_str,Patindex('%<CCLine>%',@s_str),Patindex('%</CCLine>%',@s_str)+9-Patindex('%<CCLine>%',@s_str))
 set @s_str=substring(@s_str,Patindex('%</CCLine>%',@s_str)+8,len(@s_str)-Patindex('%</CCLine>%',@s_str)-8)
set @CCLine=substring(@doc,Patindex('%<CCLine>%',@doc)+8,Patindex('%</CCLine>%',@doc)-Patindex('%<CCLine>%',@doc)-8)
set @CCLineSum=@CCLineSum+@CCLine+char(10)
end
print @CCLineSum