服务器组件增强了脚本语言的功能_第1页
服务器组件增强了脚本语言的功能_第2页
服务器组件增强了脚本语言的功能_第3页
服务器组件增强了脚本语言的功能_第4页
服务器组件增强了脚本语言的功能_第5页
已阅读5页，还剩24页未读， 继续免费阅读

下载本文档

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

文档简介

服务器组件增强了脚本语言的功能第一页，共二十九页，编辑于2023年，星期六DatabaseAccess提供用ActiveXDataObjects(ADO)对数据库的访问。ContentLinking创建一个NextLink对象，该对象可生成Web页内容列表，并象书一样将各页顺续连接。FileAccess组件提供文件的输入输出访问。第二页，共二十九页，编辑于2023年，星期六MyInfo创建一个MyInfo

对象，该对象追踪个人信息，例如站点管理员的姓名、地址及显示选择。Counters创建一个Counters

对象，该对象可以创建、保存、增加或检索任意数量的独立计数器。ContentRotator自动翻转Web主页上的HTML内容字符串。PageCounter记录并显示Web页被打开的次数。Status创建一个Status

对象，该对象的某些属性包含服务器状态信息。当前的这种服务器状态仅适用于PersonalWebServerforMacintosh。第三页，共二十九页，编辑于2023年，星期六二、创建内置组件对象1.使用Server.CreateObject(注册名)2.使用HTML语言中的<OBJECT>标签第四页，共二十九页，编辑于2023年，星期六广告翻转器组件AdRotator组件创建一个AdRotator

对象，该对象在Web页上自动轮换显示广告图像。当用户每次打开或重新加载Web页时，AdRotator组件将根据在ADRotator计划文件中指定的信息显示一个新广告。语法SetAdRotator=Server.CreateObject("MSWC.AdRotator")

参数AdRotator

指定AdRotator对象的名称，此对象通过调用Server.CreateObject

创建。一、广告显示第五页，共二十九页，编辑于2023年，星期六属性Border指定广告边框的大小。Clickable指定广告是否为超链接。TargetFrame指定显示广告的框架的名称。方法GetAdvertisement从数据文件中获取下一个计划广告的详细说明并将其格式化为HTML格式。第六页，共二十九页，编辑于2023年，星期六示例下面的示例在用户每次查看Web页时显示不同的广告。<%Setad=Server.CreateObject("MSWC.AdRotator")%><%=ad.GetAdvertisement("/ads/adrot.txt")%>ADRotator计划文件文件包含AdRotator组件用于管理和显示各种广告图象的信息。在该文件中，用户可以指定广告的细节，例如广告的空间大小、使用的图象文件以及每个文件的显示时间所占百分比。文件由两部分组成。第一部分设置应用于轮换安排中所有广告图象的参数；第二部分指定每个单独广告的文件和位置信息以及应当接收的每个广告的显示时间所占百分比。这两部分由全是星号(*)的一行隔开。第七页，共二十九页，编辑于2023年，星期六例子：Adrot.txtREDIRECTadred.aspWIDTH230HEIGHT33BORDER1*/prog/ad/468x60_1.gif/网易2/images/Ad173962St1Sz1Sq1Id2.gif/新浪网3gamichlg.gif-SponsoredbyFlyteworks3第八页，共二十九页，编辑于2023年，星期六例子：主文件：<%Setad=Server.CreateObject("MSWC.AdRotator")%>

<%=ad.GetAdvertisement("/ads/adrot.txt")%>

在第一部分中有四个全局参数，每个参数都由一个关键字和值组成。所有的参数都是可选的。如果用户未指定全局参数的值，则AdRotator

将使用默认的值。在这种情况下，文件的第一行必须只有一个星号(*)。第九页，共二十九页，编辑于2023年，星期六

二、用PageCounter组件统计访问者PageCounter组件创建PageCounter

对象，以记录和显示Web页被打开的次数。每隔一定的时间，此对象将访问次数写入文本文件以便数据不会在服务器关机时丢失。语法<%SetoVar=Server.CreateObject("MSWC.PageCounter")%>

参数

oVar

指定通过调用Server.CreateObject

创建的PageCounter

对象的名称。第十页，共二十九页，编辑于2023年，星期六方法Hits显示指定的URL被打开的次数。PageHit增加访问次数。Reset将指定的页的访问次数设置为0。第十一页，共二十九页，编辑于2023年，星期六例子：<HTML><HEAD><TITLE>页面计数器示例</TITLE></HEAD><BODY><%SetWHits=Server.CreateObject("MSWC.PageCounter")WHits.PageHit()%>此页面被访问了<%=WHits.hits%>次</Body></HTML>第十二页，共二十九页，编辑于2023年，星期六三、浏览器能力：实例：<HTML><HEAD><TITLE>浏览器能力检测示例</TITLE></HEAD><BODY><%SetMyBrow=Server.CreateObject("MSWC.BrowserType")%>你的浏览器有如下特性：<P>浏览器类型:<%=MyBrow.Browser%></br></br>是否支持分屏:<%=MyBrow.Frames%></br></br>Cookies:<%=MyBrow.Cookies%></br></br>操作平台:<%=MyBrow.platform%></br></br>VBScript:<%=MyBrow.vbscript%></br></br></BODY></HTML>第十三页，共二十九页，编辑于2023年，星期六文件存取组件一、FileAccess组件简介FileAccess组件展示可用来访问计算机文件系统的方法和属性。用户可以使用FileAccess组件创建FileSystemObject

