以下一段global.asa 的代码,我无法得 session_Onend 事件,请您指教

gottazhang 2001-07-25 01:46:12
系统:win98/pws/
<script language=vbscript runat=server>

sub Application_OnStart

dim fsys

dim counterfilename

dim txtf
set fsys=server.CreateObject("scripting.filesystemobject")

counterfilename=server.MapPath("counter.txt")

if not fsys.FileExists(counterfilename) then
set txtf=fsys.CreateTextFile(counterfilename)
txtf.writeline "1"
txtf.close
set txtf=nothing
end if

set txtf=fsys.OpenTextFile(counterfilename,1)
application("visitornum")=txtf.readline
txtf.close
set txtf=nothing
set fsys=nothing

application.Lock

application("todayvisitor")=0

application("numonline")=0

application.UnLock
end sub

sub Application_OnEnd

dim fsys

dim counterfilename

dim txtf

set fsys=server.CreateObject("scripting.filesystemobject")

counterfilename=server.MapPath("counter.txt")

set txtf=fsys.OpenTextFile(counterfilename,2)
txtf.writeline application("visitornum")
txtf.close
set txtf=nothing
set fsys=nothing
end sub
sub session_onend

'存放当前站上人数的application变量-1
application.Lock
application("numonline")=application("numonline")-1
application.UnLock
txt=server.mappath("info.txt")
set fs=server.createobject("scripting.filesystemobject")
set ts=fs.opentextfile(txt,8,true)
str="-----------------session_onend-------------------------"&vbcrlf
ts.Writeline str
ts.close
set fs=nothing

end sub
sub Session_OnStart

Session("ip")=Request.ServerVariables("REMOTE_ADDR")
session("host")=Request.serverVariables("REMOTE_HOST")
session("server")=request.servervariables("SERVER_NAME")
session("referer")=request.servervariables("HTTP_REFERER")
session("starttime")=NOW()

txt=server.mappath("info.txt")
set fs=server.createobject("scripting.filesystemobject")
set ts=fs.opentextfile(txt,8,true)
str="------------------------------------------"&vbcrlf
str=str&"id:"&Session("ip")&vbcrlf
str=str&"fromaddress:"&session("server")&vbcrlf
str=str&"from:"&session("referer")&vbcrlf
str=str&"host:"&session("host")&vbcrlf
str=str&"startime:"&session("starttime")&vbcrlf
ts.Writeline str
ts.close
set fs=nothing

application.Lock

application("visitornum")=application("visitornum")+1

application("todayvisitor")=application("todayvisitor")+1

application("numonline")=application("numonline")+1
application.UnLock

session.timeout=10
end sub

</script>
...全文
183 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
julyclyde 2001-12-30
  • 打赏
  • 举报
回复
默认20分钟才产生呢。你多等等
mkiss 2001-12-30
  • 打赏
  • 举报
回复
session_onend重不能使用Server对象,而且要等到session结束的时候才会发生。
lczddd 2001-12-30
  • 打赏
  • 举报
回复
http://www.csdn.net/expert/Topic/206/206154.shtm
gottazhang 2001-07-26
  • 打赏
  • 举报
回复
??
gottazhang 2001-07-25
  • 打赏
  • 举报
回复
可是我这样还是看不到他在执行。
sub session_onend

'存放当前站上人数的application变量-1
application.Lock
application("numonline")=application("numonline")-1
application.UnLock
end sub
hydnoahark 2001-07-25
  • 打赏
  • 举报
回复
>>txt=server.mappath("info.txt")
在session_onend重不能使用Server对象
tripofdream 2001-07-25
  • 打赏
  • 举报
回复
>>我无法得 session_Onend 事件
??
资源下载链接为: https://pan.quark.cn/s/1bfadf00ae14 松下电工数字压力传感器用户手册详细介绍了DP-100系列数字压力传感器,涵盖其技术参数、操作方法及适用场景等,适用于各类需要精准压力测量的工业环境。 双屏显示:主屏与输出动作同步,可同时显示当前值和基准值,便于实时监控与调整。显示屏为12段字母数字显示,数字清晰易读。 三色指示:屏幕颜色随传感器状态变化(红、绿、橙),便于快速判断工作状态。 紧凑结构:尺寸仅□30mm,适合空间狭窄的安装环境。 多种操作模式:提供RUN模式(日常操作)、菜单设定模式(深入设置如输出模式切换)及PRO模式(高级功能如应差调整、复制设定)。 安全认证:DP-101(A)/102(A)型号通过特定认证,确保产品安全可靠。 复制功能:可通过数据通信将主传感器设定内容复制到其他传感器,减少人工设定错误,节省时间。 高性能传感:具备高精度,分辨率1/2,000,反应时间2.5ms(最长5,000ms可调),温度特性±0.5%F.S.,重复精度±0.1%F.S. 电子元件吸附检测:监测吸盘是否成功吸附电子元件。 总压力监测:测量管道或容器内的压力水平。 空气泄漏检测:通过压力变化检测泄漏情况。 DP-101□:适用于低压环境(-100kPa至100kPa)。 DP-102□:适用于高压环境(0kPa至1MPa)。 订购时需根据实际需求选择合适型号,考虑传感器的适用范围和工作条件。手册提供详细订购流程及注意事项,包括相关认证信息(如韩国S标志)。 复制功能:通过数据通信将主传感器设定复制到其他传感器,支持多种设定模式,避免设定错误,节省时间。 操作模式:RUN模式用于日常监控,菜单设定模式用于深入设置,PRO模式提供高级功能。 使用前需仔细阅读手册,了解各功能使用方法。遵循安全指南,正确安装和使用传感器,避免损坏。对于

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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