用循环的办法来删除比如
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