案例:ASP/ADO案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
<%
2
url=Request.QueryString("url")
3
If url<>"" then Response.Redirect(url)
4
%>
5
<html>
6
<body>
7
8
<%
9
set adrotator=Server.CreateObject("MSWC.AdRotator")
10
adrotator.TargetFrame="target='_blank'"
11
response.write(adrotator.GetAdvertisement("/example/aspe/advertisements2.txt"))
12
%>
13
14
<p><b>注释:</b></p>
15
<p>本案例因为安全性原因并没有跳转效果,仅供测试,请在实际案例中增加过滤request字符串功能。</p>
16
<p>由于图像是随机变化的,同时由于本页可供选择的图片很少,因此经常会出现两次显示同一广告的情况。</p>
17
<p>
18
19
<p>
20
<a href="/example/aspe/advertisements2.txt">
21
查看 advertisements2.txt
22
</a>
23
</p>
24
</body>
25
</html>