|
<OBJECT
runat=Server
scope=Session
id=Fs
progid="Scripting.FileSystemObject"
></OBJECT>
<SCRIPT language=VBScript runat=Server>
' **********************************************************
' セッション開始
' **********************************************************
Sub Session_OnStart
Dim LogFile
Session.Timeout = 1
Set LogFile = Fs.OpenTextFile( _
"C:\temp\" & Session.SessionID & ".log" _
, 8 _
, True )
LogFile.WriteLine _
Now & " : Session Start | id = " & Session.SessionID _
& " , Timeout = " & Session.Timeout
End Sub
' **********************************************************
' セッション終了
' **********************************************************
Sub Session_OnEnd
Dim LogFile
Set LogFile = Fs.OpenTextFile( _
"C:\temp\" & Session.SessionID & ".log" _
, 8 _
, True )
LogFile.WriteLine Now & " : Session End | id = " & Session.SessionID
End Sub
</SCRIPT>
| |