ASP中的ActiveX组件课件_第1页
ASP中的ActiveX组件课件_第2页
ASP中的ActiveX组件课件_第3页
ASP中的ActiveX组件课件_第4页
ASP中的ActiveX组件课件_第5页
已阅读5页，还剩51页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

ASP中的ActiveX组件

7.1什么是ActiveX组件

ActiveX组件是一个存在于WEB服务器上的文件，该文件包含执行某项或一组任务的代码，组件可以执行公用任务，这样就不必自己去创建执行这些任务的代码。7.1什么是ActiveX组件

（1）ActiveX控件 ActiveX控件可不依赖于其它任何控件而建立，也可以被建立在另一个控件之上，或者可容纳多个已经有的控件7.1什么是ActiveX组件

（2）ActiveX文档

当用户打开一个ActiveX文档时，将不仅拥有应用程序的全部功能，而且能保持和发布应用程序原有数据的“备份”，因而，“文档”实际上是主动的。7.1什么是ActiveX组件

（3）代码成分

组件是包含在动态链接库(.dll)或可执行文件(.exe)中的可执行代码。 要使用组件提供的对象，首先要创建对象的实例并将这个新的实例分配变量名。7.1什么是ActiveX组件

例如下面是创建一个AdRotator对象的实例：<%SetMyAds=Server.CreateObject("MSWC.AdRotator")%>7.2广告轮显组件

7.2.1创建广告轮显对象实例

AdRotator组件可以在adroot.dll中找到

如下面的代码所示：<OBJECTRUNAT=ServerID=MyAdPROGID="MSWC.AdRotator"></OBJECT>7.2.2创建轮显列表文件

REDIRECT

URLWIDTH

widthHEIGHTheightBORDERborder*

adURLadHomePageURLaltTextimpressionsREDIRECT6-11.aspWIDTH440HEIGHT60BORDER1*

image/mainpage.bmphttp://www.whpu.edu.cn/武汉工业学院主页5

image/computer.bmphttp://www.whpu.edu.cn/computer/武汉工业学院计算机与信息工程系3

image/netcenter.bmphttp://ntc.whpu.edu.cn/武汉工业学院网络中心27.2.3使用重定向文件

是用户创建的文件，通常包含用来解析由AdRotator对象发送的查询字符串的脚本并将用户重定向到与用户所单击广告相关的URL。<%response.redirect(request.querystring("url"))%>7.2.3使用重定向文件

是用户创建的文件，通常包含用来解析由AdRotator对象发送的查询字符串的脚本并将用户重定向到与用户所单击广告相关的URL。<%response.redirect(request.querystring("url"))%><%@Language=VBScript%><HTML><HEAD></HEAD><BODY><% ifrequest.querystring("url")<>""then

response.redirect(request.querystring("url")) else

SetMyAds=Server.CreateObject("MSWC.AdRotator")

Response.Write(myads.GetAdvertisement("adr.txt")) endif%></BODY></HTML>7.2.4使用广告轮显组件的属性和方法

1.方法AdRotator组件支持的唯一方法是:

GetAdvertisement

<AHREF="6-11.asp?url=http://www.whpu.edu.cn/computer/&image=images/computer.bmp"><IMGSRC="images/computer.bmp"ALT="武汉工业学院计算机与信息工程系"WIDTH=800HEIGHT=90BORDER=1></A>7.2.4使用广告轮显组件的属性和方法

2.属性

（1）Border属性该属性返回或设置广告周围边框的大小。其语法如下：Integer=AdRotator.Border7.2.4使用广告轮显组件的属性和方法

（2）Clickable属性该属性用于限定广告是否以超级链接的形式进行显示，缺省值为True，语法如下：Boolean=AdRotator.ClickableAdRotator.Clickable=Boolean

7.2.4使用广告轮显组件的属性和方法

（3）TargetFram属性该属性值是字符串类型，设置或返回目标框(Frame)的名字。如果用户单击图像文件的话，这个框用于显示广告的页面。7.2.4使用广告轮显组件的属性和方法

<%Setad=Server.CreateObject("MSWC.AdRotator")ad.Border=0 ad.Clickable=truead.TargetFrame=AdFramead.GetAdvertisement("adr.txt")%>7.3使用页面计数器组件

