Question

asp 删除图片数组中的一个一张图片（数据库里的图片路径），同时删除文件夹里是图片

asp 一个批量图片数组，形式：1.gif|2.gif|3.gif| ，我已经拆分给循环出来了。
循环出来的每一张图片后面都加了一个删除，我想点击“删除”，就可以删除其中的一张图片（包括表里的路径和文件夹里的图片），请高手帮帮忙。
一下是我循环图片的代码：
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Sh_Product where ID="&ID&""
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.Write"暂无数据..."
else
do while not rs.eof
%>
<%
if ProductPhoto3<>"" then
ProductPhoto3=split(rs("ProductPhoto3"),"|")'把数组以|号分开且给值ProductPhoto3
n=ubound(ProductPhoto3)'计算数组长度
for i=0 to n-1%>
<tr class="odd">
<td align="center"><%=I%></td>
<td align="left"><a class="thumbnail" href="javascript:void(0)"><%=ProductPhoto3(i)%><span><img src="../<%=ProductPhoto3(i)%>" border="0"></span></a></td>
<td align="center"><A href="pic2.asp?ID=<%=rs("ID")%>&url=<%=ProductPhoto3(i)%>&action=del">删除</A></td>
</tr>
<%next
end if
%>
<%
rs.movenext
loop
rs.close
end if
%>

Answer 1

加入数据库中是A|B|C|D|
我们要删除C
那么：
deletename="c"
'首先删除了实际文件
files="../../"&deletename '这是c的路径。
filename = Server.MapPath(files)
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
If (MyFileObject.FileExists(trim(filename))) Then
MyFileObject.DeleteFile trim(filename)
End If
'然后更新数据库
newstr=replace(rs("pic",deletename&"|","")'把A|B|C|D|变成A|B|D|
rs("pic")=newstr'回填到数据库中
rs.update '回填
rs.close '关闭
set rs=nothing'清空

Answer 2

你需要知道图片存放位置的完整逻辑路径，然后映射出物理路径，创建scripting.filesystemobject对象后，使用其deletFile方法删除。然后再把数组里面的相应元素删除。