现在各位的主页上是不是广告漫天飞呢?是不是对此感到烦恼呢?浏览别人的网页时嫌别人的广告太多，拖慢了速度。做自己的网页时又不甘心多删除几个广告，毕竟，那是理论上的money啊，呵呵。矛盾啊，一边是要求快速度以求得网友，一边是要求多广告以求得钞票，虽然这个钞票很虚无飘渺，但……人总是有点点贪心的。各位大虾，你们是怎么解决的呢?
各位对javascript应该是比较熟悉了吧。下面我们就用它来解决广告的问题。设计思路是这样的：将原来同屏显示多个固定广告的做法改为单屏只显示一个广告，但这个广告是轮换的，也就是说，你每次浏览时，出现的广告是不同的。这样，速度快了，而点击数并没有下降(因为大多数广告对同一IP的多次点击只算一次)。嘿嘿，这个办法是不是很好啊?(旁：可是这样好象显示数会减少啊!)这……可就没有办法了，不过据我所知，绝大多数都是点击数不够啊!要不然，就不会在n多个主页上看到“帮帮忙，高抬贵鼠”的字样了。
下面是源码。如果你是个守法好公民的话，可以将最后的右键弹出窗口代码部分删除，因为……这毕竟有作弊嫌疑。其实，在段代码改改可以用作很多用途，比如点右键随机导航、问候等等。我这里抛砖引玉，各位大虾就自己动手改吧!
＜!－－ Begin
var how_many_ads = 3;
var now = new Date()
var sec = now.getSeconds()
var ad = sec ％ how_many_ads;
ad ＋=1;
//产生一个1～how_many_ads之间的随机数
if (ad==1) {
txt="Free Advertising from Click2Net!";
url="/?A044837,88";
alt="Click here to visit our sponsor";
banner="/?A044837,88";
width="468";
height="60";
}
if (ad==2) {
txt="聚宝盆广告网!";
url="/Ads/click.html?clientID=1004321";
alt="请点击我们的赞助商";
banner="/Ads/ads.html?clientID=1004321";
width="468";
height="60";
}
if (ad==3) {
txt="中华广告网";
url="/ads/clicks.asp?100188,1";
alt="中华广告网";
banner="/ads/images.asp?100188,1";
width="468";
height="60";
}
//针对不同的随机数，选择不同的广告
document.write(’
’);
document.write(’
document.write(’
document.write(width ＋ ’ height=’ ＋ height ＋ ’ ’);
document.write(’alt="’ ＋ alt ＋ ’" border=0>
’);
document.write(’’ ＋ txt ＋ ’’);
document.write(’
’);
//输出广告
//以下为右键弹出广告部分，最好……删除
function click() {
if (event.button==2) {
window.open(url,’popwindows’,"toolbar=no,menubar=no,width=200,height=200")
}
}
document.onmousedown=click
End →
哈哈，看明白了吧？我自己是将它存成一个ads.js文件，然后在网页中用来插入，这样以后要换广告也方便啊。
现在支持ASP的主页空间也越来越多了，各位如果有这样的主页的话，用ASP的广告轮换组件就更简单了。下面我就为大家讲解一下。
首先，必须建立一个显示方式的设置文件。这是一个文本文件，它记录了显示图形的方式以及其他的设置信息。其格式如下：
［REDIRECT URL］
［WIDTH number］
［HEIGHT number］
［BORDER number］
＊
adURL
adHomePageURL
Text
impressions
REDIRECT参数表示浏览者点击广告图片时负责处理的网页文件。WIDTH,HEIGHT,BORDER是和图片相关的参数，大家应该一看就知。＊号下面的就是具体的广告，可设置多组。adURL表示广告图片的存储位置。adHomePageURL表示图片所链接的地址，也就是广告商想叫你去的地方。Text相当于HTML语言中标签的alt属性.impressions是随机显示图片的依据，其值介于0到4294967295之间，广告组件就依据它来随机显示图片。下面是我将上面的广告改写的一个示例：
REDIRECT click.asp
WIDTH 468
HEIGHT 60
BORDER 0
＊
/?A044837,88
/?A044837,88
Click here to visit our sponsor
80
/Ads/ads.html?clientID=1004321
/Ads/click.html?clientID=1004321
请点击我们的赞助商
40
/ads/images.asp?100188,1
/ads/clicks.asp?100188,1
中华广告网
20
将其存为ad.txt，然后编写click.asp，这个就更简单，就一句：
＜％
Response.Redirect Request("url")
％>
最后呢，你就要编写建立组件的程序ads.asp了。也很简单：
＜％
Set ad=Server.CreateObject("MSWC.ADRotator")
Response.write ad.GetAdvertisement("ad.txt")
％>
同样，你也可以用＜!——＃include file=ads.asp→来插入，简化以后的修改工作。