Server对象与服务器端文件访问.docx

1、Server对象与服务器端文件访问Server对象与服务器端文件访问7.1 Server对象属性及方法Server对象是专门为处理服务器上的事物而设计的内置对象，专门是与服务器的环境和处理活动有关的任务。有了sever对象，就能够在服务器上启动ActiveX控件。事实上，当你用 ASP 编写服务器端应用程序时，必须依靠 ActiveX 组件来强大 Web 应用程序的功能，譬如：你需要连接数据库，对数据库进行在线操作或者对 WEB 服务器上的文件系统进行操作，亦或你需要一个 WEB 广告交换程序，所有这一切你都必须通过调用 ASP 内建的 ActiveX 组件或自己编写所需的组件来完成。事实上

2、ActiveX 组件是一个存在于 WEB 服务器上的文件，该文件包含执行某项或一组任务的代码，组件能够执行公用任务，如此就不必自己去创建执行这些任务的代码。当你在 WEB 服务器上安装完 ASP 环境后，就能够直截了当使用它自带的几个常用组件，如 Database Access 组件。因此你也能够从第三方开发者处获得可选的组件 , 也能够编写自己的组件。能够使用任何支持组件对象模型（COM）的语言来编写组件，如， C、 C+、 Java 或 Visual Basic。ActiveX 是 Microsoft对 INTERNET 上使用 OLE/COM 作为基础技术的规格定义, ActiveX是M

3、icrosoft提出的一组使用COM（Component Object Model，部件对象模型）使得软件部件在网络环境中进行交互的技术集。它与具体的编程语言无关。作为针对Internet应用开发的技术，ActiveX被广泛应用于WEB服务器以及客户端的各个方面。同时，ActiveX技术也被用于方便地创建一般的桌面应用程序。能够使用VB、VC等编程工具开发该控件。要使用Active控件必须先注册才能使用（已注册的组件，能够在注册表的HKEYCLASSESROOT中找到）。具体使用组件时，第一要创建对象的实例并将那个新的实例分配变量名。使用 ASP 的Server.CreateObject 方法

4、能够创建对象的实例。7.1.1 Server对象的属性Server对象的属性为：ScriptTimeOut.通过设置该属性值能够强制规定脚本的最长执行时刻（单位：秒）。ScriptTimeout默认值为90秒。设置该属性值的方法：例如Server.ScriptTimeout=120摸索题：如何验证ScriptTimeout的默认值为90秒呢？例： 应用ScriptTimeout防止脚本显现死循环。 ScriptTimeout属性用法示例0 死循环程序 i=i+1 Loop%7.1.2 Server的方法 Server的方法要紧有：CreateObject(component)：建立组件实例Ex

5、ecute(path)：调用PATH指定的程序GetlastError()：返回一个ASPError对象的实例，该实例描述最近发生的错误HTMLEncode(string)：将String进行编码，使它可不能被说明为HTML语法URLEncode(string)：将String进行编码，以放入 QueryString返回服务器MapPath(path)：将Path指定的虚拟路径转换为实际路径Transfer(path)：将操纵权转移到Path指定的ASP程序 Server.Execute方法格式：Server.Execute（path）功能：该方法是IIS5.0新增的功能，用途类似程序语言中的

6、函数调用，也确实是说，你能够在ASP程序中使用Server.Execute（path）方法调用path指定的ASP程序，待彼此调用的程序执行完毕之后再返回原先的程序，连续执行接下来的指令。举例：Server.Execute方法使用 执行 page_2.asp 后会再返回 Server.Transfer方法格式：Server.Transfer（path）功能：该方法也是IIS5.0新增的功能，用于将目前ASP程序的操纵权转移到path指定的ASP程序，即使转移之后的程序差不多执行完毕，操纵权可不能返回原先的程序。举例：Server.Transfer方法使用 将操纵权转移至 page_2.asp

7、后便不再返回注意：Server.Transfer、Server.Execute和Redirect三者的区别：（1）Transfer与Execute差不多相似，唯独区别是Transfer方法执行完新网页后并不回到原先网页。（2）Redirect与Transfer有点相似，都有页面导向的功能，所不同的是，使用Transfer能够保留原先所有内置对象的值，而Redirect却做不到。摸索题：编程验证Redirect与Transfer对内置对象的值的阻碍有何不同。Server.HTMLEncode和Server.URLEncode方法Server对象提供的Server.HTMLEncode和Serve

