[inc.asp:]
Dim Conn,ConnStr,Uip
Const DataURL = "data/data.Mdb";
Conn=Server.CreateObject("ADODB.Connection");
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath(DataURL);
Conn.Open ConnStr
Uip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IF Uip = "" Then Uip = Request.ServerVariables("REMOTE_ADDR")
连接数据库
[Online.asp]
每个页面插入以下代码
<!--#i nclude file="Inc.asp"-->
IF Conn.ExeCute("Select * From[Online] where [IP]='"&Uip&"'").Eof Then
Conn.ExeCute("InSert Into[Online]([IP],[Time])values('"&Uip&"','"&Now()&"')")
Else
Conn.ExeCute("Update [Online] Set [Time]='"&Now()&"' where [IP]='"&Uip&"'")
End IF
Conn.ExeCute("Delete From[Online] where DateDiff('s',[Time],Now())>=1200") '这句删除超过1200秒没有活动的记录 可根据需要修改
Dim OnlineNumber
OnlineNumber = Conn.ExeCute("Select Count(IP) From[Online]")(0)
Conn.Close
Set Conn = Nothing '关闭连接 释放资源
[数据库]
Online表:
IP 文本字段 [主键]
Time 时间格式
在需要统计的地方插入<%=OnlineNumber%>
///////////////////////////
最基本的 可根据需要扩展
Dim Conn,ConnStr,Uip
Const DataURL = "data/data.Mdb";
Conn=Server.CreateObject("ADODB.Connection");
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath(DataURL);
Conn.Open ConnStr
Uip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IF Uip = "" Then Uip = Request.ServerVariables("REMOTE_ADDR")
连接数据库
[Online.asp]
每个页面插入以下代码
<!--#i nclude file="Inc.asp"-->
IF Conn.ExeCute("Select * From[Online] where [IP]='"&Uip&"'").Eof Then
Conn.ExeCute("InSert Into[Online]([IP],[Time])values('"&Uip&"','"&Now()&"')")
Else
Conn.ExeCute("Update [Online] Set [Time]='"&Now()&"' where [IP]='"&Uip&"'")
End IF
Conn.ExeCute("Delete From[Online] where DateDiff('s',[Time],Now())>=1200") '这句删除超过1200秒没有活动的记录 可根据需要修改
Dim OnlineNumber
OnlineNumber = Conn.ExeCute("Select Count(IP) From[Online]")(0)
Conn.Close
Set Conn = Nothing '关闭连接 释放资源
[数据库]
Online表:
IP 文本字段 [主键]
Time 时间格式
在需要统计的地方插入<%=OnlineNumber%>
///////////////////////////
最基本的 可根据需要扩展