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

gottazhang eng  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>
...全文
102 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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 事件
??
回复
相关推荐
基于java的企业人事管理系统设计--软件工程课程设计(含源码与论文设计).rar 1 引言 4 1.1 课程设计目标 4 1.2 编程工具(编程环境)介绍 4 1.3 实施时间及主要实施步骤 4 2 需求分析 5 3 系统总体设计 6 4 数据库设计 6 5 主要功能模块的设计与实现 10 5.1 功能模块1详细设计(综合查询员工信息)..........................................................10 5.1.1 详细设计.......................................................................................................10 5.1.2 算法流程........................................................................................................15 5.1.3 界面设计及测试结果.....................................................................................15 6 调试分析 15 7 用户手册 16 8 测试结果 17 8.1 员工信息的添加...................................................................................................17 8.2 员工信息的修改...................................................................................................17 8.3 员工信息的删除...................................................................................................18 8.4 员工信息的综合查询...........................................................................................18 8.5 员工信息按性别统计的结果................................................................................19 8.6 员工信息按状态统计的结果...............................................................................19 8.7 员工信息按职称统计的结果................................................................................20 9 结论 20 10 参考文献 20
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2001-07-25 01:46
社区公告
暂无公告