Sub Application_OnStart
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Application.Lock
TxtPath = Server.MapPath("/config/config.asp")
Set fin = fso.OpenTextFile(txtPath, , True)
fin.Readline
servername=fin.Readline
dataname=fin.Readline
user=fin.Readline
password=fin.Readline
www=fin.Readline
Member=fin.Readline
fin.Close
set fin=nothing
Application.UnLock
set fso=nothing
set cn=server.CreateObject ("adodb.connection")
cn.Open application("connection")
cn.execute("delete from online")
cn.Close
set cn=nothing
End Sub
Sub session_OnStart
set cn=server.CreateObject ("adodb.connection")
cn.Open application("connection")
set rs=server.CreateObject ("adodb.recordset")
rs.Open "select * from online where sessionid is null",cn,3,3
rs.AddNew
rs("sessionid")=session.SessionID
rs("ip")=Request("REMOTE_ADDR")
rs("visittime")=now()
rs("Agent")=Request.ServerVariables("HTTP_USER_AGENT")
rs.Update
rs.Close
set rs=nothing
End Sub
Sub Session_OnEnd
set cn=server.CreateObject ("adodb.connection")
cn.Open application("connection")
cn.execute("delete from online where sessionid="&session.SessionID )
cn.Close
set cn=nothing