Application对象

config和application对象Application对象主要作用就是保存公共信息的：a、属性操作的三个方法：setAttribute（）、getAttribute（）、removeAttribute（）b、application属于javax.servlet.ServletContext得到工作目录的真实路径：getRealPath(String path );<h1><%=application.getRealPath("/")%></h1> 获得当前路径application是管理服务器的，是所有用户共有的，在实际应用中往往使用getServletContext()方法代替applicationOut对象：out对象主要用于动态向客户端输出数据但是在JSP中尽可能少使用此对象开发中原则：a、HTML代码与JAVA代码分离，如果要输出内容，尽量使用表达式<%= %>config对象：JSP安全性和Config对象在J2EE中安全性体现：工作目录的WEB-INF文件夹如果将一个页面保存在WEB-INF文件夹之下，安全性提高，但是页面无法发现解决方法：在WEB-INF文件夹之下，配置web.xml文件，它属于整个web站点的配置文件<servlet><servlet-name>mldn</servlet-name><jsp-file>/WEB-INF/sdemo.jsp</jsp-file></servlet><servlet-mapping>在web.xml文件内部起作用，与servlet中的servlet-name完全一致<servlet-name>mldn</servlet-name>网页上输入的实际路径地址<url-pattern>/lxh</url-pattern></servlet-mapping>comfig对象一般用来取得服务器的初始化参数，但若要使用此对象应在WEB-INF/web.xml 之中配置<servlet><servlet-name>mldn</servlet-name><jsp-file>/WEB-INF/sdemo.jsp</jsp-file><init-param><param-name>uname</param-name><param-value>mldn</param-value></init-param><init-param><param-name>upass</param-name><param-value>LiXingHua</param-value></init-param></servlet><servlet-mapping><servlet-name>mldn</servlet-name><url-pattern>/lxh</url-pattern></servlet-mapping>通过此种功能可以讲数据库连接的一些信息写在配置文件之中config.getInitParameter()默认首页的设置：修改web.xml文件，tomcat主目录下conf/web.xml<welcome-file-list><welcome-file>index.html</welcome-file><welcome-file>index.htm</welcome-file><welcome-file>index.jsp</welcome-file></welcome-file-list>。

【VBA编程】11.Application对象Application对象常⽤属性【ActiveCell属性】ActiveCell属性返回⼀个Range对象，表⽰当前窗⼝或指定窗⼝中的单元格。

如果窗⼝没显⽰⼯作表，则此属性⽆效。

【代码区域】Sub激活单元格()Worksheets("sheet1").Activate '激活当前单元格With ActiveCell.Value = "娑娜"With .Font.Bold = True'设置为粗体.Italic = True'设置为斜体.Size = 20'设置字体⼤⼩End WithEnd WithEnd Sub【结果展⽰】注意：之所以该单词显⽰于B2，是因为在执⾏之前我已经将⿏标悬停此处。

【ActiveWorkbook属性】ActiveWorkbook是⼀个只读属性，⽤于返回⼀个Workbook对象，该对象表⽰活动窗⼝中的⼯作簿没有打开的窗⼝或信息窗⼝或剪贴板窗⼝作为活动窗⼝，则返回Nothing【代码区域】Sub测试ActiveWorkbook属性()Dim obj As ObjectSet obj = ActiveWorkbookDebug.Print CStr(obj.Application.Value)End Sub【结果展⽰】【Caption属性】Caption是⼀个可读写属性，⽤于设置或返回Microsoft的主窗⼝标题栏上显⽰的名称，其返回的是String类型。

如果没有为Microsoft的主窗⼝设置标题，或者将其值设置为Empty,则将此属性返回⼀个"Microsoft Excle"作为默认标题【代码区域】Sub更改标题()Application.Caption = "OLIVER--Excle 2013"End Sub【结果展⽰】【Range属性】Range属性返回⼀个Range对象，表⽰⼀个单元格或单元格区域Range实例地址：【Selection属性】Selection属性表⽰为Application对象返回在活动窗⼝中选定对象【代码区域】Sub测试Selection属性()Worksheets("sheet1").ActivateRange("A1").SelectSelection.Clear '清除sheet1⼯作表中内容End Sub【结果展⽰】执⾏前执⾏后【sheets⽅法】sheets属性是⼀个只读属性，⽤于返回⼀个sheets集合，其类型是⼀个Sheets对象Sub测试sheets属性()Dim wss As SheetsDim i As IntegerApplication.Workbooks(1).ActivateSet wss = Application.SheetsDebug.Print "当前⼯作簿名称如下："Debug.PrintFor i = 1To Sheets.CountDebug.Print Sheets(i).nameNextEnd Sub【结果展⽰】。

ASP Application对象Web上的一个应用程序可以是一组ASP文件。

这些ASP文件一起协同工作来完成某项任务。

ASP中的Application对象用来把这些文件捆绑在一起。

Application对象用于存储和访问来自任何页面的变量，类似于session对象。

不同之处在于，所有的用户分享一个Application对象，而session对象和用户的关系是一一对应的。

1 Application对象集合Application对象提供了两个集合，可以用来访问存储于应用程序中的变量和对象。

1．Contents集合没有使用<OBJECT>标记定义的存储于Application对象中的所有变量的一个集合。

可以省略Contents，而直接使用Application("Variable Name")访问该集合中保存的数据。

语法格式：在使用该集合之前，先来通过Application创建两个对象，如下列代码name和然后，通过for语句来遍历Contents集合，并分别显示该集合的内容。

2．StaticObjects集合使用＜OBJECT＞元素定义的存储于Application对象中的所有变量（及它们的值）的一个集合。

其中，Key参数是指要检索的项目的值。

下面使用循环控制结构可以遍历2 Application对象方法Application对象的方法允许删除全局应用程序空间中的值，控制在该空间内对变量的并发访问。

●Contents.Remove(“variable_name”)方法从Application.Content集合中删除一个名为variable_name的变量。

●Contents.RemoveAll()方法从Application.Content集合中删除所有变量。

●Lock方法禁止其他客户修改Application对象的属性。

●Unlock方法允许其他客户修改Application对象的属性。

第三十六课时教学内容：application 对象教学目的：1.熟悉application对象的属性。

2.掌握application对象的赋值和获取。

3.掌握网站计数器的设计方法。

教学重难点：1.application对象的赋值和获取。

2.网站计数器的设计方法。

教学方法：讲授法教学学法：接受法教学过程：一．引入Application对象拥有与Application所有相关的集合，方法，以及事件。

下面的部分你将学会怎样使用Application对象来创建application变量和application事件。

二、新课一个application变量包含的数据可以在整个application中被所有用户享用。

Application对象包括任何类型，包括队列和对象。

一个application变量和一个Session变量区别有以下两点：■和Session不同的是，Application变量不需要Cookies。

网站不需要利用Application变量来跟踪用户进程。

这就意味着使用起来很安心，可以适应任何浏览器。

■和一个Session变量不同的是，application变量可以被多个用户共享。

从一个用户接受到的application变量可以传递给另外的用户。

下面是利用Application的普通应用：■一个application变量可以用来在每个主页上显示瞬态信息，例如，你可以利用application变量来对于每一个主页进行当日新闻的更新。

■Application可以用来记录广告条被点击的时间和次数。

■Application可以从数据库中读取数据，例如，你可以从你的网站的数据库中接受销售品目录然后利用application变量显示在多个主页上。

■一个Application变量可以用来统计目前上站人数。

如：在聊天室程序中，一般使用application对象来存储在线人数。

创建和读取Application变量其实这部分相当简单，因为读者您读到这里已经有相当基础了，创建读取过程和以往的Session变量没什么区别，见下面的例子应用：<BODY>Application(“Greeting”)=”Welcome!”%><%=Application(“Greeting”)%></BODY>在这个示例中，一个新的名字为Greeting的application变量被创建，赋值为”Welcome!”。

Excel-VBA常⽤对象（Application、Workbook、Worksheet、。

⼀、对象模型在VBE中“帮助（H）”——“Microsoft Visual Basic 帮助（H） F1”——“Visual Basic 语⾔参考”——“函数” 或者在VBE下快捷键“F1”地址：https:///zh-cn/office/vba/api/overview/excel/object-model⼆、Application对象（Excel顶层对象）1、ScreenUpdating属性是否控制屏幕更新，False表⽰关闭屏幕更新，True表⽰打开屏幕更新设置ScreenUpdating=False 关闭屏幕更新，将看不到程序的执⾏过程，可以加快程序的执⾏速度，让程序显得更直观，专业。

