删除数据库中未记录的图片

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

<%
'连接数据库，读取图片路径,数据库名：notes.mdb，表名：table1，改成你自己的
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文件夹下的所有文件名
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/下的所有文件夹
For Each subFolder in objFolder.SubFolders
  '遍历所有文件
  For Each objFile in subFolder.Files 
    '去除部分路径
 strFile=replace(right(objFile,len(objFile)-instr(objFile,"upfile")-7),"","/")
 Response.Write(strFile)
    rs.filter="Pic='"&strFile&"'" 
 if rs.eof then
 '文件在数据库中没有找到，直接删除。
 '如果需要先显示确认后再删除，在这里把需要删除的文件加入一个数组，后再做操作。
     filename=objFile.name
     objFile.Delete
        Response.Write(filename&"已删除<br />")
 end if
  Next
Next
Else 
Response.Write "文件夹"&ff&"不存在，无法读取相关信息！" 
End If 
Set objFolder = Nothing 
Set objFSO = Nothing
rs.Close
Set rs = nothing
%>

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!