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组件的作用,下面介绍该组件。
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组件的作用,下面介绍该组件。