各位大虾大家好啊。我想在session_onend事件后操作数据库。但发现更新数据失败。请高手指点。谢谢。
我的代码如下:global.asa 文件中的代码
Sub Session_onStart()
set conn=Server.CreateObject("ADODB.Connection")
Application("db")=Server.MapPath("./bbs.mdb") '此处最好使用绝对路径/bbs.mdb,下文有详细介绍
Conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Application("db")
conn.Execute "update online set SessionID= '" & Session.SessionID & "' Where id=1"
End Sub
Sub Session_onEnd()
set conn=Server.CreateObject("ADODB.Connection")
Conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Application("db")
application("a")="我没有被执行"
conn.Execute "update online set online=8 where SessionID= '" & Session.SessionID &"'"
application("b")="我被执行了"
conn.close
End Sub
test.asp文件中的代码
<%
session("a")="a"
session.abandon
response.write application("a")
response.write application("b")
set conn=Server.CreateObject("ADODB.Connection")
Application("db")=Server.MapPath("./bbs.mdb") '此处最好使用绝对路径/bbs.mdb,下文有详细介绍
Conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Application("db")
conn.Execute "update online set online=1 where SessionID= '" & Session.SessionID & "'"
%>
我连续执行两次之后,发现:test.asp显示我没有被执行。而数据库的值改成了1。
还请高手指点啊。
谢谢!!
我的代码如下:global.asa 文件中的代码
Sub Session_onStart()
set conn=Server.CreateObject("ADODB.Connection")
Application("db")=Server.MapPath("./bbs.mdb") '此处最好使用绝对路径/bbs.mdb,下文有详细介绍
Conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Application("db")
conn.Execute "update online set SessionID= '" & Session.SessionID & "' Where id=1"
End Sub
Sub Session_onEnd()
set conn=Server.CreateObject("ADODB.Connection")
Conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Application("db")
application("a")="我没有被执行"
conn.Execute "update online set online=8 where SessionID= '" & Session.SessionID &"'"
application("b")="我被执行了"
conn.close
End Sub
test.asp文件中的代码
<%
session("a")="a"
session.abandon
response.write application("a")
response.write application("b")
set conn=Server.CreateObject("ADODB.Connection")
Application("db")=Server.MapPath("./bbs.mdb") '此处最好使用绝对路径/bbs.mdb,下文有详细介绍
Conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Application("db")
conn.Execute "update online set online=1 where SessionID= '" & Session.SessionID & "'"
%>
我连续执行两次之后,发现:test.asp显示我没有被执行。而数据库的值改成了1。
还请高手指点啊。
谢谢!!