如何获取用户在线时间,并写入到数据库中.请高手帮忙看一下.俺在GLOBAL.ASA文件里这样写的不知道对不对

[mqiuxia]

如何获取用户在线时间,请高手帮忙看一下.俺在GLOBAL.ASA文件里这样写的不知道对不对,请高手指点一下。取的用户的在线时间并写入到数据库中。


Sub Session_onEnd()

On Error Resume Next

datStartTime = Session("StartTime")
datEndTime = DateAdd("n", -2 , Now())
intMinutes = DateDiff("n", datStartTime, datEndTime)
If intMinutes > 0 Then
Set oConn = Nothing
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("data/dkjmht.mdb")
dbpathStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
conn.Open dbpathStr
strSQL = "update logininfo set outtime='"& datEndTime &"',onlinetime="& intMinutes &" where userid="& session("khid") &" "
conn.execute(strSQL)
End If

End Sub