以后地位:首页 > 建站常识 > 列表

asp删除数据库中未记实的图片

点击: 次时候:2017/2/19关头词:上海网站建造 网站链接 网站权重
该代码已调试经由过程,要注重你必须有upload途径的写入权限'毗连数据库,读取图片途径,数据库名:notes.mdb,表名:table1,改成你本身的Dim conn,connstr,rs,sqlSet conn=server.createobject("AD
asp删除数据库中未记实的图片
该代码已调试经由过程,要注重你必须有upload途径的写入权限
'毗连数据库,读取图片途径,数据库名: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&"已删除")
end if
Next
Next
Else
Response.Write"文件夹"&ff&"不存在,没法读取相干信息!"
End If
Set objFolder = Nothing
Set objFSO = Nothing
rs.Close
Set rs = nothing
预定建站
收费供给网站优化
支付关头词