IDC资讯中心
(1) 创建一个内容页面
我们已经使用content linking组件为本章提供的示例创建了菜单页面。chapter06文件夹中的页面default.htm采用上述代码创建菜单，如图6-2所示：
图6-2 使用content linking组件创建的菜单页面
可以看到内容链接列表文件的内容显示在链接的下面，我们使用filesystemobject对象完成这一工作。
<%
create an instance of a filesystemobject object
set objfso = server.createobject("scripting.filesystemobject")
open the text file as a textstream object
set objtstream = objfso.opentextfile(server.mappath("contlink.txt"), forreading)
response.write objtstream.readall read the whole file and put into page
objtstream.close
%>
如果你编辑了contlink.txt文件，下次再次调用这个页面时，会看到菜单的条目发生了变化。注意文件中的最后三个条目，这三个条目使用前面介绍的redirect.asp技术，把绝对（而不是相对）的url插入到列表中。
(2) 浏览这些页面
创建一个content linking组件实例并且使用它的一个方法时，将把当前页面的url与指定的内容链接列表文件中的条目相匹配。不仅能用该组件创建一个内容列表（就像刚看到的那样），而且当在浏览器上打开其中一个页面时，可以用该组件对列表中的各个页面进行导航。
这意味着可以用超链接或按钮从这些页面中的一个移到另一个。例如，可以给页面添加next和back按钮，通过使用getnexturl和getpreviousurl方法能知道列表中的哪一个页面是前一个，哪一个页面是下一个。另一方面，能用getnthurl方法跳到列表中的任何页面，用getlistindex方法能知道当前页面在列表中的位置。
下面是一段给页面添加next和back按钮的代码，我们要做的只是把这段程序放在内容链接文件所列出的每一页中，或者用ssi的#include指令将它插入其中。
<!– need a form to force navigator to display the buttons –>
<form action="">
<%
well insert this into each page using an ssi #include statement
create an instance of the content linking component
set objnextlink = server.createobject("mswc.nextlink")
set the content linking list file path and name
strlistfile = "contlink.txt"
get the index of the current page in the list
intthispage = objnextlink.getlistindex(strlistfile)
if intthispage > 1 then can go back
%>
<input type=button value="< back"
onclick="location.href=<% = objnextlink.getpreviousurl(strlistfile) %>;"
title="go to <% = objnextlink.getpreviousdescription(strlistfile) %>">
<%
end if
%>
<input type=button value=" menu " onclick="location.href=default.asp;"
title="return to the main installable components menu">
<%
if intthispage < objnextlink.getlistcount(strlistfile) then can go forward
%>
<input type=button value="next >"
onclick="location.href=<%= objnextlink.getnexturl(strlistfile) %>;"
title="go to <% = objnextlink.getnextdescription(strlistfile) %>">
<%
end if
%>
</form>
第一步是创建content linking组件，然后把列表文件名存入一个变量中，以便后面在创建页面里的客户端jscript代码时能够使用这个列表文件。另外这样做也便于页面的维护，因为如果想使用一个不同文件名仅需在一个地方改变就可以了。
现在让我们了解一下在链接列表中所处的位置。getlistindex方法提供当前页面的索引号，从列表中的第一页开始。如果当前页面的索引号比1大，那么可以后退，所以我们在页面中创建back按钮。如果当前页面的索引号比列表中的项数少，创建next按钮。页面中总是包括一个home按钮，以便访问者在任何时候都能轻易地返回到内容页面。
如果打开列在主菜单中的页面之一的话，将会看到使用这项技术在每个页面上创建的一系列导航按钮，创建按钮的代码在文件contlinkbuttons.inc中，可用#include指令将它插入每个页面中。图6-3所示为带有按钮的界面。
图6-3 带有按钮的界面
在图6-3中有三个按钮，使用getpreviousdescription方法获得上个页面的链接文件，并把这个文本放入back按钮的title属性中，作为弹出的提示。
<input type=button value="< back"
onclick="location.href=<% = objnextlink.getpreviousurl(strlistfile) %>;"
title="go to <% = objnextlink.getpreviousdescription(strlistfile) %>">
next按钮采用getnextdescription方法完成类似的工作。
(3) 用javascript跳转
这些导航按钮使用javascript（而不是vbscript）装载新页面，这样就能够和大多数现代浏览器兼容。例如back按钮包含下面的属性：
onlick="location.here=<% = objnextlink.getpreviousurl(strlistfile) %>; "
当页面的html版本由asp创建时，在<%…%>标记中的表达式用其数值取代，所以发往浏览器的网页看起来如下所示：
onclick="location.herf=permissionchecker.asp; "
为什么选择使用变量来表示内容链接列表文件的名字？其原因是在单个语句中包括一个三层的嵌套引用是非常麻烦的。
注意浏览器的缺省语言是javascript（或ie中的jscript），而不是vbscript，通过使用javascript，可以避免在onclick代码中必须提供language参数，同时对非ie浏览器提供兼容性。
6.2.3 ad rotator组件
ad rotator组件允许浏览器在引用asp页面时每次显示不同的图像，这项技术经常用在显示广告的站点上。每次打开或重新载入页面时，asp采用“旋转调度文件”(rotator schedule file)中的信息选择一副图像，并插入网页中。然而ad rotator组件能做更复杂的工作，它可以把图像设置成超级链接而不是一副静止的图像，并能记录用户对每个广告的点击次数。
在本章所介绍的组件中，ad rotator组件可能是最难使用的，因为它涉及几个不同的文件。在查看每个文件之前，图6-4所示的工作过程总览可能有助于了解它们之间的组合方式。
图6-4 ad rotator组件的工作过程总览
1． 旋转调度文件
ad rotator组件依赖于该文件来指定显示的广告或图像。这个文件包括每个图像文件的名字、显示的尺寸大小以及显示时间的相对百分数。该文件分为两部分，由一个仅含有一个星号（*）的行分隔。
文件格式如下：
redirect url
width width
height height
border border
*
adurl
adhomeurl
text
impressions
其中：
· url是执行重新定向的asp文件或程序的虚拟路径及名称。
· width和height定义了页面中广告条的大小（以像素为单位），缺省值为440×60。
· border规定了广告条边界的宽度（以像素为单位），缺省值为1，无边界时为0。
第一部分是可选的，设置应用于该文件中所有广告条的缺省值。这给设置所有图像的参数提供了一种方法，边界宽度可以使用ad rotator组件中的border属性来设置。如果忽略了一项或多项此类任选参数，而且没有明确设置对象属性，那么参数就使用其本身和缺省值。如果忽略所有这些参数，仍需包含“*”作为文件的第一行。
第二部分，即“*”后的部分，必须存在于该文件中，它提供了各个广告条的细节。对于每个广告条，下面四个参数要重复使用。这些参数是：
· adurl，是广告图像文件的虚拟路径和文件名。
· adhomeurl，是广告跳转到的url，连字符（-）表明该广告条没有链接。
· text，浏览器不支持图型文件时显示的文本。
· impressions，是一个整数，指明了此广告条显示的相对时间或时间比率，例如一个文件包含三个广告条，而且它们的impressions值分别设置为4、6和10，那么表明返回的页面中有20%可能出现第一个广告条，30%出现第二个广告条，50%出现第三个广告条。这没有指明广告条在浏览器中显示的实际时间。注意每一个广告条的实际出现是随机的，并被修改以达到需要的比率。
下面看一个重新定向文件的例子：
redirect adrotfiles/ad_redirect.asp
width 400
height 50
*
adrotfiles/wrox.gif
http://www.wrox.com/
better books from wrox press
3
adrotfiles/lunar.gif
http://www.going-to-the-moon.com/store.asp
acme lunar boost supplies
1
2． ad rotator组件的成员
ad rotator组件含有一个方法和三个属性，方法如表6-2所示：
表6-2 ad rotator组件的方法及说明
方 法
说 明
getadvertisement(schedule_file)
使用指定的schedule_file中的信息创建并返回一个字符串，这个字符串含有把下一个合适的图像插入到该页面所需的html
属性如表6-3所示：
属 性
说 明
border
整数型，是指广告条边界的宽度（以像素为单位），若未设定，则采用文件第一部分设定的值
clickable
布尔型，规定广告栏图像文件是否显示为一个超级链接，缺省值为true
targetfram
字符串型，目标框（frame）的名字。如果用户点击图像文件的话，这个框用于显示广告主的页面。如果忽略的话，页面装载到当前浏览器的目标框或窗口内，取代含有广告栏图像的页面，这个属性也能设置成一个标准的html框标识：_top、_new、_child、_self、_parent和_blank
3． 使用ad rotator组件
下面的代码说明了ad rotator组件的使用。创建了组件实例之后，设置属性参数并调用getadvertisement方法，指定调度文件的相对物理路径。由组件返回的html代码通过使用response.write方法插入到页面中。
<% vbscript example
quot = chr(34)
set objadrot = server.createobject("mswc.adrotator")
objadrot.border=0 no border
objadrot.clickable=true is a hyperlink
objadrot.targetframe="fraadframe" load into new window named fraadframe
strhtml = objadrot.getadvertisement("adrotfiles\ad_schedule.txt")
response.write(strhtml) put the html into the page
%>
getadvertisement方法的参数是相对于当前目录或web网站根目录的调度文件物理路径和文件名。在上面的代码中，此文件取名为adrotfiles，位于包含正在运行的asp页面的当前目录下的子目录中。如果这个文件存入web网站根目录下的adrotfiles子目录，应使用“\adrotfiles\myadfile.txt”。
调用getadvertisement方法时，返回能插入网页中用于创建广告栏的html代码，对于上例中的旋转调度文件中的第一个广告栏，可以得到下列代码：
<a href="/adrotfiles/adredirect.asp?
url=http://www.wrox.com/&image=/adrotfiles/adpics/wrox.gif">
<img src="/adrotfiles/adpics/wrox.gif"
alt="better books from wrox press" width=440 height=60 border=0></a>
可以看到在常规的<a>标记中放置了图像文件，href属性设置为重定向文件的名称adredirect.asp，同时广告主的主页url和所用的图像添加到查询字符串中，因此当用户点击广告栏时，重定向文件将在服务器上载入并运行。
4． 重定向文件
重定向文件可以是一个asp页面、一个isapi dll或者是一个cgi应用程序，无论是哪一种，它必须能够接受和辨别广告主的主页url以及图像名参数。它检查这些值并决定下一步该做什么。例如通常会把用户重新定向到与此广告栏有关的url，这一点使用下面的vbscript代码很容易实现。
response.redirect request.querystring("url")
然而，重新定向文件提供给我们的不仅仅是这些。例如可以统计点击每个广告的用户数量，如果根据点击数收到广告费用的话，这将显得尤其有用。也可以用本章后面介绍的counters组件来完成这项工作。
…
get the url of the advertisers 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 isnt 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组件的作用，下面介绍该组件。
