关于,删除图片? - 编程论坛

#2

qhscqb2007-10-15 18:07

我一般是用FSO，上传时我将图片地址写入数据库，然后再删除它

#3

yms1232007-10-15 18:07

在ASP中删除文件一般只用FSO(File System Object)来删除。

#4

做人很低调2007-10-15 20:19

下面这个对楼主会有帮助的（Server要支持FSO才可以）

<%
Function DeleteFile(FilePath)'删除文件
Dim Fso,Result
FilePath=Server.MapPath(FilePath)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Result=Fso.FileExists(FilePath)
If Result Then
On Error Resume Next
Fso.DeleteFile(FilePath) '***
If Err.Number<>0 Then
Response.Write("<script>alert('操作失败！');history.back();</script >")
Response.End()
End If
Else
Response.Write("<script>alert('文件不存在,操作失败！');history.back();</script>")
Response.End()
End If
Set Fso = Nothing
End Function
%>

#5

中国男孩2007-10-15 21:39

回复：（做人很低调）下面这个对楼主会有帮助的（Serv...

大侠你能发给我一个完整的代码吗?

#6

做人很低调2007-10-15 22:42

这已经是完整的了
你带一个参数就可以了

<%
Call DeleteFile("images/Pic.Gif")
%>

#7

中国男孩2007-10-16 00:13

回复：（做人很低调）这已经是完整的了你带一个参数就...

你看我这个行不行,数据库里的图片跟经删是删了,但是上传在的那个文件里的图片没有被删除啊?


<%
set rs=server.createobject("ADODB.Recordset")

delsql="delete from pic where id="&request.querystring("del")
conn.execute delsql,id

set fso= Server.CreateObject("scripting.filesystemobject")
path="up/uppic/"&request.querystring("name")
path=server.MapPath(path)
'response.write path&"　　　图片删除成功"
'response.end
fso.deletefile path
'fso.close
set fso=nothing
Response.Write "<script language=javascript>alert('删除成功！');self.location=(""show_pic.asp"");</script>"

%>

#8

中国男孩2007-10-16 00:19

这已经是完整的了
你带一个参数就可以了

<%
Call DeleteFile("images/Pic.Gif")
%>
这一句应该发在哪里,

#9

tianyu1232007-10-16 09:59

那里需要删除图片，就在那里调用了！

#10

中国男孩2007-10-16 13:58

好的，谢谢了