怎样同时插入N条数据而不在程序里控制

CREATE PROCEDURE dbo.ProductListUpdateSpecialList
　　@ProductId_Array varChar(800),
　　@ModuleId int
　　AS
　　DECLARE @PointERPrev int
　　DECLARE @PointerCurr int
　　DECLARE @TId int
　　Set @PointerPrev=1
　　set @PointerCurr=1
　　
　　begin transaction
　　Set NoCount ON
　　delete from ProductListSpecial where ModuleId=@ModuleId
　　
　　Set @PointerCurr=CharIndex
    ',',@ProductId_Array,@PointerPrev+1)
　　set @TId=cast(SUBSTRING(@ProductId_Array,@PointerPrev,
    @PointerCurr-@PointerPrev) as int)
　　Insert into ProductListSpecial 
    (ModuleId,ProductId) Values(@ModuleId,@TId)
　　SET @PointerPrev = @PointerCurr
　　while (@PointerPrev+1 < LEN(@ProductId_Array))
　　Begin
　　Set @PointerCurr=CharIndex
    (',',@ProductId_Array,@PointerPrev+1)
　　if(@PointerCurr>0)
　　Begin
　　set @TId=cast(SUBSTRING
    (@ProductId_Array,@PointerPrev+1,
    @PointerCurr-@PointerPrev-1) as int)
　　Insert into ProductListSpecial 
    (ModuleId,ProductId) Values(@ModuleId,@TId)
　　SET @PointerPrev = @PointerCurr
　　End
　　else
　　Break
　　End
　　
　　set @TId=cast(SUBSTRING
   (@ProductId_Array,@PointerPrev+1,
   LEN(@ProductId_Array)-@PointerPrev) as int)
　 Insert into ProductListSpecial 
   (ModuleId,ProductId) Values(@ModuleId,@TId)
　　Set NoCount OFF
　　if @@error=0
　　begin
　　commit transaction
　　end
　　else
　　begin
　　rollback transaction
　　end
　　GO

CREATE Procedure [dbo].[ProductListUpdateSpecialList]
　　(
　　@ProductId_Array NVARCHAR(2000),
　　@ModuleId INT
　　)
　　
　　AS
　　
　　delete from ProductListSpecial where ModuleId=@ModuleId
　　
　　-- If empty, return
　　IF (@ProductId_Array IS NULL OR LEN(LTRIM
   (RTRIM(@ProductId_Array))) = 0)
　　RETURN
　　
　　DECLARE @idoc int
　　
　　EXEC sp_xml_preparedocument @idoc OUTPUT, @ProductId_Array
　　
　　Insert into ProductListSpecial (ModuleId,ProductId)
　　Select
　　@ModuleId,C.[ProductId]
　　FROM
　　OPENXML(@idoc, '/Products/Product', 3)
　　with (ProductId int ) as C
　　where
　　C.[ProductId] is not null
　　
　　EXEC sp_xml_removedocument @idoc