字符串循环插入

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go

ALTER proc [dbo].[Email_SendEamil]
@Title nvarchar(50),
@ContentText nvarchar(Max),
@EmailBoxID uniqueidentifier,
@UserPerson nvarchar(Max),
@FromPerson uniqueidentifier,
@FileTrueName nvarchar(Max),
@FileFalseName nvarchar(Max)
as
declare @UserPersons nvarchar(50)
declare @EmailID uniqueidentifier
declare @next int
declare @nextSlip int
set @next=1
while @next<=dbo.Get_StrArrayLength(@UserPerson,';')
begin
 set @UserPersons=dbo.Get_StrArrayStrOfIndex(@UserPerson,';',@next)
 set @EmailID=newid()
 insert into Email(EmailID,Title,ContentText,EmailBoxID,UserPerson,CreateDate,FromPerson)
 values(@EmailID,@Title,@ContentText,@EmailBoxID,@UserPersons,getdate(),@FromPerson)
 set @nextSlip=1
 while @nextSlip<=dbo.Get_StrArrayLength(@FileTrueName,';')
 begin
  if (@FileFalseName!='' and @FileTrueName!='')
        begin
  insert into EmailFile(FileTrueName,FileFalseName,EmailID)
        values(dbo.Get_StrArrayStrOfIndex(@FileTrueName,';',@nextSlip),dbo.Get_StrArrayStrOfIndex(@FileFalseName,';',@nextSlip),@EmailID)
        end
        set @nextSlip=@nextSlip+1
 end
 set @next=@next+1
end