ASP 3.0高级编程（二十四）(3)

…
'get the URL of the advertiser's target page
strAdvertiserURL = Request.QueryString("url")
If Instr(strAdvertiserURL, "wrox.com") Then
objCounters.Increment("wrox")
Response.Clear
Response.Redirect strAdvertiserURL
End If

If Instr(strAdvertiserURL, "going-to-the-moon") Then
objCounters.Increment("lunar")
Response.Clear
Response.Write "Sorry, this isn't a real site..."
End If
…
.. 'same for other advertisers
…
查询字符串包含图像文件名时，在脚本中也要考虑这一点，如果在调度文件中，同一广告主有三种不同的图像，可以对每个图像单独地跟踪访问次数。
…
If Instr(strAdvertiserURL, "wrox.com") Then
'this is an advert for the Wrox Press site
Select Case Request.QueryString("image")
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组件的作用，下面介绍该组件。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有