月光软件站 - 编程文档 - ASP - 请教关于global.asa的问题

ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·VisualStudio.NET_2003及其 MSDN 下载地址
·session的用法具体解说
·MD5加密算法 ASP版
·JavaScript实现的数据表格：冻结列、调整列宽和客户端排序
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·ASP.net中md5加密码的方法
·ASP模拟MVC模式编程
·ASP.NET编程中的十大技巧

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

请教关于global.asa的问题

作者：未知来源：月光软件站 加入时间：2005-5-13　月光软件站

各位高手帮我看看以下代码哪里出错：
本程序主要目的是作在线人数统计，及在用户离线时更新用户表中用户的在线情况（用户表：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>　

相关文章：

相关软件：