各位哥哥帮小弟看一下以下这段代码能行吗??怎么好象都没有效果的?
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
Session.timeout=1
End sub
Sub Session_OnEnd
cust_name=session("custname")
log_logontime=session("logontime")
log_logouttime=now()
'
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("customer.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'更改客户登录日志表,修改logout 的时间以及总在线时间
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
rs.open "select * from cust_log where log_name='"&cust_name&"' and log_logontime=#"&log_logontime&"#",,1,2
if not rs.eof then
rs("log_logontime")=log_logontime
rs("log_logouttime")=now()
rs("log_sumtime")=datediff("n",log_logontime,log_logouttime)
rs.update
rs.close
end if
End sub