asp中的主页广告轮换大法

　　下面是源码。如果你是个守法好公民的话，可以将最后的右键弹出窗口代码部分删除，因为……这毕竟有作弊嫌疑。其实，在段代码改改可以用作很多用途，比如点右键随机导航、问候等等。我这里抛砖引玉，各位大虾就自己动手改吧！

　　＜!－－ 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→来插入，简化以后的修改工作。

　　各位，看了我的广告轮换大法觉得怎么样？是不是想马上修改自己的主页呢？嘿嘿，这下好了，又省了网费（看各位的主页速度加快，节约上网时间）。