application.lock
application("zaixian")=application("zaixian")+1
application.unlock
session("id")=""
End Sub
Sub Session_OnEnd
application.lock
application("zaixian")=application("zaixian")-1
application.unlock
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open "driver={microsoft access driver (*.mdb)};dbq=E:/web/login/login.mdb"
zaixian1="delete * from zaixian where time='"&session("time1")&"'"
set rs=conn.execute (zaixian1)
rs.close
set conn=nothing
session.abandon
session("id")=""