下面是一个很标准的 Global.asa 文件 :
* f9 G4 y/ D; M# x+ @/ U* u< SCRIPT LANGUAGE=\"VBScript\" RUNAT=\"Server\">
% ?/ z7 \* I4 k8 t- Y5 q; v1 t\'Session_OnStart 当客户首次运行 ASP 应用程序中的任何一个页面时运行
0 A. i( B. f. n$ X; d: P\'Session_OnEnd 当一个客户的会话超时或退出应用程序时运行
$ A! y! \( {' c8 x2 \\'Application_OnStart 当任何客户首次访问该应用程序的首页时运行
% M% ^* [: V2 n6 v/ C: R\'Application_OnEnd 当该站点的 WEB 服务器关闭时运行9 H4 W( F" [2 |; l& u; | M+ d
< /SCRIPT>, }' W! D$ K( E) l& t b( W
< SCRIPT LANGUAGE=\"VBScript\" RUNAT=\"Server\">
/ X4 o- P W8 ?( N. a. y+ MSub Application_OnStart' q. C* a A% W. a! I
VisitorCountFilename = Server.MapPath (\"/ex2\") + \"\\VisitCount.txt\"' g9 z2 T' {" r! x. E- G# M u# h
Set FileObject = Server.CreateObject(\"Scripting.FileSystemObject\")
+ r" Z" S& f; D# ~4 tSet Out= FileObject.OpenTextFile (VisitorCountFilename, 1, FALSE, FALSE). w9 C) }) r/ f) }8 }% T9 {' ?, m
Application(\"visitors\") = Out.ReadLine& Q/ {1 d! s3 E* Z
Application(\"VisitorCountFilename\") = VisitorCountFilename
+ q) |6 I: R1 p4 I; q& QEnd Sub
4 ], R& O( Q. A4 Q+ h# V* K\'=========================================================
! Q$ }. f2 E0 N+ Z" W. VSUB Application_OnEnd
: b# V; [4 }0 ~7 p# q* X5 ]7 oSet FileOutObject = Server.CreateObject(\"Scripting.FileSystemObject\") C; o) n0 ]0 o4 x0 J' z
Set Out= FileOutObject.CreateTextFile (Application(\"VisitorCountFilename\"), TRUE,FALSE)! y* g! l# E6 D; _ X8 H
Out.WriteLine(application(\"visitors\"))) v' I8 d! q7 X9 k. P
End Sub6 p v' O' u0 `8 I* r, y
\'=========================================================Sub Session_OnStart6 M7 N C8 o: f. q
Session.Timeout = 5
) M( B$ i' u. L5 ^. n* \0 qApplication(\"visitors\") = Application(\"visitors\") + 10 g( ]+ g' v( }$ ?( h2 F
Session(\"ID\")=Session.SessionID
7 @$ B; m3 J! l! O5 E! V6 n7 wEnd Sub& V+ z( ~- M# O* `" z, Q6 ^+ {
< /SCRIPT> |