×

Loading...
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。

@Sacramento

在线人数的例子见内，我想同样的方法也可以存用户名。据说Session_OnEnd有时会不工作。

hillxie(路在脚下)
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
' Set our user count to 0 when we start the server
Application("ActiveUsers") = 0
End Sub

Sub Session_OnStart
' Change Session Timeout to 20 minutes (if you need to)
Session.Timeout = 20
' Set a Session Start Time
' This is only important to assure we start a session
Session("Start") = Now
' Increase the active visitors count when we start the session
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub

Sub Session_OnEnd
' Decrease the active visitors count when the session ends.
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub

</SCRIPT>
(#969894@0)
Last Updated: 2003-1-11
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / IT技术讨论 / 请教: 用ASP , 如何实现, for instance , 论坛的当前在线人数，并列出所有当前在线的用户名？能把Dictionary Object 存在Application 里吗？ＭＳＤＮ好像说不行呀．怎么办？ -redmouthbird(Everything but girl); 2003-1-11 (#969803@0)
    • Top -redmouthbird(Everything but girl); 2003-1-11 (#969809@0)
    • up -redmouthbird(Everything but girl); 2003-1-11 (#969874@0)
    • 肯定可以，到GOOGLE上SEARCH一下“在线为数统计”就可以发现有很多种方法 -benbendan(笨笨蛋); 2003-1-11 (#969881@0)
    • asp 不熟，不知道啥叫dictionary obj. 不过你建一个表，每登陆一个用户加条纪录，需要列用户时select 一下不就行了吗？ -jackcat(wangwang); 2003-1-11 (#969883@0)
    • 在线人数的例子见内，我想同样的方法也可以存用户名。据说Session_OnEnd有时会不工作。 -hillxie(路在脚下); 2003-1-11 {786} (#969894@0)
      <SCRIPT LANGUAGE="VBScript" RUNAT="Server">

      Sub Application_OnStart
      ' Set our user count to 0 when we start the server
      Application("ActiveUsers") = 0
      End Sub

      Sub Session_OnStart
      ' Change Session Timeout to 20 minutes (if you need to)
      Session.Timeout = 20
      ' Set a Session Start Time
      ' This is only important to assure we start a session
      Session("Start") = Now
      ' Increase the active visitors count when we start the session
      Application.Lock
      Application("ActiveUsers") = Application("ActiveUsers") + 1
      Application.UnLock
      End Sub

      Sub Session_OnEnd
      ' Decrease the active visitors count when the session ends.
      Application.Lock
      Application("ActiveUsers") = Application("ActiveUsers") - 1
      Application.UnLock
      End Sub

      </SCRIPT>
      • Thanks . It's simple and straight forward to measure the overall # online like this . But , how to store the unduplicate usernames into the Application object ? The best -redmouthbird(Everything but girl); 2003-1-11 {84} (#969915@0)
        way is to store HASH to Application . That
        s what I'm concerned most . Any idea ?
      • 你这个有问题，人家还要“列出所有当前在线的用户名”，所以最好还是在Application_Onstart中再开一个大的Application数组来存用户，每次用户登录时，先CHECK，再把用户名加入列表。 -benbendan(笨笨蛋); 2003-1-11 (#969945@0)
    • 这段代码不知道能不能WORK，我没试过。 -hillxie(路在脚下); 2003-1-11 {243} (#969971@0)
      Set oDict = CreateObject("Scripting.Dictionary")
      '--
      '-- Add items in the dictionary...
      '--
      Application("DICT") = Array(oDict)

      Then, when you need the object you can do like this:

      Set oDict = Application("Dict")(0)

More Topics

  • 哪位Excel大神帮忙解答一下，一个spreadsheet一表格connection到另外一个spreadsheet，原来的data是数字格式，但是connection以后变成text格式，这是为什么呢？这两天才出现的问题，之前好多年没有过这样的问题。谢谢先
  • 中国政府官方的行为，证明了，苹果手机是世界上最安全的手机。感谢乔布斯先生。感谢库克先生硬是顶住了美国政府的最强大的压力。
  • 老程序员第一次用copilot的一点点体会
  • 现在社区游泳池招救生员巡逻，过一会还要不停的点人头，这工作是否很快就被AI代替了，装一个摄像头后面是AI处理系统，这样只招一个等着救人就行了，人头沉下水一定时间立马强光照射，还可以分析水下人的状况来判断是否溺水等
  • 新冠疫苗引发心肌炎? 最新研究这样看
    • 枫下论坛主坛 /  工作学习 /  IT技术讨论