这哪里错了?
<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
sub application_onstart
application("connstr") = "Provider=SQLOLEDB.1;SERVER=(aa);UID=aa;Password=aa;DATABASE=aa"
Set application("conn")=Server.CreateObject("ADODB.CONNECTION")
application("conn").open application("connstr")
end sub
sub application_onend
application("conn").close
set application("conn")=nothing
end sub
sub session_onstart
session.timeout=20
end sub
sub session_onend
application("conn").lock
application.execute ("update aa set online=0 where user_id='"& cint(session.contents("user_id")) &"'")
application("conn").unlock
end sub
</SCRIPT>