bsp;  Case "books.gif"
                     objCounters.Increment("wrox_books")
              Case "website.gif"
                     objCounters.Increment("wrox_site")
              Case Else
                     objCounters.Increment("wrox_other")
       End Select
       Response.Clear
       Response.Redirect strAdvertiserURL
End If
…
5．  一个Ad Rotator示例页面
本章提供的示例文件包括一个Ad Rotator组件演示程序，它能够从前面见过的ASP Installable Components主菜单中打开。页面的上部显示的是一个由名为ad_schedule.txt的旋转调度文件定义的广告（可在本章示例目录下的Ad RotFiles子目录中找到ad_shedule.txt），如图6-5所示：

图6-5  Ad Rotating页面的示例
使用的代码前面已经讨论过，这里在调度文件中仅增加了另外一些条目，以便更清楚地显示载入页面时的广告的变化情况。如果点击一个广告，将运行名为ad_redirect.asp的重定向文件中的代码，并且相应的广告主的页面在新的窗口里打开。完成该工作的代码和前面见到的相同。
在重定向文件中，可使用计数器（由Counters组件创建）实例存储每个广告的点击次数。
…
If Instr(strAdvertiserURL, "wrox.com") Then
   objCounters.Increment("wrox")
   Response.Clear
   Response.Redirect strAdvertiserURL
End If
…此页面的其余部分演示了Counters组件的作用，下面介绍该组件。

上一页  [1] [2]