Sub DeleteFile(FileName)
Dim FSO
Set FSO=Server.CreateObject("Scriping.FileSystemObject")
If FSO.FileExists(FileName) Then
FSO.DeleteFile FileName
End If
Set FSO=Nothing
End Sub
在上传的文件中加上一个判断,如
set rs=createobject("adodb.recordset")
sql="select * from 表名 where 编号="&request.querystring("id")
rs.open sql,conn
if rs.eof then
filename=用时间+随机数字生成的新名字
else
filename=rs("图片")
end if
以下是引用griefforyou在2005-4-22 12:22:44的发言:
Sub DeleteFile(FileName)
Dim FSO
Set FSO=Server.CreateObject("Scriping.FileSystemObject")
If FSO.FileExists(FileName) Then '这行就是判断文件是否存在
FSO.DeleteFile FileName
End If
Set FSO=Nothing
End Sub