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
     %>