7.3.1创建页面计数器组件对象实例<%Setad=Server.CreateObject("MSWC.PageCounter")%>7.3.2使用页面计数器组件的方法

1.Hits方法该方法用于从建立了PageCounter组件实例的任何页面中，提取当前的单击次数，其语法如下：变量＝PageCounter.Hits(PagePath)7.3.2使用页面计数器组件的方法

<%

DimMyPageCount

SetMyPageCount=Server.CreateObject("MSWC.PageCounter") Response.Write"当前页的点击次数是："&MyPageCount.Hits&"<br>"%>7.3.2使用页面计数器组件的方法

2.PageHit方法该方法增加当前页面保存在HibCnt.cnt文件中的单击次数，其语法如下： 变量值＝PageCounter.PageHit7.3.2使用页面计数器组件的方法

<%

DimMyPageCount

SetMyPageCount=Server.CreateObject("MSWC.PageCounter") Response.Write"新的点击次数是："&MyPageCount.PageHit&"<br>"%>7.3.2使用页面计数器组件的方法

3.Reset方法该方法设置给定页面的单击次数为0，其语法如下：PageCounter.Reset(pagePath)7.3.2使用页面计数器组件的方法

<%

DimMyPageCount

SetMyPageCount=Server.CreateObject("MSWC.PageCounter") MyPageCount.Reset%><%@Language=VBScript%><HTML><HEAD></HEAD><BODY><% DimMyPageCount

SetMyPageCount=Server.CreateObject("MSWC.PageCounter") MyPageCount.PageHit

Response.Write"当前页的点击次数是："&MyPageCount.Hits&"<br>" ifMyPageCount.Hits()=5then MyPageCount.Reset Response.Write("点击次数被清0")

endif %></BODY></HTML>7.4.2使用计数器对象的方法

1.Get方法该方法用于从一个命名的计数器中提取一个值，其语法如下：

变量值＝Counters.Get(CountName)7.4.2使用计数器对象的方法

<%dimMycountersetMycounter=Server.CreateObject("MSWC.Counters")Response.WriteMycounter.Get("computer")%>7.4.2使用计数器对象的方法

2.Increment方法该方法限定计数器的值每次加1，其语法如下：

变量值＝Counters.Increment(CounterName)<%dimMycountersetMycounter=Server.CreateObject("MSWC.Counters")Response.WriteMycounter.Increment("computer")%>7.4.2使用计数器对象的方法

3.Remove方法Remove方法用来清除指定的计数器，其语法如下：

Mycounter.Remove(CounterName)<% Mycounter.Remove("computer")%>7.4.2使用计数器对象的方法

4.Set方法该方法用于设置一个特定计数器的值，其语法如下： Counters.Set(CounterName,Value)7.4.2使用计数器对象的方法

<%dimMycountersetMycounter=Server.CreateObject("MSWC.Counters")Mycounter.Set"computer",1000%>7.5使用文件存取组件

7.5.1文件存取组件概述 主要用来提供访问计算机文件系统的方法和属性。可以使用FileAccess组件创建FileSystemObject对象，该对象提供用于访问文件系统的方法、属性和集合。7.5.1文件存取组件概述1.用于文件操作的各个组件的介绍（1）FileSystemObject组件对象该组件对象包含了一些基本的、对文件系统进行操作的方法。7.5.1文件存取组件概述（2）File组件对象该组件对象提供了对某个单独文件的所有操作。（3）Folder组件对象该组件对象提供对文件夹所有的操作。（4）TextStream组件对象该组件对象用来提供方法来读写文件。7.5.1文件存取组件概述（5）Drive对象该组件对象用来提供对磁盘驱动器或网络共享属性的访问。2.FileAccess组件的应用 FileAccess组件是针对文件系统的操作，主要是对文件、文件夹和驱动器的操作。1）在服务器的所有驱动器中提取或操作信息。2）从服务器上所有驱动器的文件夹或子目录中提取或操作信息。3）从服务器一个文件夹的所有文件中提取或操作信息。7.5.2创建文本文件

