一种方法
<% 
Dim fso, f, f1, fc 
Set fso = CreateObject("scripting.FileSystemObject") 
Set f = fso.GetFolder(server.MapPath("upload")) 
Set fc =f.Files 
set con=server.createobject("ADODB.CONNECTION") 
con.open "DBQ="+server.mappath("news.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};" 
set rs=server.createobject("adodb.recordset") 
sql="select pic from information "
rs.open sql,con,1,3 
for each fff in fc 
rs.movefirst 
filename=fff.name 
do while not rs.eof 
if rs("pic") <> filename then 
rs.movenext 
else 
exit do 
end if 
loop 
if rs.eof then[表示在数据库中没有这个文件 
filepath="upload/"&filename[删除该文件就行了 
Set fso = CreateObject("scripting.FileSystemObject") 
fso.DeleteFile(Server.mappath(filepath)) 
end if 
next 
set fso=nothing 
rs.close 
set rs=nothing 
con.close 
set con=nothing 
%>