asp 大量刪除指定檔案代碼

DelImg="a.jpg,b.jpg,b.jpg"
              img=Split(DelImg,",")
              Set FSO=Server.CreateObject("Scripting.FileSystemObject")
              For i = 0 To Ubound(img)
              ''開始執行刪除
              DeleteFile = Server.MapPath(img)
                     on Error Resume Next
                     FSO.DeleteFile DeleteFile, True '強制移除唯讀檔案
                     If Err.Number = 53 Then
                     Response.Write DeleteFile & "檔案不存在！"
                     Response.End
                     Elseif Err.Number = 70 Then
                     Response.Write DeleteFile & "檔案屬性為鎖定狀態！"
                     Response.End
                     Elseif Err.Number <> 0 Then
                     Response.Write "未知錯誤，錯誤編碼：" & Err.Number
                     Response.End
                     End If'刪除結束==============================
              Next
     %>