в 15:30, 26 мая 2010

2010-05-26T15:30:47Z

Admin: 1 версия

2010-05-26T11:53:49Z

1 версия

Новая страница

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



<source lang="csharp">
<%@ 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>

</source>

<A href="http://www.nfex.ru/Code/ASPDownload/EmployeeDatabase.zip">EmployeeDatabase.zip( 10 k)</a>

← Предыдущая	Версия 15:30, 26 мая 2010
(нет различий)

ASP.Net/Server/Application Event - История изменений

в 15:30, 26 мая 2010

Admin: 1 версия