Web数据库存基础教程7_第1页
Web数据库存基础教程7_第2页
Web数据库存基础教程7_第3页
Web数据库存基础教程7_第4页
Web数据库存基础教程7_第5页
已阅读5页，还剩34页未读， 继续免费阅读

付费下载

下载本文档

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

文档简介

7应用内、外组件内容简介：本章将重点学习内置组件FileAccess。掌握使用该组件对文件夹、文件的操作应用，一般掌握其他组件（AdRotator、CDONTS、BrowserCapabilities等）的应用。7-1创建对象实例可以使用两种方法创建脚本对象的实例，一种是ASPServer对象提供的CreateObject方法，如：<%

DimobjInst

SetobjInst=Server.CreateObject("ADODB.Connection")%>另一种是<OBJECT>元素。使用HTML的<OBJECT>元素，通过增加RUNAT参数，并指定其值为“SERVER”，可在服务器上创建一个对象实例，如：<OBJECTID="objInst"RUNAT="SERVER"PROGID="Inst.Object"><PARAMNAME="pname1"VALUE="value1"><PARAMNAME="pname2"VALUE="value2"></OBJECT>7-2应用FileAccess组件组件是包含在动态链接库（DLL）或可执行文件中的通过特定接口提供特定服务的可执行代码，它可提供一个或多个对象以及对象的方法和属性。被封装后用于完成应用程序的某些特定功能。ASP内置组件功能非常强大、内容很丰富（与内置对象一样也有集合、属性和方法等），使用Microsoft的IIS和ASP，就已包含了ASP的数个已安装和可安装的内置组件（因版本不同，含有的组件也可能不同）。表7-1是常用的ASP内置组件，表7-2中ASP的脚本组件，它们同属于ASP内置组件。7-2-1概述表7-1常用的ASP内置组件名称功能AdRotator广告翻转器组件，可以交替地显示图像和文字，并可以通过图像链接到另一个URLBrowserCapabilities浏览器描述组件，可以检查所使用的浏览器，根据其特性以决定传送给浏览器的内容ContentLinker内容连接组件，通过应用程序的ASP文件，提供逻辑导航的工具，而不需要文件中的URL参考。可以很方便地使用一个文档来管理超链接、上一页、下一页等链接功能ContentRotator内容翻转器组件，让HTML内容轮流显示在网页上Counters计数器组件，用于创建、存储、递增或检索任意数量的独立计数器，提供任何种类数据的统计E-mail（CDONTS）

发送E-mail给用户，全称是CollaborationDataObjectsforWindowsNTServerPageCounter访客计数器组件，记录来访者打开页面的次数PermissionChecker允许检查组件，检查用户是否有权存取某个文件ActiveXDataObjects用ASP访问数据库的组件（第8章介绍）表7-2ASP的脚本组件名称功能Dictionary用内置函数来完成大量数据的存储和处理等基本任务，提供一种存储值的有效方式FileAccess文件存取组件，提供读写服务器文件的功能。可取得并修改储存在文件中的信息7-2-2操作文件夹操作文件夹、文件等，使用的是FileAccess服务器组件。FileAccess组件是一个脚本组件（ScriptingComponents），包含了处理文件系统的所有基本方法。操作时我们不能直接访问FileAccess服务器组件的集合、属性和方法，而要用Server对象的CreateObject方法先创建一个FileAccess服务器组件的对象实例（ObjectInstance），然后再通过此对象实例去访问集合、属性和方法。若要访问服务器端的文件夹或文件，必须使用Server.MapPath方法先将文件夹或文件的虚拟路径转换为实际路径。FileAccess服务器组件的对象、集合等，请用户参见附录。例7.1例7.1创建MyFolder1的文件夹（L7-1.asp）。<HTML><TITLE>创建文件夹</TITLE><BODY><%DimobjFSO'声明名为objFSO的变量，用于存放对象实例

SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfNotobjFSO.FolderExists(Server.MapPath("\WebBasic\Ch7\MyFolder1"))ThenobjFSO.CreateFolder(Server.MapPath("\WebBasic\Ch7\MyFolder1"))Response.Write"<B>创建的新文件夹实际路径是：</B>"&_Server.MapPath("\WebBasic\Ch7\MyFolder1")ElseResponse.Write"MyFolder1文件夹已经存在！"

