代码收藏，asp

If Request.Form("ExceleName").Count>=1 Then ReDim StockItem(Request.Form("ExceleName").Count-1,5)
                For I = 1 To Request.Form("ExceleName").Count
                        StockItem(I-1,0) = Request.Form("ExceleName")(I)
                Next
                For I = 1 To Request.Form("ExcelTitle").Count
                        StockItem(I-1,1) = Request.Form("ExcelTitle")(I)
                Next
                For I = 1 To Request.Form("Excelquantity").Count
                        StockItem(I-1,2) = Request.Form("Excelquantity")(I)
                        If Not IsNumeric(StockItem(I-1,2)) Then StockItem(I-1,2) = 0
                Next
                For I = 1 To Request.Form("Excelprice").Count
                        StockItem(I-1,3) = Request.Form("Excelprice")(I)
                        If Not IsNumeric(StockItem(I-1,3)) Then StockItem(I-1,3) = 0
                Next
                For I = 1 To Request.Form("ExcelTruePrice").Count
                        StockItem(I-1,4) = Request.Form("ExcelTruePrice")(I)
                        If Not IsNumeric(StockItem(I-1,4)) Then StockItem(I-1,4) = 0
                Next
                For I = 1 To Request.Form("ExcelContent").Count
                        StockItem(I-1,5) = Request.Form("ExcelContent")(I)
                Next
                For I = 0 To Request.Form("ExceleName").Count-1
                        AddStockOrderList StockItem(I,0),StockItem(I,1),StockItem(I,2),StockItem(I,3),StockItem(I,4),StockItem(I,5),IsAdd,StockNo,InvoiceNo
                Next