《课前导读》PPT课件.pptVIP

② Script Language=VBScript RunAt=Server指明所使用的语言为VBScript，程序在服务器端处理。 ③ Sub Application_OnStart…End Sub指明应用程序开始时所要执行的代码。 ④ Sub Session_OnStart…End Sub指明一个Session开始时所要执行的代码。 ⑤ Sub Session_OnEnd…End Sub指明一个Session结束时所要执行的代码。 ⑥ Sub Application_OnEnd…End Sub指明一个应用程序结束时所要执行的代码。 3. 一个Global.asa文件的实例 下面代码是一个Global.asa文件的实例： SCRIPT LANGUAGE=VBScript RUNAT=Server Sub Session_OnStart 建立一个数据库连接 Set cn = Server.CreateObject(ADODB.Connection) cn.Provider = sqloledb ProvStr = Server=Your_SQL_Server_Name;Database =Northwind;UID=sa;PWD=; cn.Open ProvStr Set Session(cnn) = cn END Sub Sub Session_OnEnd 断开数据库连接 cn.Close END Sub /SCRIPT 9.3 上机练习 【练习9-1】统计在线用户。 在线用户是指当前正在网上浏览网页的用户。 ① 创建lx9_1.asp文件。代码如下： %@Language=VBscript% %Session.timeout=1 % html headtitle显示在线人数/title/head bodycenter 欢迎光临本网站，当前共有%=Application(OnLine)%人在线 /center /body /Html 说明：代码Session.timeout=1表示当浏览器端在1分钟内没有提出任何请求，该次对话将被终止。 ② 创建global.asa文件，并将其存放在虚拟目录的根目录中。程序如下： SCRIPT LANGUAGE=VBScript RUNAT=Server Sub Application_onStart Application(OnLine)=0 ‘ 当服务器启动时， ‘ 将记录在线用户的Application(OnLine)清零 End Sub Sub Session_onStart Application.Lock Application(OnLine)=Application(OnLine)+1 新增在线用户个数 Application.Unlock End Sub Sub Session_OnEnd Application.Lock Application(OnLine)=Application(OnLine)-1 减少在线用户个数 Application.Unlock End Sub /SCRIPT 说明：Session_OnStart事件将在一个用户首次访问目前站点时唯一调用。Session_OnEnd事件将在Session过期或用户主动释放Session时调用。 【练习9-2】猜数游戏。如图9-7所示，计算机随机产生一个100以内的整数，等待你去猜。 程序lx9_2.asp的代码如下： SCRIPT LANGUAGE=vbscript Sub init() frm1.number.Focus 文本框取得焦点 frm1.number.select 文本框内容被选中 End Sub /SCRIPT html headtitle猜数游戏/title/head body onload=init centerFONT size=6 face=方正舒体 color= blue 猜数游戏/font/center hrform name=frm1 action=lx9_2.asp % if not IsNumeric(Request(Number)) then GuessNum=0 else GuessNum=Cint(Request(Number)) end if Session(Count)=Session(Count)+1