EndIfSetobjFSO=Nothing'释放FileSystemObject对象%></BODY></HTML>例7.2例7.2移动文件夹MyFolder1，重命名为MyFolder2（L7-2.asp）。<HTML><TITLE>移动文件夹并重命名</TITLE><BODY><%DimobjFSO

SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FolderExists(Server.MapPath("\WebBasic\Ch7\MyFolder1"))ThenobjFSO.MoveFolderServer.MapPath("\WebBasic\Ch7\MyFolder1"),_Server.MapPath("..\MyFolder2")Response.Write"已将MyFolder1文件夹移走，并重命名为：MyFolder2！"ElseResponse.Write"该路径下没有MyFolder1文件夹！"

EndIfSetobjFSO=Nothing%></BODY></HTML>例7.3例7.3利用Folder对象的Move方法移动文件夹，并重命名（L7-3.asp）。<HTML><TITLE>用Folder.Move方法移动文件夹并重命名</TITLE><BODY><%DimobjFSO,objFolder

SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FolderExists(Server.MapPath("MyFolder1"))ThenSetobjFolder=objFSO.GetFolder(Server.MapPath("MyFolder1"))objFolder.Move(Server.MapPath("..\MyFolder2"))Response.Write"已将MyFolder1文件夹移走，并重命名为：MyFolder2！"ElseResponse.Write"该路径下没有MyFolder1文件夹！"

EndIfSetobjFolder=Nothing'释放Folder对象

SetobjFSO=Nothing'释放FileSystemObject对象%></BODY></HTML>例7.4例7.4删除指定的文件夹（L7-4.asp）。<HTML><TITLE>删除文件夹</TITLE><BODY><%DimobjFSO

SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FolderExists(Server.MapPath("\WebBasic\Ch7\MyFolder1"))ThenobjFSO.DeleteFolderServer.MapPath("\WebBasic\Ch7\MyFolder1"),TrueResponse.Write"您所指定的MyFolder1文件夹已被删除！"

ElseResponse.Write"此路径下没有MyFolder1文件夹！"

EndIfSetobjFSO=Nothing%></BODY></HTML>例7.5例7.5利用Folder对象的Delete方法删除指定的文件夹（L7-5.asp）。<HTML><TITLE>用Folder.Delete删除文件夹</TITLE><BODY><%DimobjFSO,objFolder

SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FolderExists(Server.MapPath("MyFolder1"))ThenSetobjFolder=objFSO.GetFolder(Server.MapPath("MyFolder1"))objFolder.Delete(True)Response.Write"您所指定的MyFolder1文件夹已被删除！"

ElseResponse.Write"此路径下没有MyFolder1文件夹！"

EndIfSetobjFolder=NothingSetobjFSO=Nothing%></BODY></HTML>例7.6例7.6文件夹的复制（L7-6.asp）。<HTML><TITLE>复制文件夹</TITLE><BODY><%DimobjFSOSetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FolderExists(Server.MapPath("\WebBasic\Ch7\MyFolder1"))ThenobjFSO.CopyFolderServer.MapPath("\WebBasic\Ch7\MyFolder1"),_Server.MapPath("..\MyFolder2"),TrueResponse.Write"已将MyFolder1文件夹复制到指定目录，并换名为：MyFolder2"ElseResponse.Write"此路径下没有MyFolder1文件夹！"

EndIfSetobjFSO=Nothing%></BODY></HTML>例7.7例7.7用Folder.Copy方法复制文件夹（L7-7.asp）。<HTML><TITLE>用Folder.Copy方法复制文件夹</TITLE><BODY><%DimobjFSO,objFolder

SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FolderExists(Server.MapPath("\WebBasic\Ch7\MyFolder1"))ThenSetobjFolder=objFSO.GetFolder(Server.MapPath("\WebBasic\Ch7\MyFolder1"))objFolder.CopyServer.MapPath("..\MyFolder2")Response.Write"已将MyFolder1文件夹复制到指定目录，并换名为：MyFolder2"ElseResponse.Write"此路径下没有MyFolder1文件夹！"

EndIfSetobjFolder=Nothing'释放Folder对象

SetobjFSO=Nothing'释放FileSystemObject对象%></BODY></HTML>例7.8例7.8获取指定文件夹的参数①（L7-8.asp），运行结果如图7-1所示。<HTML><TITLE>获取文件夹参数①</TITLE><BODY><%DimobjFSOSetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FolderExists(Server.MapPath("\WebBasic\Ch7"))ThenResponse.Write"父文件夹路径为："&_

