使用activex服务器组

《使用activex服务器组》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第11章使用ActiveX服务器组件本章主要内容安装好ASP使用环境后，就可以使用一些它附带的组件，还可以从Internet上下载无数的组件。甚至可以创建自己的组件。本章主要讨论以下各种组件的使用：文件访问组件广告轮播组件浏览器信息组件内容链接组件创建自己的组件本章目录11.4内容链接组件11.1.1使用文本文件11.1.2文件夹对象11.1.3驱动器11.1.4文件处理11.2广告轮播11.1文件访问本章小结习题11.5自制ActiveX服务器组件11.5.1建立组件文件11.3浏览器信息组件11.5.2注册组件11.5.3在网页中创建并使用组件11.1文件访问ASP提供

2、了FileSystemObject对象用于获得对文件、文件夹和驱动器的访问。使用FileSystemObject对象，可以创建File、Folder和Drive对象，分别用来代表计算机上的文件、文件夹和驱动器。每一个对象都有一些属性和方式来完成所需的任务。11.1.1使用文本文件使用文本文件可以方便地记录少量信息或者记录一些没有格式要求的信息。如网页的点击次数等。对此主要讨论以下内容：1.创建新文件2.读取文件3.文件中追加数据1.创建新文件要创建新文件，要按如下步骤：使用Server对象的CreateObject方法创建文件系统对象（FileSystemObject）用文

3、件系统对象的CreateTextFile方法创建文本流文件（TextStream）使用文本流文件的写方法写入一些内容用close方法关闭这些对象释放这些对象创建新文件例网页内容<%SetobjFS=Server.CreateObject("Scripting.FileSystemObject")setobjTextS=objFS.CreateTextFile("C:asp.txt")objTextS.WriteLine("hello,world!")objTextS.ClosesetobjTextS=NothingsetobjFS=nothing%>创建一个文件系统对象执

4、行本例脚本建立文本文件对象向文件中写入内容关闭文件撤消对象创建新文件例本例的代码执行后没有任何显示，完成后可通过文本编辑器打开C盘根目录下asp.txt文件，观察写入的内容。例中涉及以下内容：创建文件系统对象建立文本文件对象向文件中写入内容关闭文本文件撤消文本文件对象（1）创建文件系统对象通过服务器对象创建一个文件系统对象（FileSystemObject）。形式如下：SetobjFS=Server.CreateObject("Scripting.FileSystemObject")其中：objFS为创建的对象名称。（2）建立文本文件对象通过执行文件系统对象的CreateT

5、extFile方法，可以建立一个文本文件对象，形式如下：Set文件变量名=CreateTextFile(文件路径，覆盖方式，编码方式)其中：文件路径指出要创建文件所在的目录路径及文件名，使用物理路径。覆盖方式是可选的，默认为TRUE，表示如果存在同名的文件，则覆盖该文件，若设置为FALSE，则当存在同名文件时会返回错误信息。编码方式是可选的，默认为FALSE，表示使用ASC码形式进行创建和保存。如果选择TRUE，将以Unicode方式创建和保存。（3）向文件中写入内容向文件中写入内容可使用文本文件对象的有关方法，主要有如下几种：write(字符串)：将一个字符串写入文本文件

6、，但不换行。writeLine(字符串)：将一个字符串写入文本文件，并随后写入一个换行符。字符串缺省时，表示只写入一个换行符。WriteBlankLines(n)：写入n个换行符。（4）关闭文本文件使用文本文件对象的close方法关闭文本文件，形式如下：objTextS.Close其中objTexts为文本文件对象。（5）撤消文本文件对象撤消文本文件对象和撤消文件系统对象分别使用如下形式：setobjTextS=NothingsetobjFS=nothing2.读取文件要读取文件中的数据，首先需要用文件系统对象的打开文本文件（OpenTextFile）方法来创建一个Text

7、Stream对象，再用该对象的有关方法来对文件进行读取操作。读取文件例<%SetobjFS=Server.CreateObject("Scripting.FileSystemObject")setobjTextS=objFS.OpenTextFile("C:asp.txt",1,False)dowhilenotobjTextS.AtEndOfStreamthisline=objTextS.readlineResponse.writethisline&"
"loopobjTextS.ClosesetobjTe