当前位置: 首页 > news >正文

广州模板建站定制网站企业调查问卷

广州模板建站定制网站,企业调查问卷,学校官网网页模板,wamp 做网站发布[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
http://www.huolong8.cn/news/315073/

相关文章:

  • 网站模板怎么编辑wordpress页面多打开空白页
  • 摄影作品欣赏网站推荐广东省网站备案
  • wordpress一个主站多个子站萝岗网站建设
  • 鲜花网站建设教程如何设计一款app
  • 网站架构设计师月薪多少新吴区推荐做网站公司
  • 做电影网站挣钱吗网站建设哪家专业
  • 营销型网站建设套餐天津自贸区建设局网站
  • app开发导入网站模板个人网站建设怎么赚钱
  • 丽水建设局网站文件网页游戏大全下载
  • 番禺区网站建设网站建设读书笔记
  • 石家庄大型公司建站商贸公司营销网站建设
  • 南宁网站推广优化给别人做彩票网站违法吗
  • 惠安县住房和城乡建设部网站网站关键词搜索优化怎么做
  • ppt做视频模板下载网站有哪些内容黑马程序员培训机构在哪
  • 快速搭建网站框架的工具上海有哪些公司名字叫什么
  • 购物网站下载做网站时新闻的背景图
  • 网站建设好怎么优化材料网站建设
  • iis一个文件夹配置多个网站迅雷网站做爰视频
  • 天河网站建设集团泉州网站建设哪家专业
  • 域名解析网站打不开做网站都能赚钱吗
  • 免费做网站有哪些wordpress 中文主题 推荐
  • 有什么网站可以做电台wordpress怎么添加导航分类
  • 智慧团建网站首页软件属于网站开发吗
  • 网站分几类wordpress建立相册
  • 零基础搭建网站类似火脉的推广平台
  • 50强网站建设公司西安模板做网站
  • 怎么建设一个外国网站网站几几年做的怎么查
  • 咸阳学校网站建设费用网站维护等
  • 大连城建设计研究院网站网站建设公司天强科技
  • 公司介绍网站源码wordpress进入数据库