第14章JAVA类专业文献行业资料计算机.docVIP

HTML HEAD TITLEApplication示例/TITLE /HEAD BODY % Application(msg)=这是Application对象的例子 % %=Application(msg)% /BODY /HTML HTML HEAD TITLE 另外一页 /TITLE /HEAD BODY %=Application(msg)% /BODY /HTML % Application (Visitor_num)= Application(Visitor_num)+1 % %Application(Myaddress)=北京市 %Application.Contents(Myaddress)= 北京市 % For Each thing In Application.Contents Response.Write(BrthingApplication.Contents(thing)) Next % Script Language=VBScript RunAt=Server Sub Application_onStart 下面是主页的计数：当前用户数 Application(currentSessionscount)=0 End Sub Sub Session_onStart 用来计数 锁住Application的权限 Application.Lock ii=Application(currentSessionscount)+1 给计数器加一 Application(currentSessionscount)=ii 释放权限 Application.UnLock End Sub Sub Session_onEnd Application.Lock jj=Application(currentSessionscount)-1 给计数器减一 Application(currentSessionscount)=jj Application.UnLock End Sub /Script % SetConn=Server.CreateObject(ADODB.Connection) SetApplication(Connection)=Conn % % Set Application (componet)=Server.CreateObject(component) % % Application(componet).property Application(componet).method() % % Set Local_Obj= Application(component) Local_Obj.Method() Local_Operty % % Set Application(Obj1)=Server Set Application(Obj2)=Application Set Application(Obj3)=Session Set Application(Obj4)=Request Set Application(Obj5)=Response % % Dim new_Array() ReDim new_Array(5) new_Array(0)=youarewelcom! new_Array(1)=hello,world! new_Array(2)=howareyou? % % Application .Lock Application (new_Array)=new_Array Application.Unlock % % Response.Redirect(modify.asp) 引导到modify.asp % % 将该Application数据组复制给一个临时的数组 temp_Array=Application(new_Array) 修改临时数组元素的值 temp_Array(1)=world,hello! 输出字符串world.hello! Reponse.Write(temp_Array(0)temp_Array(1)) 对Application 对象加锁。 Application .Lock 将临时数组传回Application 的数组 Application （My_Array）=temp_Array 对Application 对象解锁 Application .Unlock % % Application(new_Array)=ma:qiu:liu: % % temp_array=split(Application(new_Array),;)