rem 删除文件 Public Function DelFile(DelFilePath) On Error Resume Next DelFile= False set MyFileObject=Server.CreateOBject("Scripting.FileSystemObject") MyFileObject.DeleteFile""&Server.MapPath(""&DelFilePath&"")&"" Set MyFileObject= Nothing If 0 = Err or 53 = Err Then DelFile= True else' CatchError(""&DelFilePath&"\n文件无法删除!") end if On Error GoTo 0 End Function给你写了个删除的function删除的时候调用试下吧