該代碼已調試通(tōng)過,要注意你必須有upload路徑的(de)寫入權限'連接數據庫，讀取圖片路徑,數據庫名：notes.mdb，表名：table1，改成你自己的(de)Dim conn,connstr,rs,sqlSet conn=server.createobject("AD
該代碼已調試通(tōng)過,要注意你必須有upload路徑的(de)寫入權限
'連接數據庫，讀取圖片路徑,數據庫名：notes.mdb，表名：table1，改成你自己的(de)
Dim conn,connstr,rs,sql
Set conn=server.createobject("ADODB.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("notes.mdb")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select Pic from table1"
rs.open sql,conn,1,1
'讀取/upfile文件夾下(xià)的(de)所有文件名
Dim objFSO,objFolder,objFile,FF
FF = Server.MapPath("upfile/")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(ff) Then
Set objFolder = objFSO.GetFolder(ff)
'遍曆upfile/下(xià)的(de)所有文件夾
For Each subFolder in objFolder.SubFolders
'遍曆所有文件
For Each objFile in subFolder.Files
'去除部分(fēn)路徑
strFile=replace(right(objFile,len(objFile)-instr(objFile,"upfile")-7),"","/")
Response.Write(strFile)
rs.filter="Pic='"&strFile&"'"
if rs.eof then
'文件在數據庫中沒有找到，直接删除。
'如果需要先顯示确認後再删除，在這(zhè)裏把需要删除的(de)文件加入一個(gè)數組，後再做(zuò)操作。
filename=objFile.name
objFile.Delete
Response.Write(filename&"已删除")
end if
Next
Next
Else
Response.Write"文件夾"&ff&"不存在，無法讀取相關信息！"
End If
Set objFolder = Nothing
Set objFSO = Nothing
rs.Close
Set rs = nothing