objFSO.GetParentFolderName(Server.MapPath("\WebBasic\Ch7"))&"<BR>"Response.Write"特殊文件夹SystemFolder的路径为："&_

objFSO.GetSpecialFolder(SystemFolder)&"<BR>"Response.Write"特殊文件夹WindowsFolder的路径为："&_

objFSO.GetSpecialFolder(WindowsFolder)&"<BR>"Response.Write"特殊文件夹TemporaryFolder的路径为："&_

objFSO.GetSpecialFolder(TemporaryFolder)&"<BR>"ElseResponse.Write"所查找的文件夹不存在！"

EndIfSetobjFSO=Nothing%></BODY></HTML>例7.9例7.9获取指定文件夹的参数②（L7-9.asp），运行结果如图7-1所示。<HTML><TITLE>获取文件夹参数②</TITLE><BODY><%DimobjFSO,objFolderSetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FolderExists(Server.MapPath("\WebBasic\Ch7"))ThenSetobjFolder=objFSO.GetFolder(Server.MapPath("\WebBasic\Ch7"))Response.Write"文件夹的名称为："&objFolder.Name&"<BR>"Response.Write"文件夹的属性为："&objFolder.Attributes&"<BR>"Response.Write"文件夹的大小为："&objFolder.Size&"<BR>"Response.Write"文件夹的路径为："&objFolder.Path&"<BR>"Response.Write"文件夹的建立日期为："&objFolder.DateCreated&"<BR>"ElseResponse.Write"所查找的文件夹不存在！"

EndIfSetobjFolder=NothingSetobjFSO=Nothing%></BODY></HTML>例7.10例7.10列出文件夹内的所有子文件夹和文件（L7-10.asp）。<HTML><TITLE>列出文件夹和文件</TITLE><BODY><%DimobjFSO,objFolder,objFileSetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FolderExists(Server.MapPath("\WebBasic\Ch7"))ThenSetobjFolder=objFSO.GetFolder(Server.MapPath("\WebBasic\Ch7"))Response.Write"本文件夹下所含子文件夹有：<BR>"ForEachobjSubFolderinobjFolder.SubFoldersResponse.WriteobjSubFolder.Name&"<BR>"NextResponse.Write"<P>本文件夹下所含文件有：<BR>"ForEachobjFileinobjFolder.FilesResponse.WriteobjFile.Name&"<BR>"NextElseResponse.Write"所查找的文件夹不存在！"

EndIfSetobjFolder=NothingSetobjFSO=Nothing%></BODY></HTML>7-2-3操作文件例7.11创建MyFile1.asp文件（L7-11.asp）。<HTML><TITLE>创建MyFile1.asp文件</TITLE><BODY><%DimobjFSO

SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FileExists(Server.MapPath("\WebBasic\Ch7\MyFile1.asp"))ThenResponse.Write"MyFile1.asp文件已经存在！"

ElseobjFSO.CreateTextFile(Server.MapPath("\WebBasic\Ch7\MyFile1.asp"))Response.Write"已在指定目录下创建MyFile1.asp文件！"

EndIfSetobjFSO=Nothing%></BODY></HTML>例7.12例7.12文件名的移动和重命名（L7-12.asp）。01:<HTML>02:<TITLE>移动和重命名</TITLE>03:<BODY>04:<%05:DimobjFSO

06:SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")07:IfobjFSO.FileExists(Server.MapPath("\WebBasic\Ch7\MyFile1.asp"))Then08:IfobjFSO.FileExists(Server.MapPath("..\MyFile2.asp"))Then09:Response.Write"MyFile2.asp文件已经存在！"10:Else11:objFSO.MoveFileServer.MapPath("\WebBasic\Ch7\MyFile1.asp"),_12:Server.MapPath("..\MyFile2.asp")13:Response.Write"已将MyFile1.asp文件移至指定目录，并换名为：MyFile2"14:EndIf15:Else16:Response.Write"此目录下没有MyFile1.asp文件！"17:EndIf18:SetobjFSO=Nothing19:%>20:</BODY>21:</HTML>例7.13例7.13利用File对象的Copy方法复制文件（L7-13.asp）。01:<HTML>02:<TITLE>复制文件</TITLE>03:<BODY>04:<%05:DimobjFSO,objFile06:SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")07:IfobjFSO.FileExists(Server.MapPath("\WebBasic\Ch7\MyFile1.asp"))Then08:SetobjFile=objFSO.GetFile(Server.MapPath("\WebBasic\Ch7\MyFile1.asp"))09:objFile.CopyServer.MapPath("…\MyFile2.asp")10:Response.Write"已将MyFile1文件复制到指定目录，并换名为：MyFile2.asp"11:Else12:Response.Write"此目录下没有MyFile1.asp文件！"13:EndIf14:SetobjFile=Nothing15:SetobjFSO=Nothing16:%>17:</BODY>18:</HTML>还可以利用File对象的Delete方法删除文件，如将例7.13的If语句7～13行换成：

