网络编程
位置:首页>> 网络编程>> Asp编程>> 浅析ASP内置组件(3)

浅析ASP内置组件(3)

 来源:中国站长学院 发布时间:2007-10-18 11:31:00 

标签:组件,内置

三、 AD Rotator(广告翻转组件)

现在上网,恐怕最讨厌的是别人主页上的广告条,最喜欢的是自己主页上的广告条,广告条如同垃圾邮件一样,比比皆是,防不胜防。你也可以自己动手制造这样的垃圾,ASP的AD Rotator组件就可使每次打开或者重新加载网页时,随机的显示广告。这个例子包括三部分:


例程wuf25.asp


<%@ Language=VBScript %>
<% Option Explicit
Dim adr
'创建 AD Rotator 对象
Set adr = Server.CreateObject("MSWC.AdRotator")
adr.Border = 2              '指定图形文件的边框大小
adr.Clickable = True        '指示显示的图片是否是一个超链接
adr.TargetFrame = "_blank"  '设置超链接是否要指定Frame名称,如: _TOP _NEW _PARENT
'获取将要显示的图片及超链接设置 - 在文件 AdrSet.txt 中设置
Response.Write adr.GetAdvertisement("AdrSet.txt")
%>
    AdrSet.txt内容(后面为注释,不是这个文件的内容):
REDIRECT wuf26.asp      点击广告后,转由wuf26.asp来处理
WIDTH 468               广告图片宽度
HEIGHT 60               广告图片高度
*                       分隔符
/Article/UploadFiles/200411/20041106021149251.gif
http://www.canon.com.cn/
佳能
50
本例中一共有三个图片(图片大小468X60)及链接,每个链接的描述占四行,实际使用时,你可如法炮制,增加更多的图片。
<%  ‘wuf26.asp
  URL = Request.QueryString("url")
Response.Redirect(URL)
%>


wuf26.asp是一个最简单的处理程序,你可根据实际需要在这里加入更多的代码。
运行一下,原来这个组件的使用也很简单,你要做的就是得到自己的AdrSet.txt文件。利用这个组件,你甚至可以设计一个现在已非常时髦的广告交换主页。

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com