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