<script language="VBScript" runat="server">
Sub Session_onStart()
Session("StartTime")=Now() 'Sessionʱʼͳûʱ
End Sub
Sub Session_onEnd()
On Error Resume Next 'ݴ
filename='ûʱ¼.txt'
starttime=Session("StartTime")
endtime=DateAdd("n",-0,Now())
intMinutes=DateDiff("n",starttimt,endtime)
if intMinutes>0 then
info="ʽ"&endtime&intMinutes
set OBF=Server.CreateObject("Scripting.FileSystemObject")
set of=OBF.OpenTextFile(filename,8,True)
of.writeline info
of.Close
End If
End Sub
</script>