session_onend中删除数据库数据

截取网上资料：
1、
----------------------------------------------------------------------------
<Script LANGUAGE = VBScript RUNAT = Server>
Sub Session_OnStart
set rs1=conn.execute("select * from online where oname='"&name&"'")
if rs1.eof and rs1.bof then '如果为空,则说明该用户没有登陆,插入该用户名和当前时间

Conn.Execute("Insert into online(oname,odata,SessionID) Values('"&request("admin")&"','"&Cstr(cdate(now()))&"'," & Session.SessionID & ")")
End Sub

Sub Session_OnStart
Response.Expires = -100
Server.ScriptTimeout = 10
Session.Timeout = 5

End Sub

Sub Session_OnEnd
SET sqlConn = SERVER.CREATEOBJECT("ADODB.Connection")
sqlConn.Open "Provider=sqloledb;Data Source=192.168.0.3;Initial Catalog=;User Id=sa;Password=;"

sSQL = "DELETE From online WHERE SessionID = " & Session.SessionID
SQLConn.Execute(sSQL)
sqlConn.Close
Set sqlConn = Nothing
End Sub
</Script>
------------------------------------------------------------------------
2、
-----------------------------------------------------------------------
Sub Session_OnEnd()
Application.Lock
Application("CurrentUsers")=Application("CurrentUsers")-1
Application.UnLock
set con=server.CreateObject("adodb.connection")

' comm="DRIVER={SQL Server};SERVER=(local);UID=psforumadm;PASSWORD=pabx&*(;DATABASE=psforum"
'Con.Open comm
con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db1.mdb")

UserName = Session("UserName")
sql="select * from Online where NickName='"&UserName&"'"
set rs=Server.CreateObject ("AdoDb.RecordSet")

rs.Open sql, con, 2, 3

If NOT(rs.Eof or rs.Bof )Then
rs.Delete
rs.UpDate
End If

rs.Close
con.close

If Application("Stats").Exists(Session.SessionID) then
Application.Lock
Application("Stats").Remove(Session.SessionID)
Application.Unlock
end if
end sub
在session_onend()过程里面不能用sever.mappath,改成绝对路径,等到session.timeout之后再看看,应该能行了 在msdn帮助里看到,在Session_OnEnd 事件里不能调用mapmath过程
application("path")=server.mappath("aa.mdb")
在application的start事件上加上这么一句就好了
------------------------------------------------------------------------------
3、
---------------------------------------------------------------------------

net_lover（【孟子E章】）

<Script LANGUAGE = VBScript RUNAT = Server>
Sub Session_OnStart
'清空LoginUser表
End Sub

Sub Session_OnStart
Response.Expires = -100
Server.ScriptTimeout = 10
Session.Timeout = 1
SET sqlConn = SERVER.CREATEOBJECT("ADODB.Connection")
sqlConn.Open "Provider=sqloledb;Data Source=.;Initial Catalog=phedu;User Id=sa;Password=;"

sSQL = "Insert LoginUser (SessionID) Values(" & Session.SessionID & ")"
SQLConn.Execute(sSQL)
sqlConn.Close
Set sqlConn = Nothing
End Sub

Sub Session_OnEnd
SET sqlConn = SERVER.CREATEOBJECT("ADODB.Connection")
sqlConn.Open "Provider=sqloledb;Data Source=.;Initial Catalog=phedu;User Id=sa;Password=;"

sSQL = "DELETE From LoginUser WHERE SessionID = " & Session.SessionID
SQLConn.Execute(sSQL)
sqlConn.Close
Set sqlConn = Nothing
End Sub
</Script>
-----------------------------------------------------------------------------