如何能在global.asa文件中读数据库并将返回值存入application？

[aojiankd]

比如这个global文件：我该把语句放在什么位置？
//global.asa
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("visits") = 0
Application("Active") = 0
Application("loginneedpass1")
End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart
Session.Timeout = 20
Session("Start") = Now
Application.lock
Application("visits") = Application("visits") + 1
intTotal_visitors = Application("visits")
Application.unlock
Session("VisitorID") = intTotal_visitors

Application.lock
Application("Active") = Application("Active") + 1
Application.unlock
End Sub

Sub Session_OnEnd
Application.lock
Application("Active") = Application("Active") - 1
Application.unlock
End Sub
</SCRIPT>

[yangzixp]

我的global.asa中的一部分文件。
Sub Application_OnStart
Application("activeUsers")=0
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={sql server};server=127.0.0.1;uid=****;pwd=****;database=****;"
sql="update Member_System set ms_sysonline=0 where ms_sysonline=1"
conn.execute(sql)
conn.close
set conn=nothing
End Sub

[aojiankd]

Application("loginneedpass1")
这句多余，忘了删除

[aojiankd]

其实我想实现后台能改变一些网站运行时的“长期变量”，用global是否最好？或者有什么跟好，跟简便的方法，请大家不吝赐教！谢谢

[azh9703]

用文本文件或者数据库保存会更好些