'功能:删除文件(图片)'参数:@filestr文件路径,(可以用相对路径)FunctionDeleteFile(FileStr)DimFSOOnErrorResumeNextSetFSO=CreateObject("Scripting.FileSystemObject")IfFSO.FileExists(Server.MapPath(FileStr))ThenFSO.DeleteFileServer.MapPath(FileStr),TrueElseDeleteFile=TrueEndIfSetFSO=NothingIfErr.Number<>0ThenErr.Clear:Del