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

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

点击: 次时候:2016/11/12关头词:asp asp删除图片
%'毗连数据库,读取图片途径,数据库名:notes.mdb,表名:table1,改成你本身的Dim conn,connstr,rs,sqlSet conn=server.createobject("ADODB.Connection")connstr="prov

%'毗连数据库,读取图片途径,数据库名:notes.mdb,表名:table1,改成你本身的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文件夹下的一切文件名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/下的一切文件夹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.nameobjFile.Delete Response.Write(filename&"已删除") end ifNextNextElseResponse.Write"文件夹"&ff&"不存在,没法读取相干信息!"End If Set objFolder = Nothing Set objFSO = Nothingrs.CloseSet rs = nothing%>
预定建站
收费供给网站优化
支付关头词