当前位置:首页 > 网站维护 > 列表

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

来源:浦一科技点击:时间:2016-11-12 关键词:asp asp删除图片
%'连接数据库,读取图片路径,数据库名:notes.mdb,表名:table1,改成你自己的Dimconn,connstr,rs,sqlSetconn=server.createobject("ADODB.Connection")connstr="provid

%
'连接数据库,读取图片路径,数据库名: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
%>

服务项目

网站建设

网站建设

通过SEO优化技术,提供更多的展示机会,带来大量精准流量和询盘,每月意向客户增长20%。

手机网站建设

手机网站建设

手机网站的时代强势来袭,赢在全网营销时代,手机+电脑双剑合璧,把握商机滴水不漏。

网站维护

网站维护

一个好的网站需要定期或不定期地更新内容,才能不断地吸引更多的浏览者,增加访问量。

整合网络营销

整合营销

为了建立、维护和传播品牌,以及加强客户关系,而对品牌进行计划、实施和监督的一系列营销

预约建站
免费提供网站优化
领取关键词