1 / 9

第四章 ASP 的可安装组件

第四章 ASP 的可安装组件. ActiveX 外部组建的应用 ActiveX 组件 对应于 WEB 服务器上的一个外部文件（内置组件是集成在 ASP 环境中），其 包含执行某项或一组任务的代码，以执行共用任务。可以是系统自带，第三 方自己编写。 ASP 自带组件 （ 1 ） AD Rotator 广告组件 （ 2 ） Browser capabilities 浏览器兼容组件 （ 3 ） Database Access 数据库访问组件 （ 4 ） File Access 文件访问组件 （ 5 ） content linking 链接组件

parker
Download Presentation

第四章 ASP 的可安装组件

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 第四章 ASP的可安装组件 ActiveX外部组建的应用 ActiveX组件 对应于WEB服务器上的一个外部文件（内置组件是集成在ASP环境中），其 包含执行某项或一组任务的代码，以执行共用任务。可以是系统自带，第三 方自己编写。 ASP自带组件 （1）AD Rotator广告组件 （2）Browser capabilities浏览器兼容组件 （3）Database Access数据库访问组件 （4）File Access文件访问组件 （5）content linking链接组件 （6）CDonts邮件访问组件

  2. 第四章 ASP的可安装组件 1、AD Rotator广告组件 （1）GIF动画广告的缺点 （2）功能：创建一个AD Rotator对象在页面上自动变换显示广告图象，并 能链接到相应的网址。 （3）对象的文件： adrot.dll （4）准备工作：确立相关资料

  3. 第四章 ASP的可安装组件 第一步：建立广告参数文件adver.txt Redirect advert.asp Width 120 Leigh 40 Border 1 * Images/sina.gif http://www.sina.com.cn 新浪 20 Images/sohu.gif http://www.sohu.com 搜狐 40 Images/163.gif http://www.163.com 网易 20

  4. 第四章 ASP的可安装组件 第二步：建立处理文件advert.asp url=request.querystring(“url”) If url<>”” then response.appendtolog url response.redirect url End if 第三步：在ASP文件中调用广告组件 <% Set AD=server.createobject(“MSWC.adrotaor”) AD.targetframe(“_blank”) Response.write AD.getAdvertisement（“/ad/advert.txt”） %>

  5. 第四章 ASP的可安装组件 File access文件访问组件 功能：提供对服务器端文件的访问 创建新文件 Set fs=server.createobject(“scripting.filesystemobject”) File=server.mappath(“/abc.txt”) Set txtf=fs.createtextfile(file) 写入文件 Txtf.writeline(“文件操作实例”) Txtf.write data 关闭文件 Txtf.close

  6. 第四章 ASP的可安装组件 打开文件 Set fs=server.createobject(“scripting.filesystemobject”) File=server.mappath(“/abc.txt”) Set txtf=fs.opentextfile(file,1,true) 读取文件 方法一、line=txtf.readall 表示读取所有的内容 方法二、line=txt.read(n) 表示从文件中读取指定的字符数 Do while not txtf.atendofstream line=txtf.readline 表示逐行读取 response.write line & “<br>” Loop 1、表示只读；2、只写（覆盖原文件） 8、表示追加操作 True：指定如果要打开的文件不存在是否创建。

  7. 第四章 ASP的可安装组件 实例： <% Set fs=server.createobject(“scripting.filesystemobject”) File=server.mappath(“/abc.txt”) Set txtf=fs.opentextfile(file,1,true) Do while not txtf.atendofstream line=txtf.readline response.write line & ”<br>” loop %>

  8. 第四章 ASP的可安装组件 实例：基于文本文件的简易留言板系统 第一步：制作表单(Ly.htm) <form action=“ly.asp” method=“post”> 姓名： 〈input type=“text” name=“user”〉<br> 留言：<textarea rows=“6” cols=“40” name=“ly”>请在此留下墨宝</textarea> </form> 第二步：制作表单接受程序(ly.asp) <% User=request(“user”) Ly=request(“ly”) Set fs=server.createobject(“scripting.filesystemobject”) File=server.mappath(“ly.txt”) Set txt=fs.opentextfile(file,8,true) Txt.writeline uesr Txt.writeline ly Txt.writeline ‘*********” Txt.close %>

  9. 第四章 ASP的可安装组件 第三步：制作读取留言程序(List.asp) <% Set fs=server.createobject(“scripting.filesystemobject”) File=server.mappath(“ly.txt”) Set txt=fs.fs.opentextfile(fiel,1,true) Do while not onendofstream line=txt.readline response.write line & ”<br>” Loop Txt.close %>

More Related