可以使用FileSystemObject和TextStream对象来创建一个文本文件并在其中写入文字。方法是首先创建一个FileSystemObject对象的实例，然后，再利用CreateTextFile()创建一个TextStream对象的实例，最后利用TextStream对象的WriteLine()方法来写入文件。<%@Language=VBScript%><HTML><HEAD></HEAD><BODY><%Setfs=CreateObject("Scripting.FileSystemObject")setMyTextFile=fs.CreateTextFile("c:\mm\7-4.txt",True)MyTextFile.writeLine("这是一串调试文字")MyTextFile.close%>这是一个创建文本文件的例子。</BODY></HTML>7.5.2创建文本文件

可以使用FileSystemObject和TextStream对象来创建一个文本文件并在其中写入文字。方法是首先创建一个FileSystemObject对象的实例，然后，再利用CreateTextFile()创建一个TextStream对象的实例，最后利用TextStream对象的WriteLine()方法来写入文件。7.5.3读取文本文件

创建了文件后还可以向文件中追加数据或读取数据。方法依然是创建一个FileSystemObject对象的实例，然后利用OpenTextFile()来创建一个TextStream对象的实例。最后，用TextStream对象的ReadLine()方法来读取文件。。<%@Language=VBScript%><HTML><HEAD></HEAD><BODY><h2>文件中的内容如下：</h2><hr><%Setfs=CreateObject("Scripting.FileSystemObject")setMyTextFile=fs.OpenTextFile("c:\mm\7-4.txt")WhilenotMyTextFile.AtEndOfStream Response.Write(MyTextFile.readline)WendMyTextFile.close%></BODY></HTML>7.5.4文件操作

1.文件是否存在通过FileSystemObject组件对象的FileExists方法可以确定指定的文件是否存在。其使用的语法如下所示：FileSystemObjectFile.FileExists(Path)<%@Language=VBScript%><HTML><HEAD></HEAD><BODY><h2>文件是否存在：</h2><hr><%Setfs=CreateObject("Scripting.FileSystemObject")iffs.FileExists("c:\mm\7-4.txt")then Response.Write"c:\mm\7-4.txt文件已经存在"endif%></BODY></HTML>2.文件的复制 通过FileSystemObject组件的CopyFile方法可以将指定的文件复制成一个新的文件，如果所指定的文件名已经存在，通过参数设置可覆盖原来的文件。其使用的语法如下所示：FileSystemObject.CopyFile(sourceFileName,destFileName,overwrite)

3.文件的删除 通过FileSystemObject组件的DeleteFile方法删除由完全限定路径指定的文件。如果指定的文件不存在，不引发异常。其使用的语法如下所示： File.Delete(filepath,force)3.文件的删除

<%Setfs=CreateObject("Scripting.FileSystemObject")iffs.FileExists("c:\mm\7-4.txt")then fs.DeleteFile("c:\mm\7-4.txt") Response.Write"c:\mm\7-4.txt文件已经删除"else Response.Write"c:\mm\7-4.txt文件不存在"endif%>4.文件的移动

通过FileSystemObject组件的MoveFile方法将指定文件移到新位置，并可提供指定新文件名的选项。其使用的语法如下所示： File.Move(sourceFileName，destFileName)7.5.5文件夹操作1.获取目录或文件夹是否存在可使用FileSystemObject组件的FolderExists方法来判断在Web服务器上某一个特定目录或文件夹是否存在。其使用语法如下：

FileSystemObject.FolderExists(Folderspace)7.5.5文件夹操作2.创建新的目录或文件夹使用FileSystemObject组件CreateFolder方法可在Web服务器上创建目录或文件夹。其使用语法如下：FileSystemObject.CreateFolder(Path)

7.5.5文件夹操作3.删除目录或文件夹使用FileSystemObject组件DeleteFolder方法可在Web服务器上删除指定的目录及其中的子目录。其使用语法如下：Directory.Delete(Path,recursive)7.5.6驱动器操作 Drive对象可以代表本地计算机上的一个驱动器，也可以代表一个映射网络驱动器。

<%Setfs=CreateObject("Scripting.FileSystemObject")SetMyDrives=fs.DrivesSetobjDrives=MyDrives.Item("C")%><%@Language=VBScript%><HTML><HEAD></HEAD><BODY><h2>驱动器的有关信息</h2><hr><%Setfs=CreateObject("Scripti

人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论