浅析ASP内置组件

三、 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 广告图片高度 * 分隔符 http://www.soyou.com/prog/ad/468x60_1.gif 广告图片所在位置，也可为本地图形文件 http://www.163.com/ 指向链接，若没有超链接，写入一个“-” 网易 文字说明 20 显示该广告的相对权重，即显示频率 http://fp.cache.imgis.com/images/Ad173962St1Sz1Sq1Id2.gif http://www.sina.com.cn/ 新浪网 30 http://61.139.77.73/images/canon.gif 也可以使用本地图片，如../images/flag.gif http://www.canon.com.cn/ 佳能 50

　　本例中一共有三个图片（图片大小468X60）及链接，每个链接的描述占四行，实际使用时，你可如法炮制，增加更多的图片。

＜% ‘wuf26.asp URL = Request.QueryString("url") Response.Redirect(URL) %＞

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