asp控制登录的问题

＜script LANGUAGE="VBScript" RUNAT="Server"＞

Sub Application_OnStart

application("online")=0

set application("conn")=Server.CreateObject("ADODB.Connection")

End Sub

sub Application_OnEnd

set application("conn")=nothing

End Sub

Sub Session_OnStart

End Sub

Sub Session_OnEnd

if Session("user_id")="" then

application.lock

application("online")=application("online")-1

application("conn").Execute ("update tbluser set online=0 where user_id="&session("user_id"))

application.unlock

application("conn").close

end if

End Sub

＜／script＞
大家帮我看看这段写在GLOBAI.ASA里的代码哪里有错误啊？
谢谢！

asp控制登录的问题 ASP登录时，session控制页面跳转的问题～～ asp用户登录的问题 ASP登录验证的问题 asp 登录验证的问题 asp.net的登录系统问题 SOS关于ASP登录的问题 ASP 登录问题 asp登录问题 asp登录验证问题