function delFile(FilePath)
if ""<>FilePath then '此判断为编辑器自动上传有空值问题临时解决办法
Dbpath=server.mappath(FilePath) '文件的路径
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if FSO.FileExists(Dbpath) then '判断是否有这文件
FSO.DeleteFile(Dbpath)
end if
end if
end function