IfobjFSO.FileExists(Server.MapPath("\WebBasic\Ch7\MyFile1.asp"))ThenSetobjFile=objFSO.GetFile(Server.MapPath("\WebBasic\Ch7\MyFile1.asp"))objFile.Delete(True)Response.Write"MyFile1.asp文件已被删除！"

ElseResponse.Write"此目录下没有MyFile1.asp文件！"

EndIf利用File对象的Move方法可以移动且对文件进行更名，将例7.13的If语句换成：

IfobjFSO.FileExists(Server.MapPath("\WebBasic\Ch7\MyFile1.asp"))ThenSetobjFile=objFSO.GetFile(Server.MapPath("\WebBasic\Ch7\MyFile1.asp"))objFile.Move(Server.MapPath("..\MyFile2.asp"))Response.Write"已将MyFile1.asp文件复制到指定目录，并换名为：MyFile2"ElseResponse.Write"此目录下没有MyFile1.asp文件！"

EndIf接上页例7.14例7.14利用File对象的属性获取文件的各种参数（L7-14.asp）。运行结果如图7-3所示。<HTML><TITLE>获取文件的各种参数</TITLE><BODY><%DimobjFSO,objFileSetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FileExists(Server.MapPath("\WebBasic\Ch7\MyFile1.asp"))ThenSetobjFile=objFSO.GetFile(Server.MapPath("\WebBasic\Ch7\MyFile1.asp"))Response.Write"返回文件的属性是："&objFile.Attributes&"<BR>"Response.Write"返回文件的名称是："&objFile.Name&"<BR>"Response.Write"返回文件的路径是："&objFile.Path&"<BR>"Response.Write"返回文件的大小是："&objFile.Size&"<BR>"Response.Write"返回文件的类型是："&objFile.Type&"<BR>"Response.Write"返回文件的创建日期是："&objFile.DateCreated&"<BR>"ElseResponse.Write"所访问的文件不存在，无法返回参数信息！"

EndIfSetobjFile=Nothing'释放File对象

SetobjFSO=Nothing'释放FileSystemObject对象%></BODY></HTML>7-2-4读、写文件FileAccess组件提供了对文件处理的多种对象、方法、属性等，通过它们的有机组合，我们可以选取一些方便、快捷的方案来处理我们所遇到的问题。例7.15

例7.15从给定文件（MyFile.txt）中每次读取n+1个字符（L7-15.asp）。<HTML><TITLE>读取字符①</TITLE><BODY><%DimobjFSO,objTS,Chars,nn=0SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO.FileExists(Server.MapPath("\WebBasic\Ch7\MyFile.txt"))ThenSetobjTS=objFSO.OpenTextFile(Server.MapPath("MyFile.txt"),1)DoWhileNotobjTS.AtEndOfStream'判断是否到达文件尾

Chars=objTS.Read(n)'每次读取n个字符赋给字符串变量CharsResponse.WriteChars&"<BR>"'输出Chars的值和强制换行标记

n=n+1LoopobjTS.Close'关闭打开的文件

ElseResponse.Write"此目录下没有MyFile.txt文件！"

EndIfSetobjTS=Nothing'释放TextStream对象实例，即关闭打开的TextStream对象实例

