请教个删除图片的问题

qjx6531 发布于 2010-08-15 20:11， 818 次点击

我想把不在数据库文件中名称的图片删除掉，请问怎样删除啊
我找了个删除的是等于的，我要不等于的，请问怎么改啊
代码如下：
<%
Dim rsdp
Dim rsdp_numRows

Set rsdp = Server.CreateObject("ADODB.Recordset")
rsdp.ActiveConnection = MM_ggsj1_STRING
rsdp.Source = "SELECT * FROM dbo.dianpu"
rsdp.CursorType = 0
rsdp.CursorLocation = 2
rsdp.LockType = 1
rsdp.Open()

rsdp_numRows = 0
%>
<%
set fso=Server.CreateObject("scripting.filesystemobject")
myFile<>Server.MapPath("../6531tupianjia/dianpu/"& rsdp("tupian") &"")
if fso.FileExists(myFile) then
fso.DeleteFile myFile
end if
set fso=Nothing
%>

10 回复

yms1232010-08-15 20:51

先循环文件夹获得所有图片，然后查找哪个图片不在数据库，调用FSO方法删除掉即可

qjx65312010-08-15 21:02

能说明白点么？或帮忙改下。谢谢

yms1232010-08-15 21:05

图片都是jpg的？dbo.dianpu这个是存放图片的表？
数据库里的图片字段名称是？数据库里存放的是图片文件名还是路径？

qjx65312010-08-15 21:18

数据库我存放的是路径，图片存在../6531tupianjia/dianpu/这个文件夹下。我要删除数据库中名称与图片夹名称不一致的，主要是清理文件夹，删除多余的图片

冥蝶2010-08-15 21:25

查找数据库，不匹配的进行删除就可以了嘛~！

qjx65312010-08-15 21:51

我不会啊
我做的那个咋总不对啊，帮忙改下吧

yms1232010-08-15 21:56

dbo.dianpu这个表存的数据库里图片文件的名称？
能否用Access截个这个表的图片?

qjx65312010-08-16 12:59

没有来帮忙的么

#10

qjx65312010-08-19 19:19

这个论坛真的没有人帮忙么

#11

wangjy5002010-09-03 23:32

<%
set fso=Server.CreateObject("scripting.filesystemobject")
path=server.MapPath("../6531tupianjia/dianpu/")
if fso.FolderExists(path)then
Set theFolder=fso.GetFolder(path)
For Each theFile In theFolder.Files
if path&rsdp("tupian")<>path&theFile.name
fso.DeleteFile path&theFile.name
end if
next
end if
set fso=Nothing
%>

[ 本帖最后由 wangjy500 于 2010-9-4 20:45 编辑 ]