对象，该对象提供用于访问文件系统的方法、属性和集合。FileAccess组件的对象第十四页，共二十九页，编辑于2023年，星期六二、文件的读、写1.创建并写入文件首先，需要创建一个FileSystemObject对象，然后，利用CreateTextFile()以该对象创建一个TextStream对象，最后利用TextStream对象的WriteLine方法来写入文件。2.从文本文件读取数据首先，创建一个FileSystemObject对象，然后，利用OpenTextFile()以该对象创建一个TextStream对象，最后利用TextStream对象的ReadLine方法来读取文件。第十五页，共二十九页，编辑于2023年，星期六CreateTextFile(文件名,[overwrite[,unicode]])参数:overwrite:对文件是否覆盖

Unicode:指示该文件是否用ASC还是UNICODE码第十六页，共二十九页，编辑于2023年，星期六实例（写入文件）：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.CreateTextFile(“c:\test\test.txt”)Tfile.writeLine(“ok写入文件”)%>Writeline:在文件中添加字符串和分行符Write：将一个字段写入文本writeBlankLine(lines):用户在文件中指定分行符数目第十七页，共二十九页，编辑于2023年，星期六OpenTextFile(文件名,[IOmode],[Create],[format])IOmode:取值为ForReading;ForAppendingmode:1为只读打开;8为追加Create:如果文件不存在问是否创建,如果要创建则设为trueFormat:-2:系统默认;-1unicode;0:ASCII第十八页，共二十九页，编辑于2023年，星期六实例（读取文件）：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.OpenTextFile(“c:\test\test.txt”)WhilenotTfile.AtEndOfStreamResponse.Write(Tfile.Readline)WendTfile.close%>第十九页，共二十九页，编辑于2023年，星期六参数（读取文件）：AtEndofLine:当光标在当前行的末尾时为真AtEndOfStream:在流的末尾时,为真Column:(只读的整数):统计从行首到当前光标的位置的字符数LINE:只读的整数:指明光标所在行在整个文件中的行号.方法:Read(字符数):指定从光标的当前位置开始从文本文件中读取一定数量的字符ReadLine:读取一行字符ReadAll:读取全部字符Skip(字符数):略过一定的字符

Close:关闭打开的文件第二十页，共二十九页，编辑于2023年，星期六OpenTextFile(文件名,[IOmode],[Create],[format])IOmode:取值为ForReading;ForAppendingmode:1为只读打开;8为追加Create:如果文件不存在问是否创建,如果要创建则设为trueFormat:-2:系统默认;-1unicode;0:ASCII第二十一页，共二十九页，编辑于2023年，星期六文件的处理:FileSystemObject方法:CopyFilesource,destinationMoveFilesource,destinationDeleteFileFileSpecifierFile对象Copynewcopy,[overwrite]Movenewcopydelete:第二十二页，共二十九页，编辑于2023年，星期六实例(文件的处理)1：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.CreateTextFile(“c:\test\test.txt”)Tfile.writeLine(“ok写入文件”)Tfile.closeFObject.CopyFile”c:\test\test.txt”“c:\test\test2.txt”FObject.MoveFile”c:\test\test.txt”“c:\test\test3.txt”FObject.DeleteFile”c:\test\test.txt”%>第二十三页，共二十九页，编辑于2023年，星期六实例(文件的处理)2：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.CreateTextFile(“c:\test\test.txt”)Tfile.writeLine(“ok写入文件”)Tfile.closeSetafile=tfile.GetFile(“c:\test\test.txt”)Afile.copy“c:\test2.txt”Afile.move”c:\test3.txt”Afile.delete%>第二十四页，共二十九页，编辑于2023年，星期六检测文件的存在性:

语法:FileExists(文件的物理地址)例子:<%Myself=request.ServerVariables(“PATH_TRANSLATED”)Setfobject=server.createobject(“scripting.filesystemObject”)Tfile.writeLine(“ok写入文件”)If(fobject.FileExists(myself)thenResponse.write(“fileexist”)%>第二十五页，共二十九页，编辑于2023年，星期六驱动器和文件夹操作例子:<%Setfobject=server.createobject(“scripting.filesystemObject”)Foreachthinginfobject.drives%><br>Driveletter:<%=thing.Driveletter%><br>DriveTotalSize:<%=thing.TotalSize%><br>DriveAvailableSpace:<%=thing.AvailableSpace%><hr><%next%>第二十六页，共二十九页，编辑于2023年，星期六文件操作综合事例:<%@Language=VBScript%><%'注意绝对路径:C:\Inetpub\home\asp\wuf23.asp主页路径:C:\Inetpub\home'使用CreateObject方法创建FileSystemObject对象FSOSetFSO=Server.CreateObject("Scripting.FileSystemObject")Path=Server.MapPath("test")'返回test的物理目录(绝对路径)'就本例而言,下面这句与上面这句返回的Path完全一样'Path=Server.MapPath("\asp\test\")Response.WritePath&"<Br>"IfFSO.FolderExists(Path)=falsethen'判断该文件夹是否存在

FSO.CreateFolder(Path)'新建文件夹EndIf第二十七页，共二十九页，编辑于2023年，星期六文件操作综合事例:File=Path&"\asptest.txt"'写文件操作IfFSO.FileExists(File)=TrueThen'判断该文件是否存在

'建立TextStream对象CTFSetC

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

温馨提示

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

最新文档

评论

0/150

提交评论