Question

关于ASP删除一条记录中，多图片文件的问题？请帮忙解答，谢谢！

我现在采用以下代码来进行删除记录中的图片文件，一张图片没问题，但是却无法删除多图片记录，一点删除就报错，记录中是单图片的没有问题，请高手帮忙帮我解决下可以直接删除多图片的记录，代码如下： 请帮忙写下代码，非常感谢！！！
<%
Function DeleteFile(FileName)
FileName=server.MapPath(FileName)
dim Fso
Set Fso = CreateObject("scripting.filesystemobject")
if Fso.FileExists(Filename) then
Fso.DeleteFile filename
end if
Set Fso = nothing
End Function
%>

<%
dim sql
dim rs
dim hid
hid=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from pic where id="&hid
rs.open sql,conn,1,3
if rs("img")<>"" then
DeleteFile(rs("img"))
rs.delete
rs.update
rs.close
set rs=nothing
else
rs.delete
rs.update
rs.close
set rs=nothing
end if

response.write"<script>alert('删除成功');location.href=123.asp';</script>"
%>

Answer 1

if rs("img")<>"" then
DeleteFile(rs("img"))
rs.delete

你的rs("img")是既存放单图也存放多图吗？？如果是的话你要先给这个记录判断下是多图还是单图，多图的话，在重新分割取出单张图循环删除，比如字段img存放多图的时候是以“,”分隔开的，那么我可以这么判断

if instr(rs("img") ,",") > 0 then
tempimgs = slpit(rs("img") ,",")
for i = 0 to ubound(tempimgs) - 1
DeleteFile(tempimgs(i))
next
else
DeleteFile(rs("img"))
end if

分析下具体是哪个环节出错，去哪里排除错误，对症下药，就好了~~~

追问

您好，谢谢你的回答。但是我用你写的语句测试删除多图片时还是报错，单图片没问题。rs("img")是存放了多图并用 ， 分开。谢谢你，请你一定帮忙在看下。非常感谢，解决后追分赠送，等待中，百度HI也加你好友了。麻烦你了····

追答

那你看看你字段是怎么区分多图和单图的，一定要先把多图的分割成单图的，你去数据库找到一个多图的数据，复制出来看看~~~

追问

UpLoad/20140616105844686.jpg,UpLoad/20140616105844417.jpg,UpLoad/20140616105844196.jpg
这个就是IMG表里数据，现在就是无法删除多图！！！╮(╯▽╰)╭

追答

那我上面的判断就没错啊，你打印那个tempimgs(i)的值看看，是否执行到这个if判断里面了，没有在重新排错