大家看看这个SESSION END事件为何不发生?!

幽幽浮浮 2005-06-20 09:07:03
我写了一小段统计在线人数和总访问人数的源码:
===========aspx.vb============
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Me.Online.Text = "当前在线用户有<font color=red>" + CType(Application("userNum_onLine"), String) + "</font>位"
Me.Visted.Text = "您是本站的第<font color=red>" + CType(Application("userNum_visited"), String) + "</font> 位访问用户 "
End Sub
====================================
===========Global.asax.vb===========
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' 在应用程序启动时激发
Application("userNum_online") = 0
Dim objstream As System.IO.StreamReader = System.IO.File.OpenText(Server.MapPath("userstatic.txt"))
Dim countstring As String
countstring = objstream.ReadLine()
'判断是否为空。如有空,默认为“1”
If countstring = "" Then countstring = "0"
Application("userNum_visited") = CType(countstring, Integer)
End Sub

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' 在会话启动时激发
Application.Lock()
Application("userNum_online") = CType(Application("userNum_online"), Integer) + 1
Application("userNum_visited") = CType(Application("userNum_visited"), Integer) + 1
Application.UnLock()
End Sub

Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
' 在会话结束时激发
Application.Lock()
Application("userNum_online") = CType(Application("userNum_online"), Integer) - 1
Application.UnLock()
End Sub

Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
' 在应用程序结束时激发
MsgBox("")
Dim objwriter As New System.IO.StreamWriter(Server.MapPath("userstatic.txt"))
objwriter.WriteLine(Application("userNum_visited"))
End Sub
===============================================================
其中的Session_End、Application_End,为何在调试和运行环境中都没有发生啊?!
MSDN上说:Session_OnEnd 事件仅支持进程内会话状态模式。如果您使用状态服务器或 SQL Server 模式,则不会引发该事件。
可是我们默认的不就是进程内会话状态模式嘛!
各位帮忙分析下~~~谢谢了!!
...全文
128 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
内容概要:本文详细介绍了Anaconda的下载、安装与配置方法(2025最新版)。Anaconda是一个开源的Python/R数据科学集成开发平台,预装了1500多个科学计算库,并提供conda包管理和环境管理功能。文章首先列出了系统要求,接着分别讲述了适用于不同操作系统的下载方式,包括官方下载和国内镜像下载。然后,具体讲解了Windows、macOS和Linux三种操作系统的安装步骤,以及环境变量的手动配置方法。此外,还提供了验证安装是否成功的命令和配置国内镜像源的方法,以提高下载速度。最后,列出了一些常用conda命令和常见问题的解决方案。 适合人群:从事数据科学、机器学习领域的研究人员和开发者,特别是需要频繁使用Python科学计算库的用户。 使用场景及目标:①帮助用户快速搭建Python开发环境,尤其是需要多个Python版本共存或隔离环境的情况下;②解决因网络原因导致的下载速度慢的问题;③提供详细的安装指南,确保安装过程顺利进行;④指导用户正确配置环境变量,避免常见的安装后无法使用的错误。 阅读建议:由于Anaconda涉及多平台安装和配置,建议读者根据自己的操作系统选择相应的章节重点阅读,并严格按照步骤操作。对于初次使用者,建议先从简单的安装入手,再逐步学习环境管理和包管理的相关命令。

62,244

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