VB.NET 写日志文件
发布时间:2020-12-17 07:36:05 所属栏目:百科 来源:网络整理
导读:''' summary ''' 写日志 ''' /summary ''' param name="msg"日志内容/param ''' param name="context"上下文对象/param ''' remarks/remarks Sub WriteLog(msg As String,Optional context As System.Web.HttpContext = Nothing) Dim filepath As String = "
''' <summary> ''' 写日志 ''' </summary> ''' <param name="msg">日志内容</param> ''' <param name="context">上下文对象</param> ''' <remarks></remarks> Sub WriteLog(msg As String,Optional context As System.Web.HttpContext = Nothing) Dim filepath As String = "" If context Is Nothing Then filepath = Me.LogFilePath Else filepath = context.Server.MapPath("..") + "FileLogFile" End If filepath &= Now.ToString("yyyyMMdd") & ".txt" Dim content As String If context IsNot Nothing Then content = "<-------------异常时间:" & Now.ToString("yyyy-MM-dd HH:mm:ss") & _ Chr(13) & msg & "来源:" & context.Request.Url.ToString & _ "错误信息:" & context.Error.Message & _ Chr(13) & "错误详情:" & Chr(13) & context.Error.StackTrace & Chr(13) & _ "--------------->" & Chr(13) Else content = "异常时间:" & Now.ToString("yyyy-MM-dd HH:mm:ss") + Chr(13) & msg & Chr(13) End If File.AppendAllText(filepath,content) End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |