ASP AdRotator 组件实例教程

好了下面我们来看看ASP AdRotator 组件实例教程吧.

在ASP AdRotator组件创建一个AdRotator对象,显示不同的图片每一次使用者进入或重新整理网页。一个文本文件包含有关的图片。

语法

<%
set adrotator=server.createobject("MSWC.AdRotator")
adrotator.GetAdvertisement("textfile.txt")
%>

例如
假设我们有一个文件名为“ banners.asp ” 。它看起来像这样:

<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("ads.txt"))
%>
</body>
</html>

该文件“ ads.txt ”看起来像这样:

*
w3schools.gif
http://www.111cn.net/
Visit W3Schools
80
microsoft.gif
http://www.111cn.net/
Visit Microsoft
20

该线以下的星号文件“ ads.txt ”指定的图像显示,超链接地址,替代文本(用于图像) ,并显示在百分之利率的安打。我们看到, http://www.111cn.net/图像将显示为80 %的安打和微软图像将显示为20 %的安打在上面的文本文件。

注意:若要取得联系工作时,用户点击它们,我们将不得不修改档案“ ads.txt ”有点:

REDIRECT banners.asp
*
w3schools.gif
http://www.w3schools.com/
Visit W3Schools
80
microsoft.gif
http://www.microsoft.com/
Visit Microsoft
20

重定向页面( banners.asp )现在将收到一个查询字符串的变量命名的网址载有网址重定向到。

注意:要指定高度,宽度,以及边境的形象,您可以插入以下线下重定向:
REDIRECT banners.asp
WIDTH 468
HEIGHT 60
BORDER 0
*
111cn.gif
...
... 

过去的事情是添加一些代码行的“ banners.asp ”档案:
<%
url=Request.QueryString("url")
If url<>"" then Response.Redirect(url)
%>

<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("textfile.txt"))
%>
</body>
</html>

好了下面我们来看看 ASP AdRotator 方法与属性吧.

例如产权说明
边境指定的大小,边界周围的广告“ %
设置adrot = Server.CreateObject ( “ MSWC.AdRotator ” )
adrot.Border = “ 2 ”
Response.Write ( adrot.GetAdvertisement ( “ ads.txt ” ) )
% “
点击指定的广告是否是一个超连结“ %
设置adrot = Server.CreateObject ( “ MSWC.AdRotator ” )
adrot.Clickable =虚假
Response.Write ( adrot.GetAdvertisement ( “ ads.txt ” ) )
% “
TargetFrame的名称框,以显示广告“ %
设置adrot = Server.CreateObject ( “ MSWC.AdRotator ” )
adrot.TargetFrame = “目标= ' _blank ' ”
Response.Write ( adrot.GetAdvertisement ( “ ads.txt ” ) )
% “

方法
例如描述方法
GetAdvertisement返回的HTML显示的广告在“页< %
设置adrot = Server.CreateObject ( “ MSWC.AdRotator ” )
Response.Write ( adrot.GetAdvertisement ( “ ads.txt ” ) )
% “

时间: 2024-11-02 18:55:25

ASP AdRotator 组件实例教程的相关文章

ASP Browser 组件实例教程

ASP Browser 组件实例教程 浏览器功能的ASP组件 该浏览器功能的ASP组件创建一个BrowserType对象确定的类型,功能和版本号码每个浏览器访问您的网站. 当浏览器连接到一个服务器,一个HTTP用户代理头也发送到服务器.这头包含有关浏览器(如浏览器类型和版本号) .该BrowserType对象然后比较中的信息与信息标题在一个文件中的服务器上所谓的" Browscap.ini " . 如果有一场比赛之间的浏览器类型和版本号码发送的标题和信息的" Browserc

ASP基础教程之ASP AdRotator 组件的使用

ASP AdRotator 组件 每当用户进入网站或刷新页面时,ASP AdRotator组件就会创建一个AdRotator对象来显示一幅不同的图片. 语法: 以下为引用的内容:<%set adrotator=server.createobject("MSWC.AdRotator")adrotator.GetAdvertisement("textfile.txt")%> 实例 假设我们有一个文件名为"banners.asp".它类似于

ASP fso Files 实例教程

ASP fso Files 实例教程 档案收集返回一个收集的所有文件中指定的文件夹. 语法 FolderObject.Files 例如 <% dim fs,fo,x set fs=Server.CreateObject("Scripting.FileSystemObject") set fo=fs.GetFolder("c:test") for each x in fo.files 'Print the name of all files in the tes

ASP AddHeader 方法实例教程

ASP AddHeader 方法实例教程 该AddHeader方法增加了一个新的HTTP标头和价值的HTTP响应. 注意:一旦ASP AddHeader,它不能被删除. 注:在IIS 4.0中你必须调用此方法之前,任何被输出到浏览器.在IIS 5.0中,您可以致电AddHeader方法在任何一点的脚本,只要它之前的任何要求Response.Flush方法. 语法 response.AddHeader name,value Parameter Description name Required.

asp教程: AdRotator对象实例教程

<html> <body> <% set adrotator=Server.CreateObject("MSWC.AdRotator") adrotator.Border="2" Response.Write(adrotator.GetAdvertisement("text/advertisements.txt")) %> <p> 注意:由于图像随机变化,并因为这个页面已经几张图片可供选择,它往往会

ASP ParentFolder 与 ASP Path 属性实例教程

ASP ParentFolder 与 ASP Path 属性是判断当前文件或文件夹的上级目录 我们先来看看parentfolder属性吧. 好了下面我们接着看asp fso path 属性实例教程吧. 语法 DriveObject.Path FileObject.Path FolderObject.Path <% dim fs,d set fs=Server.CreateObject("Scripting.FileSystemObject") set d=fs.GetDrive(

asp ado使用实例教程

ASP 使用ADO 这一课将提供一个简要概述了使用ADO是什么,为什么它有必要在ASP编程曲目. ADO技术支持ActiveX数据对象. ActiveX数据对象是一个收集的部件,可用于在ASP程序. 访问数据库 ADO技术是专门用来作为沟通的手段和操纵数据库.该类型的数据库ADO技术可以使您的ASP程序进行互动包括访问, MySQL和和数据库等等.在这一课,我们将连接到一个Access数据库,所以你将需要获得接入(合)来完成这一课. 创建您的Access数据库 在您可以连接到Access数据库中

ASP.NET -服务器控件 实例教程

服务器的控制标记,是理解的服务器. 局限在传统ASP 下面的列表复制从前一章: <html> <body bgcolor="yellow"> <center> <h2>Hello W3Schools!</h2> <p><%Response.Write(now())%></p> </center> </body> </html> 以上代码说明了限制,经典的A

asp fso使用实例教程

<% Function Er()  '错误处理         If Err.Number = 0 Then         Er = False         Else         Err.Clear         Er = True         End If  End Function  sub delfile(FileName)  '这是一个用于删除文件的过程,如未指定文件名,将删除该目录下所有文件   On Error Resume Next  set fs=createob