asp中的主页广告轮换大法_ASP教程_编程技术
各位对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;
file://产生一个1～how_many_ads之间的随机数
if (ad==1) {
txt="Free Advertising from Click2Net!";
url="http://redirect.click2net.com/?A044837,88";
alt="Click here to visit our sponsor";
banner="http://image.click2net.com/?A044837,88";
width="468";
height="60";
}
if (ad==2) {
txt="聚宝盆广告网!";
url="http://cashbox.com.cn/Ads/click.html?clientID=1004321";
alt="请点击我们的赞助商";
banner="http://cashbox.com.cn/Ads/ads.html?clientID=1004321";
width="468";
height="60";
}
if (ad==3) {
txt="中华广告网";
url="http://www.chinaads.net/ads/clicks.asp?100188,1";
alt="中华广告网";
banner="http://www.chinaads.net/ads/images.asp?100188,1";
width="468";
height="60";
}
file://针对不同的随机数，选择不同的广告
document.write(’
’);
document.write(’
document.write(’
document.write(width ＋ ’ height=’ ＋ height ＋ ’ ’);
document.write(’alt=/"’ ＋ alt ＋ ’/" border=0>
’);
document.write(’’ ＋ txt ＋ ’’);
document.write(’
’);
file://输出广告
file://以下为右键弹出广告部分，最好……删除
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
＊
http://image.click2net.com/?A044837,88
http://redirect.click2net.com/?A044837,88
Click here to visit our sponsor
80
http://cashbox.com.cn/Ads/ads.html?clientID=1004321
http://cashbox.com.cn/Ads/click.html?clientID=1004321
请点击我们的赞助商
40
http://www.chinaads.net/ads/images.asp?100188,1
http://www.chinaads.net/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→来插入，简化以后的修改工作。
各位，看了我的广告轮换大法觉得怎么样？是不是想马上修改自己的主页呢？嘿嘿，这下好了，又省了网费（看各位的主页速度加快，节约上网时间）。
