减小字体
增大字体- ·上一篇文章：ASP 引用文件
- ·下一篇文章：ASP 使用 CDOSYS 发送电子邮件
ASP Global.asa
eateObject("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.GetRowsrs.Closeconn.Closeend sub</script>Global.asa 实例在这个实例中，我们将创建一个计算当前访客数量的 Global.asa 文件。当服务器启动时，Application_OnStart 设置 Application 变量 "visitors" 的值为 0。每当有新的访客来访时，Session_OnStart 子例程就会给变量 "visitors" 加 1。每当 Session_OnEnd 子例程被触发时，该子例程就会从变量 "visitors" 减 1。Global.asa 文件：<script language="vbscript" runat="server">Sub Application_OnStartApplication("visitors")=0End SubSub Session_OnStartApplication.LockApplication("visitors")=Application("visitors")+1Application.UnLockEnd SubSub Session_OnEndApplication.LockApplication("visitors")=Application("visitors")-1Application.UnLockEnd Sub</script>在 ASP 文件中，显示当前访客的数量：<!DOCTYPE html><html><head></head><body><p>There are <%response.write(Application("visitors"))%>online now!</p></body></html>
/webdata/northwind.mdb"set rs=conn.execute("select name from customers")Application("customers")=rs.GetRowsrs.Closeconn.Closeend sub</script>Global.asa 实例在这个实例中，我们将创建一个计算当前访客数量的 Global.asa 文件。当服务器启动时，Application_OnStart 设置 Application 变量 "visitors" 的值为 0。每当有新的访客来访时，Session_OnStart 子例程就会给变量 "visitors" 加 1。每当 Session_OnEnd 子例程被触发时，该子例程就会从变量 "visitors" 减 1。Global.asa 文件：<script language="vbscript" runat="server">Sub Application_OnStartApplication("visitors")=0End SubSub Session_OnStartApplication.LockApplication("visitors")=Application("visitors")+1Application.UnLockEnd SubSub Session_OnEndApplication.LockApplication("visitors")=Application("visitors")-1Application.UnLockEnd Sub</script>在 ASP 文件中，显示当前访客的数量：<!DOCTYPE html><html><head></head><body><p>There are <%response.write(Application("visitors"))%>online now!</p></body></html>
ASP Global.asa
