我在session_onend()中是这样写的:
sub session_onend()
set conn2=server.CreateObject("adodb.connection")
conn2.Open "Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=netfan;Initial Catalog=birdxx;Data Source=netfan"
str="update userlog set outtime='"&now()&"' where userid='"&session("userid")&"'and outtime is null"
dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.Open str,conn,1,3
rs2.Close
set rs2=nothing
conn2.Close
set conn2=nothing
end sub