请教关于global.asa的问题
来源:互联网 发布:犀牛软件中文版下载 编辑:程序博客网 时间:2024/05/01 18:41
各位高手帮我看看以下代码哪里出错:
本程序主要目的是作在线人数统计,及在用户离线时更新用户表中用户的在线情况(用户表:user,字段online,若online=1,表示用户在线,若 online=0则表示用户离线)
--------------global.asa-------------------------------
<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
application("online")=0
set application("conn")=Server.CreateObject("ADODB.Connection")
application("db")=Server.MapPath("/autohz2003.mdb")
End Sub
sub Application_OnEnd
set application("conn")=nothing
End Sub
Sub Session_OnStart
application.lock
application("online")=application("online")+1'打开网站时,在线人数加1
application.unlock
End Sub
Sub Session_OnEnd
application.lock
application("online")=application("online")-1 '释放session时,在线人数减1
application.unlock
if session.contents("pass") then
application("conn").open "DRIVER={Microsoft Access Driver (*.mdb)}; dbq="&application("db")
application.lock
application("conn").Execute("update [user] set online = 0 where userid='"&session.contents("userid")&"'") '将session(userid)这个用户在表中的online改为0
application.unlock
application("conn").close
end if
End Sub
</script>
本程序主要目的是作在线人数统计,及在用户离线时更新用户表中用户的在线情况(用户表:user,字段online,若online=1,表示用户在线,若 online=0则表示用户离线)
--------------global.asa-------------------------------
<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
application("online")=0
set application("conn")=Server.CreateObject("ADODB.Connection")
application("db")=Server.MapPath("/autohz2003.mdb")
End Sub
sub Application_OnEnd
set application("conn")=nothing
End Sub
Sub Session_OnStart
application.lock
application("online")=application("online")+1'打开网站时,在线人数加1
application.unlock
End Sub
Sub Session_OnEnd
application.lock
application("online")=application("online")-1 '释放session时,在线人数减1
application.unlock
if session.contents("pass") then
application("conn").open "DRIVER={Microsoft Access Driver (*.mdb)}; dbq="&application("db")
application.lock
application("conn").Execute("update [user] set online = 0 where userid='"&session.contents("userid")&"'") '将session(userid)这个用户在表中的online改为0
application.unlock
application("conn").close
end if
End Sub
</script>
- 请教关于global.asa的问题
- 关于global.asa文件的作用
- global.asa问题总结
- 关于asa防火墙动态vpn的问题
- 请教关于数字滤波器的问题
- 请教关于VS2005的问题
- Global.asa在jsp下的转换
- 关于asp下的global.asa在jsp下的实现
- 关于Global.asa文件的深入研究与session变量失效提示的具体方法
- 关于Global.asa文件的深入研究与session变量失效提示的具体方法
- JSP Session处理(关于global.asa在jsp下的处理)
- 关于'`global namespace''的问题
- 请教一个关于弹出对话框的问题.
- 请教一个关于显示窗口的问题
- 请教关于视频播放的问题
- 请教高手一个关于msdn的问题
- 请教关于数据库连接池的问题
- 请教!!!!关于论坛回复的问题!!!!!
- 对子基本知识
- 四月里的一丝微风
- 典故/故事/寓意
- 一些PHP+MYSQL配置[转]
- 有朋友将SharpDevelop_1.0.3.1768的版本完整的转换成了VS2003版并提供下载
- 请教关于global.asa的问题
- 繁忙之后
- ACCESS中使用SQL语句应注意的地方及几点技巧
- 以增加收藏夹功能为实例,解析asp.net forums2结构流程及组件设计
- eDonkey2000 Protocol
- 整合PDF和Java技术
- 访问标准CGI变量
- 访问标准CGI变量
- 名言(汇集)