用循环的办法来删除比如
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [tablename]",conn,1,3
Do Until rs.EOF Set fdel = CreateObject("Scripting.FileSystemObject") fdel.DeleteFile(Server.MapPath("uppic/"&rs("A"))) rs.Delete rs.MoveNext
Loop
rs.Close
Set rs=Nothing