8、r.URLEncode两个方法能够进行字符串编码。1Server.HTMLEncode编码方式 该编码方式能够将String进行编码，使字符串可不能被说明为HTML语法。其格式为：Response.Write(Server.HTMLEncode(“段落标记：”)例如，请分析下列程序的运行结果%Response.write(这是对HTMLEncode方法的测试。那个地点应该可不能另起一行。)%Response.write Server.HTMLEncode(这是对 HTMLEncode 方法的测试。 那个地点应该可不能另起一行。)%2Server.URLEncode编码方式 该方式能够将Srti

9、ng进行编码，以放入Querystring返回服务器。服务器端用Request.Querystring(“keyname”)猎取即可。例如，分析下列程序找出错误缘故。 URLENCODE举例 a href=urlsample.asp?name=传name过去 注意观看 Server.MapPath方法格式：Server.MapPath（path）功能：该方法用于将path指定的虚拟路径转换为实际路径。举例：Server.MapPath方法使用Server.CreateObject方法格式：Server.CreateObject（component）功能：这是Server对象最重要的一个方法。它

10、用于创建差不多注册到服务器（从注册表里能找到差不多注册的组件）上的ActiveX组件的实例。有了它，我们就能够使用ActiveX组件轻松的扩展ActiveX的能力，使设计更加多元化。举例：下面就声明了FileSystemObject的一个实例：Dim objFSO 声明objFSO 的变量，以存放对象实例Set objFSO = Server.CreateObject(Scripting.FileSystemObject)说明：1Set 是VBScript关键字，用来建立对象实例，objFSO是那个对象的名称；Scripting.FileSystemObject是FileSystem组件在服务

11、器注册时的ID标识。2服务器组件不能直截了当使用，必须先用Server.CreateObject建立一个组件的对象实例，然后才能通过次对象实例访问其集合、方法和属性。7.2 ASP内置组件本节要紧介绍如下几个ASP内置组件：FileSystemObject组件：要紧负责对服务器断文件或文件夹的相关操作。Browser Capabilities组件：猎取扫瞄器信息。Content Linking组件：用于建立网络导航，这在建立大型网站专门有用。Dictionary组件：功能类似于数据库操作，所有操作在内存中完成，不需要存取磁盘上的文件，适合储存少量的数据。Ad Rotator组件：广告轮显组件。

12、用于制作动态交替变换的广告Web页面。7.2.1 FileSystemObject组件FSO（FileSystemObject）组件模式包含在 Scripting 类型库中，该库位于 Scrrun.dll 文件中。因而，要使用 FSO 对象模式，必须把 Scrrun.dll 放在 Web 服务器的适当系统名目中。一、检查指定的磁盘、文件夹或文件是否存在 在进行磁盘、文件夹或文件的读写之前，我们都必须先确定磁盘、文件夹或文件是存在的，否则将产生错误信息。我们能够分别使用FilesystemObject组件的DriveExistes（path）、FileExists（path）及FolderExi

13、sts（path）方法来检查磁盘、文件夹或文件是否存在，例如以下程序：01:02: %03: Dim objFSO 声明一个名称为 objFSO 的变量以存放对象实例04: Set objFSO = Server.CreateObject(Scripting.FileSystemObject)05: If objFSO.DriveExists(C:) Then06: Response.Write C:磁盘是存在的 & 07: Else将虚拟路径转换为实际路径08: Response.Write C:磁盘是不存在的 & 09: End If10: If objFSO.FolderExists(S

14、erver.MapPath(Ch07) Then11: Response.Write Ch07文件夹是存在的 & 12: Else13: Response.Write Ch07文件夹是不存在的 & 将虚拟路径转换为实际路径14: End If15: If objFSO.FileExists(Server.MapPath(CheckExist.asp) Then16: Response.Write CheckExist.asp文件是存在的 & 17: Else 18: Response.Write CheckExist.asp文件是不存在的 & 19: End If20: Set objFSO

15、= Nothing 开释 FileSystemObject 对象实例21: %22:注意：1使用FolderExists方法和FileExists方法时，要求参数必须是实际路径，因此，在程序中，我们总要使用Server.MapPath方法先将虚拟路径先转换为实际路径。2程序终止前，我们使用Set objFSO = Nothing 开释我们曾经在程序中建立的对象。二、 对文件夹的操作1建立文件夹格式：objFSO.CreateFolder (FolderName)用途：FileSystemObject对象的CreateFolder方法用于建立一个FolderName文件夹，而且参数FolderN

16、ame必须使用实际路径。举例：在Ch07文件夹内建立一个名称为NewFolder的文件夹。 2移动、重新命名文件夹格式：objFSO. MoveFolder Source,Destination用途： FileSystemObject对象的MoveFolder方法用于将Source指定的文件夹移动到Destination，而且参数Source和Destination必须使用实际路径。举例：将Web主名目的Folder1文件夹移动到Ch07文件夹内，而且移动之后的文件夹名称改为Folder2 。 3删除文件夹格式：objFSO.DeleteFolder path,force用途： FileSys

17、temObject对象的DeleteFolder方法用于删除path指定的文件夹，force为布尔值，默认值为false，不删除只读文件夹，若要采纳默认值，可省略不写，若要删除只读文件夹，force的值要设置为true，参数path必须使用实际路径。举例：将Web主名目的MyFolder文件夹删除。 4复制文件夹使用FileSystemObject的CopyFolder方法完成文件夹复制格式：objFSO.CopyFolder Source,Destination功能： FileSystemObject对象的CopyFolder方法用于将Source指定的文件夹复制到Destination，而

18、且参数Source和Destination必须使用实际路径。举例：将Web主名目的Folder1文件夹复制到Ch07文件夹内，而且移动之后的文件夹名称改为Folder2。 使用Folder对象的Copy方法完成文件夹的复制格式：objFolder.Copy destination,overwrite功能：Folder对象的Copy方法用于将文件夹复制到Destination，若Destination已有同名文件夹，且Overwrite的值为True，表示将其覆盖，否则不覆盖。举例：对上例进行修改。 注意：在本例中，我们使用FilesystemObject的GetFolder方法取得Folder

19、1文件夹的Folder对象实例，类似的还有GetFile、GetDrive方法，使用方法类似。问题：对象开释的顺序是什么？三、取得文件夹的父文件夹信息 我们能够使用FilesystemObject的GetParentFolderName、 GetSpecialFolder方法来取得文件夹的父文件夹路径和WindowsFolder、SystemFolder、TemporaryFolder等专门文件夹的路径，但假如要取得文件夹的大小、属性、类型和日期等信息，就必须使用Folder对象提供的属性。我们一起来看下面的例子。01:02: %03: Dim objFSO, objFolder04: Set

20、 objFSO = Server.CreateObject(Scripting.FileSystemObject)05: If objFSO.FolderExists(Server.MapPath(Ch07) Then06: Response.Write 父文件夹的路径： & _07: objFSO.GetParentFolderName(Server.MapPath(Ch07) & 08: Response.Write 专门文件夹WindowsFolder的路径： & _09: objFSO.GetSpecialFolder(WindowsFolder) & 10: Set objFolde

21、r = objFSO.GetFolder(Server.MapPath(Ch07)11: Response.Write 文件夹的名称： & objFolder.Name & 12: Response.Write 文件夹的路径： & objFolder.Path & 13: Response.Write 文件夹的建立日期： & objFolder.DateCreated & 14: Else15: Response.Write Ch07文件夹不存在无法显示相关信息16: End If17: Set objFolder = Nothing18: Set objFSO = Nothing19: %20: 本例实现对文件夹相关信息的查询，要紧使用FileSystemObject对象的Getparentfoldername方法、Folder对象的相关属性。四、列出文件夹内的所有内容 Folder对象提供的属性除了能够取得文件夹的大小、类型、日期、名称和路径等信息之外，还能够取得文件夹内的所有文件或子文件夹。我们一起来看下面的例子。01:02: 03: %04: Dim objFSO, objFolder, objFile05: Set objFSO = Server.CreateObject(Scripting.FileSystemObject)06: If