SetobjFSO=Nothing'释放FileSystemObject对象实例%></BODY></HTML>例7.16例7.16从给定文件（MyFile.txt）中每次读取一行字符（L7-16.asp）。01:<HTML>02:<TITLE>读取字符②</TITLE>03:<BODY>04:<%05:DimobjFSO,objTS,Lines06:DimI07:I=108:SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")09:IfobjFSO.FileExists(Server.MapPath("\WebBasic\Ch7\MyFile.txt"))Then10:SetobjTS=objFSO.OpenTextFile(Server.MapPath("MyFile.txt"),1)11:DoWhileNotobjTS.AtEndOfStream'判断是否到达文件尾12:Lines=objTS.ReadLine'读取一行并赋给字符串变量Lines13:Response.WriteLines'输出Lines的值14:Response.Write"<BR>"'输出强制换行标记15:IfI>=5Then'若加上以下四句，结果为输出5行16:ExitDo'包括空格行，并退出17:EndIf18:I=I+119:Loop20:objTS.Close'关闭打开的文件21:Else22:Response.Write"此目录下没有MyFile.txt文件！"23:EndIf24:SetobjTS=Nothing'释放TextStream对象25:SetobjFSO=Nothing'释放FileSystemObject对象26:%>27:</BODY>28:</HTML>例7.17例7.17利用TextStream对象提供的三种方法Write（string）、WriteLine（string）和WriteBlankLines（n）将字符写入到文件中（L7-17.asp）。01:<HTML>02:<TITLE>将字符写入文件</TITLE>03:<BODY>04:<%05:DimobjFSOs,objTSs06:SetobjFSOs=Server.CreateObject("Scripting.FileSystemObject")07:SetobjTSs=objFSOs.OpenTextFile(Server.MapPath("MyFile3.txt"),2,True)08:objTSs.Write("<CENTER>渔歌子</CENTER>")09:objTSs.WriteLine("<CENTER><B>张志和</B></CENTER>")10:objTSs.WriteBlankLines("1")11:objTSs.WriteLine("<CENTER>西塞山前白鹭飞，</CENTER>")12:objTSs.WriteLine("<CENTER>桃花流水鳜鱼肥。</CENTER>")13:objTSs.WriteLine("<CENTER>青箬笠，绿蓑衣，</CENTER>")14:objTSs.WriteLine("<CENTER>斜风细雨不须归。</CENTER>")15:objTSs.Close'关闭已打开的文件16:SetobjTSs=Nothing'释放TextStream对象17:SetobjFSOs=Nothing'释放FileSystemObject对象18:%>19:20:</BODY>21:</HTML>7-3内置组件ASP内置组件的常用部分由ASP/IIS安装提供，其他的部分可由Web免费或有偿提供。服务器端组件通常在自己的DLL或可执行文件中实现，一旦服务器安装或注册了该DLL文件，其提供的对象等就可以在ASP所支持的任何脚本语言中使用。组件与ASP环境的关系如图7-6所示。图7-6组件与ASP环境的关系7-4外置组件

ASP的内置以象和内置组件在安装了ASP/IIS或其他服务器软件后就可以直接使用。外置组件或称为第三方组件（theThirdComponents），是使用VB、VC++、VFP等支持组件对象模型（COM）技术的语言编写的供ASP调用的组件。应用语言编制ASP的外置组件，扩展了ASP的功能，使其几乎达到了无所这能的境界。在广袤的Internet世界里，有许多优秀的ASP网站会提供一些免费或共享的源代码外置组件，所以一些标准功能的ASP外置组件用户无需自己开发。通常从Internet下载的组件都要注册，注册以后就像使用ASP的内置组件一样方便，也有属性、方法等。注册的方法一般是先将动态链接库（如：AspMail.Dll）拷贝至服务吕系统目录下（如:Windows2000的\WINNT\system32\intesrv\），再键入命令：

regser32AspMail.dll完成操作后，便可以使用该组件了。7-5组件应用7-5-1应用AdRotator组件AdRotator组件提供广告随机轮换选择功能，简化了按顺序显示每幅广告的任务，可以轻松自动地添加新广告。浏览者打开网而时，能随机地看到广告。程序员可以很容易地增加或更改广告的超链接，使浏览者单击广告便可进入广告客户的Web站点。构成一个广告随机轮换组件的文件通常含有：ADROT.DLL（通常位于\WINNT\system32\inetsrv下）、超链接处理文件和广告数据库（文本文件）例7.18a例7.18a超链接处理文件①（L7-18a.asp）。<HTML><TITLE>广告随机显示</TITLE><%DimobjRand