⽰例（为关闭屏幕更新下，会弹出对话框）：Sub InputTest()Cells.ClearContents '清除表中所有数据Range("A1:A10") = 100MsgBox"刚才在A1:A10输⼊数值100，你能看到结果吗？"Range("B1:B10") = 200MsgBox"刚才在B1:B10输⼊数值200，你能看到结果吗？"End Sub⽰例（关闭屏幕更新，看不到执⾏过程，程序最终执⾏完成才能看到最终结果）Sub InputTest()Cells.ClearContents '清除表中所有数据Application.ScreenUpdating = False'关闭屏幕更新Range("A1:A10") = 100MsgBox"刚才在A1:A10输⼊数值100，你能看到结果吗？"Range("B1:B10") = 200MsgBox"刚才在B1:B10输⼊数值200，你能看到结果吗？"Application.ScreenUpdating = True'恢复屏幕更新End Sub2、DisplayAlterts属性是否显⽰警告对话框，False为不显⽰，True为显⽰Sub delSht()Dim sht As WorksheetApplication.DisplayAlerts = False'不显⽰警告信息For Each sht In WorksheetsIf = Then'判断sht是不是活动⼯作表sht.Delete '删除sht代表的⼯作表End IfNextApplication.DisplayAlerts = True'恢复显⽰警告信息End Sub3、EnableEvents属性启⽤或禁⽤事件，False为禁⽤（不让事件发⽣），True为启⽤什么是事件？能被Excel认识的⼀个操作动作，例如“打开⼯作簿”、“关闭⼯作簿”等⽰例1：编写⼀个程序，当选中⼯作表的单元格时，⾃动在单元格中写⼊该单元格的地址End Sub⽰例2：选中活动单元格，记录对应单元格地址，并将活动单元格向下移动⼀个单元格Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target.Value = Target.AddressApplication.EnableEvents = False'禁⽤事件Target.Offset(1, 0).Select '选中活动单元格下⾯的⼀个单元格Application.EnableEvents = True'启⽤事件End Sub4、WorksheetFunction属性使⽤WorksheetFunction调⽤Excel内置函数⽰例1：统计A1:A50单元格中数值⼤于1000的单元格有多少个？Sub CountTest()Dim mycount As Integer, rng As RangeFor Each rng In Range("A1:B50")If rng.Value > 1000Then mycount = mycount + 1NextMsgBox"A1:B50中⼤于1000的单元格个数为:" & mycountEnd Sub⽰例2：统计A1:A50单元格中数值⼤于1000的单元格有多少个？使⽤COUNTIF函数Sub CountTest()Dim mycount As Integermycount = Application.WorksheetFunction.CountIf(Range("A1:B50"), ">1000")MsgBox"A1:B50中⼤于1000的单元格个数为:" & mycountEnd Sub5、给Excel梳妆打扮Excel⼯作表界⾯相关命令Excel界⾯6、Application的常⽤属性三、Workbook对象Workbook⼯作簿Workbooks⼯作簿集合1、怎么引⽤⼯作簿引⽤⼯作簿，就是指明⼯作簿的位置及名称，共有两种⽅式⽅式⼀：利⽤索引号引⽤⼯作簿，Workbook.Item(3)，这⾥的Item可以省略，即Workbook(3)⽅式⼆：利⽤⼯作簿名称引⽤，Workbook("Book1")或Workbook("Book1.xls")，如果本地⽂件显⽰拓展名（且⽂件已经保存），则⽂件名必须带拓展名，否则会报错。

EXcel高级技巧：VBA宏——Application对象Application对象代表整个Microsoft Excel应用程序，带有175个属性和52个方法，可以设置整个应用程序的环境或配置应用程序。

