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

来源:百度知道 编辑:UC知道 时间:2024/06/06 17:36:15
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用你的方法,文件夹里图片还是在的.内容可以删掉不问题.(在本机运行)
如果一次选择多条记录就出错了,可以让一次删除多条,图片也一起删吗?

你这段代码觉得有点奇怪的。
你的意思是删除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

if request.QueryString("action")=&