请教：大家怎么样用ASP删除文件、图片！！在线求救！！

[qxs]

问题是这样的，我在录入新闻的时候，需要上传图片，我用的是无组件上传的，把图片的名字写进数据库中，图片上传到服务器上的一个文件夹picture目录下，
现在我要删除数据库中记录，所以相应的，要删除图片，
ASP怎么样删除现在存放在PICTURE文件夹中的图片呢！

谢谢大家！

[nchen123]

用 fso,示例：

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
filePath = server.mappath("image")

fso.DeleteFolder(filePath,true)

[nchen123]

其中 filePath 你可以根据数据库读出的图片名等自己替换一下即可

[jesee]

支持

[hzqq]

set fs = server.CreateObject("Scripting.FileSystemObject")
filePath = server.mappath("image")
'删一个文件也一样
on error resume next'推荐加上这个，以免没有文件时出错
fso.Delete filePath&filename,true

[nchen123]

详细的用法可以参看<<VbScript参烤>> ,一本chm的电子书，找不到的话我可以发给你

[cuipeng99]

仅供参考

'** 删除记录对应文件模块 Recordset:Recordset1.photourl
Dim XP_Dirtpath, XP_Filepath
Dim XP_fso, XP_msg
XP_Dirtpath = "../upload/" ' **上传文件目录名
XP_Filepath = Server.Mappath(XP_Dirtpath & rs1.Fields.Item("photourl").Value) '** 上传文件名及其绝对路径
Set XP_fso = CreateObject("Scripting.FileSystemObject")
If (XP_fso.FileExists(XP_Filepath)) Then
'** 判断文件是否存在
XP_fso.DeleteFile(XP_Filepath)
'** 删除上传文件

'** 显示文件删除情况
rs1.close
sql="delete FROM photo where photoid="& id
conn.execute sql
response.write("<script language='javascript'>alert('文件及记录均成功删除!');history.go(-1)</script>")
Else
rs1.close
sql="delete FROM photo where photoid="& id
conn.execute sql
response.write("<script language='javascript'>alert('该文件不存在，已经删除数据记录!');history.go(-1)</script>")
End If
End sub
%>

[julong88]

学习！

[fcxj]

请问安全吗？我也想用

[zykj_2000]

安不安全，就要看你主机的设置了

[chinesun]

dim MyFSO,MyFile
Set MyFSO = Server.CreateObject("Scripting.FileSystemObject")
MyFile=trim(rs("picturefile"))//这个数据从数据库中读出，格式是"picture\picfile.gif"
MyFSO.DeleteFile(Server.MapPath(MyFile))

这样试试
你的空间必须支持FSO，否则不行。

[andy2001p]

收藏

[cauiot]

： chinesun(郑返) ( ) 信誉：115