首页 > 代码库 > 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>