首页 > 代码库 > Global.asa 中如何使用子程序
Global.asa 中如何使用子程序
Global.asa 常用于对变量进行初始化。
下面的例子展示如何检测访问者首次到达站点的确切时间。时间存储在名为 "started" 的
Session 对象中,并且 "started" 变量的值可被应用程序中的任何 ASP 页面访问:
<script language="vbscript" runat="server">
sub Session_OnStart
Session("started")=now()
end sub
</script>
Global.asa 也可用于控制页面访问。
下面的例子展示如何把每位新的访问者重定向到另一个页面,在这个例子中会定向到
"newpage.asp" 这个页面:
<script language="vbscript" runat="server">
sub Session_OnStart
Response.Redirect("newpage.asp")
end sub
</script>
我们还可以在 Global.asa 中包含函数。
在下面的例子中,当 Web 服务器启动时,Application_OnStart 子例程也会启动。随后,
Application_OnStart 子例程会调用另一个名为 "getcustomers" 的子例程。
"getcustomers" 子例程会打开一个数据库,然后从 "customers" 表中取回一个记录集。
此记录集会赋值给一个数组,在不查询数据库的情况下,任何 ASP 页面都能够访问这个数
组:长春九龙医院
<script language="vbscript" runat="server">
sub Application_OnStart
getcustomers
end sub
sub getcustomers
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=conn.execute("select name from customers")
Application("customers")=rs.GetRows
rs.Close
conn.Close
end sub
</script>