%'連接數據庫，讀取圖片路徑,數據庫名：notes.mdb，表名：table1，改成你自己的(de)Dim conn,connstr,rs,sqlSet conn=server.createobject("ADODB.Connection")connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("notes.mdb")conn.Open connstrset rs=server.CreateObject("adodb.recordset")sql="select Pic from table1"rs.open sql,conn,1,1'讀取/upfile文件夾下(xià)的(de)所有文件名Dim objFSO,objFolder,objFile,FFFF = 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.nameobjFile.Delete Response.Write(filename&"已删除") end ifNextNextElseResponse.Write"文件夾"&ff&"不存在，無法讀取相關信息！"End If Set objFolder = Nothing Set objFSO = Nothingrs.CloseSet rs = nothing%>
