Global.asa 中如何使用子程序

标签：tar   get   art   set   cti   服务器   数据   http   name   应用   com   

　　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>

Global.asa 中如何使用子程序,码迷,mamicode.com

Global.asa 中如何使用子程序

标签：tar   get   art   set   cti   服务器   数据   http   name   应用   com   

原文地址：http://www.cnblogs.com/sxgczs/p/3701409.html