global.asa<scriptLANGUAGE="VBScript"RUNAT="Server"> SubApplication_OnStartApplication("ActiveUsers")=0'从0开始计起.不过你可以把它设得更多哦,这样即使没人在线,人家一来你网站还会看到有900多人在线呢.EndSub SubSession_OnStartSession.Timeout=20'把Session超时设为30分钟——这是噱头之关键所在,你想设多少就设多少.Session("Start")=Now'Session开始时间 Application...

'设置好global.asa文件,如下:<scriptLANGUAGE="VBScript"RUNAT="Server">SubApplication_OnStart   Application("ActiveUsers")=0   '设置计数初始值,可以根据自己的需要哦.EndSubSubSession_OnStart   Session.Timeout=20'根据需要,设置超时时间.   Session("Start")=Now'设置一个Session开始时间...

不用Global.asa也能实现统计在线人数吗？<%sessionID=session.SessionIDtimeout=5'设置session保持的时间.Conn_String="DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("count.mdb")'Conn_String="activeUser"'最好设置DSN="activeuser",因为我们需要在所有的ASP脚本中包含这个文件.SetConnCount=Server.CreateObject("ADODB.Connection")ConnCount...

count.asp:<%Server.ScriptTimeout=300id=Trim(Request.QueryString("id"))fc=Trim(Request.QueryString("fc"))iffc=""thenfc="FFFF00"bg=Trim(Request.QueryString("bg"))ifbg=""thenbg="000000"bc=Trim(Request.QueryString("bc"))i...

count.asp:<%Server.ScriptTimeout=300id=Trim(Request.QueryString("id"))fc=Trim(Request.QueryString("fc"))iffc=""thenfc="FFFF00"bg=Trim(Request.QueryString("bg"))ifbg=""thenbg="000000"bc=Trim(Request.QueryString("bc"))i...

<%sessid=session.sessionidtimeout=5'分钟dimconn,connstr,dbpathdbpath="online.mdb"'connstr="DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath(dbpath)connstr="provider=microsoft.jet.oledb.4.0;datasource="&server.mappath(dbpath)setconn=server.createobject("adodb.connection")conn.openc...