ASP利用FSO删除文件

‘删除图片函数,purl为图片的文件名
function delimg(purl)
on error resume next
dim fso
set fso=server.CreateObject(“Scripting.FileSystemObject”)
fso.DeleteFile server.MapPath(“../upImages/” & purl),true
set fso=nothing
end function

2.
FilePath=Server.MapPath(“image/2004922dao1.jpg”)
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
IF fso.FileExists(FilePath) Then
fso.DeleteFile(FilePath)
End IF
Set fso = Nothing