不用Global.asa也能实现统计在线人数吗？
来源：asp之家 发布时间：2009-10-29 12:28:00
可以的，看看下面的代码和说明：
<％
sessionID = session.SessionID
timeout = 5
' 设置session保持的时间
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("count.mdb")
'Conn_String = "activeUser"
' 最好设置DSN = "activeuser",因为我们需要在所有的ASP脚本中包含这个文件
Set ConnCount =Server.CreateObject("ADODB.Connection")
ConnCount.Open Conn_String
aaa = dateadd("n", -timeout, now())
connCount.Execute ("delete * from count where postdate < #" & aaa & "#")
' 在超时后删除session
sql0 = "select sess from count where sess='" & sessionID & "'"
' 保持sessionID
set rscheck = connCount.Execute (sql0)
if rscheck.eof then
sql = "insert into count (sess,postdate) values('" & sessionID & "', '" & now() & "')"
connCount.Execute (sql)
end if
rscheck.close
set rscheck = nothing
sql2 = "select count(sess) from count"
' 计算sessionID
set rs = connCount.Execute (sql2)
count = rs(0)
rs.close
set rs = nothing
sql3 = "select * from count"
set rspredel = connCount.Execute (sql3)
do until rspredel.eof
xxx=DateDiff("n", rspredel("postdate"), Now())
if xxx > timeout then
count = count-1
end if
rspredel.movenext
loop
rspredel.close
set rspredel = nothing
connCount.Close
set connCount = nothing
if count = 0 then
count = 1
end if
％>
当前正有<％=count％>人在asp之家流连忘返!
0
投稿猜你喜欢
- 最近拾回Django学习，实例练习中遇到了对多维字典类型数据的遍历操作问题，Google查询没有相关资料…毕竟是新手，到自己动手时发现并非想
- 写在前面如非特别说明，下文均基于Python3命名空间与作用于跟名字的绑定相关性很大，可以结合另一篇介绍Python名字、对象及其绑定的文章
前言做一个简单的日志数据库功能不需要特别繁琐主要就是记录普通日志和错误日志（INFO,ERROR）用数据库作为日志有好处也有坏处相比于文本来- 简介pyenv 是一个开源的 Python 版本管理工具，可以轻松地给系统安装任意 Python 版本，想玩哪个版本，瞬间就可以切换。有了
- 本文实例为大家分享了python绘制箱型图的具体代码，供大家参考，具体内容如下import numpy as npimport pandas
- 前言：集合这个词应该比较耳熟，大多数人没接触代码前就学过了。回想一下你的高一数学课本上是不是出现过这个词，就在第一章，概念如下：一般地，我们
- 本篇文章记录如何使用python将pdf文件切分成一张一张图片，包括环境配置、版本兼容问题。环境配置（mac）安装ImageMagickbr
- 这段时间写了很多页面代码，除了一些知识重复以外，也学到css的一些新东西，或许是旧东西，但是还是希望能对大家有用。其实在css里面有很多对a
- 布尔表示两值之一：True 或 False。 布尔值在编程中，通常需要知道表达式是 True 还是 False。可以计算 Python 中的
- 问题：不同版本提交的城市文件夹数量固定，怎样确定本版本成果中缺少了哪些城市？背景：已有参照文件作为标准，利用取差集的方法#-*- codin
- MySQL数据库应用广泛，尤其对于JAVA程序员，不会陌生。如果在不想采购云数据库的情况下，可以自行安装MySQL数据库。文章将介绍，手动在
- 前言目前，Golang 可以认为是服务器开发语言发展的趋势之一，特别是在流媒体服务器开发中，已经占有一席之地。很多音视频技术服务提供商也大多
- 在技术问答中看到一个这样的问题，感觉相对比较常见，就单开一篇文章写下来。从纯文本格式文件 “file_in”中读取数据，格式如下：需要输出成
- 前言Django中的中间件是一个轻量级、底层的插件系统，可以介入Django的请求和响应处理过程，修改Django的输入或输出。中间件的设计
- 问题：之前在学习list和dict相关的知识时，遇到了一个常见的问题：如何在遍历list或dict的时候正常删除？例如我们在遍历dict的时
- 前言上网浏览网页的时候，看见好的内容免不了要使用复制粘贴，但是我们看到的内容、心里想要的内容和实际粘贴后的内容往往不一致。数据的获取始于复制
- 我使用的是tensorflow-gpu (1.2.1)和Theano (0.9.0)，2个4G显存Nvidia Quadro M2000 G
- PHP策略模式（Strategy Pattern）策略模式是一种行为设计模式，它允许在运行时选择算法行为的方法。该模式定义了一组算法，将每个
- 为什么使用Python假设我们有这么一项任务:简单测试局域网中的电脑是否连通.这些电脑的ip范围从192.168.0.101到192.168
- 本文实例讲述了Yii2中SqlDataProvider用法。分享给大家供大家参考，具体如下：第一种方法：$totalCount = Yii:
