取得浏览者的离开时间

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

sub Application_OnStart  

Application("conn")="dsn=;uid=;pwd="

end sub

Sub session_onstart

session("ip")=Request.ServerVariables("REMOTE_ADDR")
session("stime")=now()

application.Lock
if application("clicks")="" then
application("clicks")=0
end if
application("clicks")=application("clicks")+1

application.UnLock


End Sub

Sub Session_Onend

application.Lock

StrSQL="dsn=;uid=;pwd="
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
  
  SQL = "insert into client(c_date,stime,etime,ip) values(‘’"&date()&"‘’,‘’"&session("stime")&"‘’,‘’"&now()&"‘’,‘’"&session("ip")&"‘’)"

conn.Execute(sql)

conn.Close
set conn=nothing

application.UnLock
  
End Sub

</SCRIPT>

原文转自：http://www.ltesting.net