|
<%@ Import Namespace="System.Diagnostics" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<SCRIPT LANGUAGE="VB" RUNAT="Server">
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") = .03
End Sub
Sub 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 Sub
Sub 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 If
End Sub
Sub 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
</SCRIPT>
|
EmployeeDatabase.zip( 10 k)