示例01-01：体验开/关屏幕更新(ScreenUpdating属性)Sub 关闭屏幕更新()MsgBox '顺序切换工作表Sheet1→Sheet2→Sheet3→Sheet2，先开启屏幕更新，然后关闭屏幕更新'Worksheets(1).SelectMsgBox '目前屏幕中显示工作表Sheet1'Application.ScreenUpdating = TrueWorksheets(2).SelectMsgBox '显示Sheet2了吗？'Worksheets(3).SelectMsgBox '显示Sheet3了吗？'Worksheets(2).SelectMsgBox '下面与前面执行的程序代码相同,但关闭屏幕更新功能' Worksheets(1).SelectMsgBox '目前屏幕中显示工作表Sheet1' & Chr(10) & '关屏屏幕更新功能'Application.ScreenUpdating = FalseWorksheets(2).SelectMsgBox '显示Sheet2了吗？'Worksheets(3).SelectMsgBox '显示Sheet3了吗？'Worksheets(2).SelectApplication.ScreenUpdating = TrueEnd Sub示例说明：ScreenUpdating属性用来控制屏幕更新。

当运行一个宏程序处理涉及到多个工作表或单元格中的大量数据时，若没有关闭屏幕更新，则会占用CPU的处理时间，从而降低程序的运行速度，而关闭该属性则可显著提高程序运行速度。

Application对象Application对象概述Application对象是一个Web应用程序级的对象，是Web站点某个虚拟目录下子目录包含的网页、脚本程序的集合，通常由互相关联的html文件、asp文件和Global.asa文件组成。

每一个Web站点可以设置多个虚拟目录，也就是说，每个Web站点上可以多个Web应用程序。

Application中所包含的数据可以在整个Web站点中被所有用户使用，并且可以再网站运行期间持久保存数据。

Application对象和Session对象有很多相似之处，他们的功能都是用于在不同的ASP页面之间共享信息。

两者的主要区别如下：●应用范围不同。

Application对象是针对所有用户，可以被多个用户共享。

一个用户接收到的Application变量可以传递给另外的用户。

而Session 对象是针对单一用户，某个用户无法访问其他用户的Session变量。

●存活时间不同。

由于Application变量是多个用户共享的，因此不会因为某一个用户甚至全部用户离开而消失，一旦建立了Application变量，就会一直存在，直到网站关闭或默认的20分钟没有客户请求访问。

而Session变量会随着用户离开网站而被自动删除。

Application对象是网站建设中经常使用的一项技术，利用Application 对象可以完成统计网站的在线人数、创建多用户游戏及多用户聊天室等功能，其功能类似于一般程序设计语言中“全局变量”。

Application对象的语法格式：Application.collectio n︱methot其中，collection、methot分别表示Application对象的集合和方法。

使用时，两个参数只能选一个。

Application对象包括Contents和StaticObjects两个数据集合。

1、Contents数据集合Contents数据集合允许程序取得用户能够使用的所有Application对象，但不包括<object>标记建立的对象和变量。

Application对象1.Application对象：它代表Excel程序本身，实际编程中会用到它的属性和方法。

2.对象的属性:是指对象本身所具有的特性。

对象可以看作是物体，这个物体本身所具有的颜色、形状、大小、名称、位置等，都可以看作是这个对象的属性。

对象的属性有的是可以改变的，有的是不能改变的（只读属性）。

两个常用属性1ScreenUpdating属性ScreenUpdating属性，用来决定是否显示VBA程序的运行过程中间运算结果，默认为True显示。

如果将ScreenUpdating属性设置为False，将不显示程序的中间的执行结果，可以加快程序的执行速度，更直观和专业。

下面的代码在运行过程中会显示中间的执行结果：Sub InputTest()Cells.ClearContents '清除表中数据Range('A1:A10') = 100MsgBox '在A1到A10输入100，能看到结果吗？'Range('b1:b10') = 200MsgBox '在b1到b10输入200，能看到结果吗？'End Sub运行结果图：不显示计算结果到屏幕代码：Sub InputTest()Cells.ClearContents '清除表中数据Application.ScreenUpdating = FalseRange('A1:A10') = 100MsgBox '在A1到A10输入100，能看到结果吗？' '提示框显示输入内容Range('b1:b10') = 200MsgBox '在b1到b10输入200，能看到结果吗？'Application.ScreenUpdating = TrueEnd Sub看出关键部分了吗？但素，如果咱们程序比较小，是感受不到变化滴2DisplayAlerts属性Application的DisplayAlerts属性，用以决定运行中是否显示提示和警告信息，默认为True，如果不想显示，则把属性设为false。