ASP AdRotator 组件

ASP AdRotator 组件（中文讲解）

在经典Active Server Pages（ASP）中，AdRotator组件是一个内置的服务器端组件，用于在网页上自动轮播广告横幅（banner）。它通过读取外部文本文件（轮播调度文件）随机选择并显示不同的广告图像，每次用户访问或刷新页面时显示一个新广告。AdRotator组件基于MSWC.AdRotator COM对象，适合简单广告管理场景，如网站横幅广告或促销图像轮播。以下是对ASP AdRotator组件的详细讲解，包括原理、配置、示例和注意事项。

1. AdRotator 组件概述

作用：AdRotator对象根据调度文件中的设置，随机显示广告图像，并生成包含超链接的HTML代码（点击时可重定向到指定URL）。
优势：
简单易用，无需复杂脚本。
支持随机轮播和权重控制（基于印象数）。
自动生成<IMG>和<A>标签。
依赖：IIS服务器上的MSWC组件，默认随Windows安装。
典型用途：
网站顶部或侧边栏广告轮播。
促销图像随机显示。
局限性：
仅支持静态图像广告，不适合动态内容。
轮播基于随机算法，不支持高级跟踪（如点击统计，除非结合重定向文件）。

2. 基本原理

AdRotator依赖两个文件：

轮播调度文件（文本文件，扩展名通常.txt）：包含广告列表、图像路径、URL、印象数（权重）和尺寸等信息。每行一个广告，格式为：

   [印象数] [图像URL] [超链接URL] [文本提示] [宽度] [高度] [开放方式]

印象数：广告显示的相对权重（越大越常显示）。
图像URL：广告图像的虚拟路径（如/images/banner1.gif）。
超链接URL：点击广告跳转的URL。
文本提示：ALT属性文本。
宽度/高度：图像尺寸（像素）。
开放方式：可选，_blank表示新窗口打开。示例调度文件（ads.txt）：

   100 /images/banner1.gif http://example.com/offer1 促销1 468 60
   200 /images/banner2.gif http://example.com/offer2 促销2 468 60 _blank
   50 /images/banner3.gif http://example.com/offer3 促销3 468 60

重定向文件（可选，ASP文件）：用于记录点击统计或额外逻辑。调度文件中URL指向此文件，重定向文件通过查询字符串获取原始URL并重定向。

3. 使用 AdRotator 组件

创建 AdRotator 对象

使用Server.CreateObject("MSWC.AdRotator")创建对象，并调用GetAdvertisement方法：

<%
Set adRotator = Server.CreateObject("MSWC.AdRotator")
adHTML = adRotator.GetAdvertisement("ads.txt")  ' ads.txt 为调度文件路径
Response.Write(adHTML)
Set adRotator = Nothing
%>

GetAdvertisement(filename)：返回HTML代码字符串，包含随机选择的广告图像和链接。
路径：文件名是相对于网站根目录的虚拟路径。

重定向文件示例（`redirect.asp`）

调度文件中URL设为redirect.asp，重定向文件处理点击：

<%
Dim targetURL
targetURL = Request.QueryString("url")
If targetURL <> "" Then
    ' 可在此记录点击日志
    Response.Redirect(targetURL)
Else
    Response.Write("无效链接")
End If
%>

调度文件中使用：100 /images/banner1.gif redirect.asp?url=http://example.com/offer1 促销1 468 60

4. 示例代码

(1) 基本广告轮播

创建页面显示随机广告（假设ads.txt已配置）：

<%@ Language=VBScript CodePage=65001 %>
<html>
<head>
    <title>广告轮播示例</title>
</head>
<body>
    <h1>网站首页</h1>
    <p>以下是随机广告：</p>
    <%
    Response.Charset = "UTF-8"
    Set adRotator = Server.CreateObject("MSWC.AdRotator")
    adHTML = adRotator.GetAdvertisement(Server.MapPath("ads.txt"))
    Response.Write(adHTML)
    Set adRotator = Nothing
    %>
</body>
</html>

输出：随机生成类似<A HREF="http://example.com/offer1"><IMG SRC="/images/banner1.gif" ALT="促销1" WIDTH=468 HEIGHT=60 BORDER=0></A>的HTML。

(2) 带重定向和日志的广告

调度文件ads.txt：

100 /images/banner1.gif redirect.asp?url=http://example.com/offer1 促销1 468 60
200 /images/banner2.gif redirect.asp?url=http://example.com/offer2 促销2 468 60 _blank

重定向文件redirect.asp：

<%@ Language=VBScript CodePage=65001 %>
<%
Response.Charset = "UTF-8"
Dim targetURL
targetURL = Request.QueryString("url")
If targetURL <> "" Then
    ' 记录点击到日志（可选）
    Set fs = Server.CreateObject("Scripting.FileSystemObject")
    Set logFile = fs.OpenTextFile(Server.MapPath("clicks.log"), 8, True)
    logFile.WriteLine("[" & Now() & "] 点击: " & targetURL)
    logFile.Close
    Set logFile = Nothing
    Set fs = Nothing
    Response.Redirect(targetURL)
End If
%>

主页面：

<%
Set adRotator = Server.CreateObject("MSWC.AdRotator")
adHTML = adRotator.GetAdvertisement("ads.txt")
Response.Write(adHTML)
Set adRotator = Nothing
%>

(3) 动态调度文件

根据用户Session动态选择调度文件：

<%
If Session("userType") = "premium" Then
    scheduleFile = "premium_ads.txt"
Else
    scheduleFile = "standard_ads.txt"
End If
Set adRotator = Server.CreateObject("MSWC.AdRotator")
adHTML = adRotator.GetAdvertisement(scheduleFile)
Response.Write(adHTML)
Set adRotator = Nothing
%>

5. 注意事项

文件路径：

调度文件和图像路径为虚拟路径（从网站根目录开始）。
使用Server.MapPath获取物理路径测试，但GetAdvertisement需虚拟路径。

中文支持：

设置<%@ Language=VBScript CodePage=65001 %>和Response.Charset = "UTF-8"支持中文提示文本。
调度文件中的文本提示需UTF-8编码保存。

安全性：

验证重定向URL，防止开放重定向攻击：在redirect.asp中检查targetURL是否为白名单。
避免用户输入影响调度文件。

性能：

调度文件过大会增加加载时间，建议控制在20-50个广告。
每次页面加载读取文件，缓存不频繁变化的调度文件。

兼容性：

仅适用于经典ASP，不支持ASP.NET（ASP.NET有独立的AdRotator控件）。
确保IIS启用MSWC组件（默认启用）。

调试：

检查调度文件格式（每行正确分隔）。
使用Response.Write输出adHTML验证生成的HTML。

6. 与 Request/Response 的关系

Request：从查询字符串获取URL参数（如在重定向文件中）。

  targetURL = Request.QueryString("url")

Response：输出AdRotator生成的HTML，并处理重定向。

  Response.Write(adHTML)
  Response.Redirect(targetURL)

7. 总结

ASP的AdRotator组件是实现简单广告轮播的便捷工具，通过调度文本文件和MSWC.AdRotator对象随机显示图像广告。结合重定向文件可实现点击跟踪。适合小型网站广告管理，但对于复杂需求（如动态广告），可考虑JavaScript或现代框架替代。更多细节可参考W3Schools或微软官方文档中的AdRotator说明。