取得浏览者的离开时间

<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