1. 1、本文档共19页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
WEB第15讲

Email:zhangy_tj@ Web 应用开发 (15) 5 服务器端ActiveX组件 广告轮显组件 浏览器性能组件 文件存取组件 Ad Rotator组件 作用:以一定概率显示广告图片; 包括一个adrot.dll文件; 一个纯文本文件,*.txt,用于记录所有广告信息的数据文件; 一个建立Ad Rotator组件实例对象的asp文件。 Ad Rotator组件 广告轮显组件的内容: 创建实例对象的语法: Set 实例对象名=Server.CreateObject(“MSWC.AdRotator”) AdRotator组件的属性和方法: Border Clickable TargetFrame GetAdvertisement方法(获取广告信息文件中的数据) Ad Rotator组件 广告轮显组件的内容: 例: % Set myad=server.createobject(“MSWC.adrotator”) Myad.border=1 Myad.clickable=true Myad.targetframe=“_top” % %=myad.getadvertisement(“adrot.txt”)% Ad Rotator组件 广告信息文件: 作用:存取各广告的图片路径、大小、出现概率等信息; 语法: [Redirect URL] [Width] [Height] [Border] * adURL adHomePageURL Text Impressions … Ad Rotator组件 广告信息文件: 例: Redirect http://localhost/asp/redirect.asp Width 440 Height 60 Border 1 * ad1.jpg http://localhost/asp 教学网站 50 ad2.jpg http://localhost/holiday 假日网站 50 浏览器性能组件 作用:在服务器端获取客户端浏览器的详细信息; 组成: browscap.dll浏览器功能动态链接库; browscap.ini文本文件; 语法: Set 实例对象名=server.createobject(“MSWC.BrowserType”) 浏览器性能组件 Browser capabilities组件的属性 FileSystemObject 对象 提供对计算机的文件系统的访问 语法: Scripting.FileSystemObject 返回一个TextStream对象 FileSystemObject 对象 CreateTextFile方法 功能 创建指定的文件并返回一个 TextStream 对象,该对象可以用来读写创建的文件 格式 object.CreateTextFile(filename[, overwrite][,unicode]) FileSystemObject 对象 OpenTextFile方法 功能 打开指定的文件并返回一个 TextStream 对象,可以读取、写入此对象或将其追加到文件 格式 object.OpenTextFile(filename[, iomode[, create[, format]]]) TextStream对象 提供对文件进行读写操作的方法 语法: VarNperty|method 其中,VarName指由FileSystemObject对象返回的TextStream对象的变量名 文件的基本操作 创建文件(cfile.asp) % set myfs=createobject(scripting.filesystemobject) set mynewfile=myfs.createtextfile(e:\bubu\testfile.txt,true) mynewfile.writeline(hello) mynewfile.close % 文件的基本操作 打开文件(ofile.asp) % set myfs=createobject(scripting.filesystemobject) set myappfile=myfs.opentextfile(e:\bubu\testfile.txt,1) response.write(myappfile.readline) myappfile.close % 文件的基本操作 读写文件(wfile.asp) % set myfs=createobject(scripting.filesystemobject) set myappfile=myfs.opentextfile(e:\bubu\testfile.txt,2) myappfile.writeline 这行文字替换

文档评论(0)

qwd513620855 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档