ASP 删记录同时删除多个图片 20
'删除文章记录,同时删除该记录在服务器的多张图片setsc=server.CreateObject("adodb.recordset")sql="selectid,介绍f...
'删除文章记录,同时删除该记录在服务器的多张图片
set sc=server.CreateObject("adodb.recordset")
sql="select id,介绍 from wen where id in("&request("id")&")"
sc.Open sql,conn,1,1
for i=1 to sc.recordcount '多id循环
if not sc.eof then
c=sc("介绍") ''要搜索的字段,即文章内容中的多个 图片
a=instr(c,"[IMG]")
b=instr(c,"[/IMG]")
if a<>0 and b<>0 then '证实 [IMG] 和 [/IMG]的存在 即存在图片链接,多个[IMG]...[/IMG]
move3=right(left(c,b-1),(b-a-5)) ''取 [IMG]和[/IMG]之间的图片路径,我的是绝对路径
path3=server.MapPath(user_No_Path&move3)
set fso3=server.CreateObject("Scripting.FileSystemObject")
if fso3.FileExists(path3)=true then
fso3.DeleteFile(path3) ''文件存在则删除此文件
end if
set fso3=nothing
end if
end if
sc.movenext
next
''以下是删除 对应的id 记录了
set rs = server.CreateObject ("Adodb.Recordset")
sql="delete from zzz_product where id in("&request("id")&")"
rs.Open sql,conn,1,3
..........
------------------------------------------------
现在问题是我只能删除 文章内容中第一个图片 其它的删不掉, 那位高手指点一下,或者 有【更好】的办法??
非常感谢!!
下面的 表名zzz_product 应该为 wen ,谢谢各位 ,希望有更好的 方法,我的好像很不效率 展开
set sc=server.CreateObject("adodb.recordset")
sql="select id,介绍 from wen where id in("&request("id")&")"
sc.Open sql,conn,1,1
for i=1 to sc.recordcount '多id循环
if not sc.eof then
c=sc("介绍") ''要搜索的字段,即文章内容中的多个 图片
a=instr(c,"[IMG]")
b=instr(c,"[/IMG]")
if a<>0 and b<>0 then '证实 [IMG] 和 [/IMG]的存在 即存在图片链接,多个[IMG]...[/IMG]
move3=right(left(c,b-1),(b-a-5)) ''取 [IMG]和[/IMG]之间的图片路径,我的是绝对路径
path3=server.MapPath(user_No_Path&move3)
set fso3=server.CreateObject("Scripting.FileSystemObject")
if fso3.FileExists(path3)=true then
fso3.DeleteFile(path3) ''文件存在则删除此文件
end if
set fso3=nothing
end if
end if
sc.movenext
next
''以下是删除 对应的id 记录了
set rs = server.CreateObject ("Adodb.Recordset")
sql="delete from zzz_product where id in("&request("id")&")"
rs.Open sql,conn,1,3
..........
------------------------------------------------
现在问题是我只能删除 文章内容中第一个图片 其它的删不掉, 那位高手指点一下,或者 有【更好】的办法??
非常感谢!!
下面的 表名zzz_product 应该为 wen ,谢谢各位 ,希望有更好的 方法,我的好像很不效率 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询