Application event: start, end and session event (VB.net)

来源：互联网发布：小学生ppt软件下载编辑：程序博客网时间：2024/05/16 01:00

有关web.config的各种配置详细参考

Web.config详解

Web.config中session的配置

查了很多资料，全是C#的，对应的方法都是有参数的，和VB.Net不一样，详细如下

Sub Application_OnStart() Application("TaxRate") = 0.5125 Application("appConn") = New OleDbConnection( _ "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _ & "DATA SOURCE=" & Server.MapPath _ ("EmployeeDatabase.mdb;")) Application("ApplicationName") = "My Site" Application("FontColor") = "Red" Application("ShippingCharge") = .03End SubSub Application_OnEnd()' Dim MyLog as New EventLog ' MyLog.Log = "Application" ' MyLog.Source = "My Test ASP.NET Application" ' MyLog.WriteEntry("The application ended at " _ ' & Now() & ".")End SubSub Session_OnStart() Application("SessionStarts") = Application("SessionStarts") + 1 Session.TimeOut = 1' Session("TheEventLog") = New EventLog ' Session("TheEventLog").Log = "Application" ' Application.Lock Application("TotalUsers") = Application("TotalUsers") _ + 1 Application.Unlock 'If Len(Session("WhenEntered")) = 0 Then ' Response.Redirect("welcome.aspx") ' Session("WhenEntered") = Now() 'End IfEnd SubSub Session_OnEnd() Dim MyLog as New EventLog MyLog.Log = "Application" MyLog.Source = "A session that started on " _ & Session("WhenEntered") & " ended at " _ & Now() Application("SessionStops") = _ Application("SessionStops") + 1 End Sub'Sub Application_Error(Sender as Object, e as EventArgs)' Response.Redirect("errorshappen.aspx")'End Sub

C#中对应的是

Protected Sub Session_Start(ByRef sender As Object, ByRef e As EventArgs) System.Diagnostics.Debug.WriteLine(" =========Session_Start==========") End Sub Protected Sub Session_End(ByRef sender As Object, ByRef e As EventArgs) System.Diagnostics.Debug.WriteLine(" =========Session_End==========") End Sub

最终发现这些还是参照官方的文档CSDN，这上面讲的比较全面

http://msdn.microsoft.com/en-us/library/ms178581.aspx

http://msdn.microsoft.com/zh-cn/library/system.web.sessionstate.aspx