东莞高端做网站公司,信息网站 微站,动易手机网站模板,网站设计制作规范[asp]统计在线人数情况 以前ASP版本的统计在线。因为是从以前的系统中提取出来的。使用的话要修改下。 IfCbool(Application(MARKONLINE)) TrueThenCheckOnline()FunctionCheckOnline() DIMIP,rsPrv,Sql IfDBSTATE FalseThenDbOpen() SetrsPrvServer.Crea… [asp]统计在线人数情况 以前ASP版本的统计在线。因为是从以前的系统中提取出来的。使用的话要修改下。 If Cbool(Application(MARKONLINE)) True Then CheckOnline()Function CheckOnline() DIM IP,rsPrv,Sql If DBSTATE False Then DbOpen() Set rsPrvServer.CreateObject(ADODB.Recordset) If Session(UserName) then Sqlselect * from [Online] where SessionID Session.Sessionid rsPrv.Open Sql,Conn,1,3 If rsPrv.Eof then rsPrv.AddNew rsPrv(SessionID) Session.SessionID rsPrv(GroupChargeLv) -1 rsPrv(LastActTime)Now() rsPrv(UserIP) GetIP rsPrv(OnLineTime) 0 rsPrv(UserWhere) Request.ServerVariables(HTTP_REFERER) Else rsPrv(UserWhere) Request.ServerVariables(HTTP_REFERER) rsPrv(OnLineTime) rsPrv(OnLineTime) DateDiff(n,rsPrv(LastActTime),Now()) rsPrv(LastActTime) Now() End If rsPrv.Update rsPrv.Close() response.Write notlogin Else response.Write logined Sqlselect * from [Online] where UserName Session(UserName) rsPrv.Open sql,Conn,1,3 If rsPrv.Eof then rsPrv.AddNew rsPrv(SessionID) Session.SessionID rsPrv(UserName) Session(UserName) rsPrv(GroupChargeLv) Session(GroupChargeLv) rsPrv(LastActTime) Now() rsPrv(OnLineTime) 0 rsPrv(UserIP) GetIP rsPrv(UserWhere) Request.ServerVariables(HTTP_REFERER) Else If rsPrv(SessionID) Session.SessionID And Application(LoginSet)(1) False Then Response.Write(scriptalert(该帐户已在其他地方登陆网站设置1个ID只能有1个登陆\n你可以稍候尝试登陆。);location.hrefLoginOut.asp) Response.End() End If rsPrv(UserWhere) Request.ServerVariables(HTTP_REFERER) rsPrv(OnLineTime) rsPrv(OnLineTime) DateDiff(n,rsPrv(LastActTime),Now()) rsPrv(LastActTime)Now() End If rsPrv.Update rsPrv.Close() End If If DateDiff(s,Application(OnLineLastDelete),Now()) Int(Application(DELETEONLINEDIFF)) Then Application.Lock() Application(OnLineLastDelete) now Application.UnLock() Conn.ExeCute(delete from [Online] where datedIff(s,LastActTime,Now()) Int(Application(CHECKONLINEDIFF) )) 删除x秒没有活动的访客 End If Set rsPrv NothingEnd Function posted on 2006-03-31 12:10 堕落的卖猪贩 阅读(...) 评论(...) 编辑 收藏 转载于:https://www.cnblogs.com/zkxp/archive/2006/03/31/363443.html
