大侠们好!
我想问一下,我的相片已上传功能已做好,那下一步,我想删除,那怎么做呢?
下面这个对楼主会有帮助的(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
%>
你看我这个行不行,数据库里的图片跟经删是删了,但是上传在的那个文件里的图片没有被删除啊?
<!--#Include file="linkdata.asp"-->
<%
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>"
%>