asp用fso删除图片

我有一个表中有一个字段a是用来发上传的图片路径的。
文件夹b是用来存放上传来的图片的
我以前在删除数据库表中的数据时没有把文件夹里的图片删除掉，现在我想写一个程序把b文件夹里的图片删除掉（只要判断出b文件夹里的图片名称不在数据库表的字段a中就把这个图片删除掉）
我应该怎么写程序来判断，请大家帮忙!!!!

遍历文件夹b，一个一个去判断数据库中是否存在改文件
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
  s=f1.name
  '去数据库判断 
Next

fso参考手册
http://msdn.microsoft.com/en-us/library/hww8txat%28VS.85%29.aspx

sql="select productimg from t_products where productimg<>'' order by pubtime asc"
'response.Write sql
'response.End()
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.bof then
for i=1 to rs.recordcount
if rs.eof then exit for
proimg=rs(0)'数据中图片地址
UploadDir = CutStrs(rs(0),20) '要列出的文件夹名称,相对于此页面文件所在根目录来说
TruePath=Server.MapPath(UploadDir) '获得全路径
Set fso=CreateObject("Scripting.FileSystemObject") '如果支持FSO就创建FSO对象
IF fso.FolderExists(TruePath) Then
Set theFolder=fso.GetFolder(TruePath)
For Each theFile In theFolder.Files
在这里我应该怎么写判断？？？
next

rs.movenext
next
end if
rs.close
set rs=nothing