Question

关于删除信息时删除图片的ASP!

if request.QueryString("action")="del" then
conn.execute "delete from gongcheng where gc_id in ("&request("selectdel")&")"
response.Redirect "editgc2.asp"
end if
这是删除库内信息的
Set rs = Conn.Execute"SELECT * FROM gongcheng WHERE gc_id="&gc_id)
If Not rs.EOF Then
ImageFile = rs("gc_sl")
filename = Server.MapPath(ImageFile)
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
If (MyFileObject.FileExists(trim(filename))) Then
MyFileObject.DeleteFile trim(filename)
conn.execute("Update gongcheng set gc_sl='' where gc_id="&gc_id)
End If
End If
这是删除信息相关的图片,该怎么用的?哪位知道的说下,谢谢
说详细点,看不懂.我还是一个小菜555555

binsen11用你的方法,文件夹里图片还是在的.内容可以删掉不问题.(在本机运行)
如果一次选择多条记录就出错了,可以让一次删除多条,图片也一起删吗?

Answer 1

你这段代码觉得有点奇怪的。
你的意思是删除gongcheng 表中的gc_id=request("selectdel")的纪录，顺便把gc_sl的图片删除吗？

如果是的话就换成如下的代码吧

gc_id=request("selectdel")
action=request.QueryString("action")

if action="del" then

set rs=server.createobject("adodb.recordset")
sql="select * from gongcheng where gc_id="&gc_id&" "
rs.open sql,conn,3,3
if not rs.eof then
'如果图片存在，删除图片
if rs("gc_sl")<>"" then
set mfso=server.CreateObject("scripting.FileSystemObject")
if mfso.fileExists(server.MapPath(rs("gc_sl"))) then
set myfile=mfso.getfile(server.MapPath(rs("gc_sl")))
myfile.delete
end if
end if

'删除记录
rs.delete

end if
rs.close
end if

Answer 2

if request.QueryString("action")="del" then
conn.execute "delete from gongcheng where gc_id in ("&request("selectdel")&")"
response.Redirect "editgc2.asp"
end if
'选出gc_id指定的工程记录。
Set rs = Conn.Execute"SELECT * FROM gongcheng WHERE gc_id="&gc_id)
'如记录存在
If Not rs.EOF Then
'从gc_sl字段取出图片文件的相对路径。
ImageFile = rs("gc_sl")
'将相对路径转化成物理路径。
filename = Server.MapPath(ImageFile)
'创建fso，是用这个的前提是服务器上要注册fso组件
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'使用fso对象判断图片文件是否存在，
If (MyFileObject.FileExists(trim(filename))) Then
'存在则删除。
MyFileObject.DeleteFile trim(filename)
更新数据库信息。
conn.execute("Update gongcheng set gc_sl='' where gc_id="&gc_id)
End If
End If

'注册fso组件的方法是“开始”-“运行”-regsvr32 scrrun.dll

Answer 3

if rss("mopic")<>"" and dels.FILEExists(replace(server.mappath(rss("mopic")),"somin\","")) then