SetobjRand=Server.CreateObject("MSWC.AdRotator")Response.WriteobjRand.GetAdvertisement("Random.txt")SetobjRand=Nothing%></HTML>例7.18b超链接处理文件②（L7-18b.asp）。<%MyURL=Request("URL")Response.RedirectMyURL%>广告数据库即文本文件（Random.txt)：REDIRECTL7-18b.aspWIDTH600HEIGHT70BORDER1*Phot1.jpgFile1.htm祝贺上海申博成功！1Phot2.jpgFile2.htm2010相约上海！1Phot3.jpgFile3.htm乘磁悬浮，到上海！1

7-5-2应用CDONTS组件内置组件CDONTS（CollaborationDataObjectsforWindowsNTServer）主要用于处理电子邮件，而收、发送E-mail是网站的基本功能之一。若用户感觉CDONTS不好用，完全可以采用功能更强的外置组件。例7.19例7.19

发送Email邮件（L7-19.asp）。<%SubSendmail(fromaddress,toaddress,title,body)DimObjMyMail

SetObjMyMail=Server.CreateObject("CDONTS.Newmail")

ObjMyMail.From=fromaddress'发信人邮件地址

ObjMyMail.To=toaddress'收信人邮件地址

ObjMyMail.Subject=title'主题词

ObjMyMail.Body=body'正文

ObjMyMail.Send'用CDONTS的Send方法发送邮件

SetObjMyMail=nothing'释放对象

EndSub

Fromaddress=TRIM(Request.Form("fromaddress"))

Toaddress=TRIM(Request.Form("toaddress"))Title=TRIM(Request.Form("title"))Body=TRIM(Request.Form("body"))Iftoaddress<>""then

Sendmailfromaddress,toaddress,title,bodyEndif%><HTML><TITLE>发送Email</TITLE><BODY><FORMmethod="post"action=<%=Request.ServerVariables("script_name")%>><P>

收件人:<INPUTname="toaddress"type="text"size=25><P>

发件人:<INPUTname="fromaddress"type="text"size=25><P>

主题词:<INPUTname="title"type="text"size=25><P><TEXTAREAname="body"cols=40rows=5></TEXTAREA><P><INPUTtype="submit"value="发送"></FORM></BODY></HTML>7-5-3应用BrowserCapabilities组件利用BrowserCapabilities组件可以为BrowserType对象创建对象实例（如：objBInf），以此来获取客户端浏览器的各种功能信息（如：浏览器的名称、版本、平台等是否支持表格、框架、Cookies、背景音乐、VBScript、JavaScript等），并将其返送服务器。例7.20例7.20截获客户端浏览器的各种信息（L7-20.asp）。<%DimobjBInf

SetobjBInf=Server.CreateObject("MSWC.BrowserType")%><HTML><TITLE>BrowserCapabilities组件</TITLE><H2>客户端浏览器的数据：</H2><BODY>

客户端浏览器的名称：<%=objBInf.Browser%><BR>

客户端浏览器的版本：<%=objBInf.Version%><BR>

客户端浏览器的平台：<%=objBInf.Platform%><BR>

客户端浏览器是否支持表格：<%=objBInf.Tables%><BR>

客户端浏览器是否支持框架：<%=objBInf.Frames%><BR>

客户端浏览器是否支持Cookies：<%=objBInf.Cookies%><BR>

客户端浏览器是否支持背景音乐：<%=objBInf.BackgroundSounds%><BR>

客户端浏览器是否支持VBScript：<%=objBInf.VBScript%><BR>

客户端浏览器是否支持JavaScript：<%=objBInf.JavaScript%><BR>

客户端浏览器是否支持JavaApplets：<%=objBInf.JavaApplets%><BR>

客户端浏览器是否为BETA测试软件：<%=objBInf.Beta%><BR>

客户端浏览器是否支持ActiveXControls：<%=objBInf.ActiveXControls%><BR><%SetobjBInf=Nothing%></BODY></HTML>7-5-4应用Dictionary组件例7.21利用Dictionary组件输出一组数据（L7-21.asp）。<HTML><TITLE>应用Dictionary组件</TITLE><BODY><%DimArray(5),name1,name2,name3,name4,name5Setname1=Server.CreateObject("Scripting.Dictionary")name1.Add"品名","主板"

name1.Add"型号","TUSI-M"name1.Add"价格","740元"

name1.Add"生产日期","08/09/02"

Setname2=Server.CreateObject("Scripting.Dictionary")name2.A

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

温馨提示

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

最新文档

评论

0/150

提交评论