×

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

@Calgary

在线人数的例子见内，我想同样的方法也可以存用户名。据说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

  • Torvalds patch improves Linux performance by 2.6%
  • GitHub Spark
  • 脑洞大开，突发奇想，用力来传播信息
  • 看大家讨论日语，俺也正在认真学习。其实语言问题应该是很快也很容易就解决的，可能比自动驾驶来的还快。TREK里面，全宇宙的人都在大脑里安装了UNIVERSAL TRANSLATOR，外星人之间相互交流无障碍。废话少说，看视频。。。加上个MIC和耳机，不同国家的人就可以无障碍交流。
  • 肉脸真有搞 IT 的？Linux 把俄国中国伊朗踢出去了好像肉脸 IT 没啥感觉似的
    • 枫下论坛主坛 /  工作学习 /  IT技术讨论