PHP版本
复制内容到剪贴板
代码:
<?php
$ad[1]="http://www.ii2i.com/"; //页面1
$ad[2]="http://www.baidu.com/s?wd=%CD%F8%C2%E7%BA%EC%C8%CB%B9%DD+GJM&cl=3"; //页面2
$ad[3]="http://www.google.cn/search?complete=1&hl=zh-CN&ie=GB2312&q=%CD%F8%C2%E7%BA%EC%C8%CB%B9%DD+GJM&btnG=Google+%CB%D1%CB%F7&meta="; //页面3
$ad[4]="http://search.cn.yahoo.com/search?lp=%E7%BD%91%E7%BB%9C%E7%BA%A2%E4%BA%BA%E9%A6%86&p=%E7%BD%91%E7%BB%9C%E7%BA%A2%E4%BA%BA%E9%A6%86+GJM&ei=UTF-8"; //页面4
$ad[5]="http://www.baidu.com/s?ie=gb2312&bs=GJM+%BE%D5%BB%A8%BD%CC+%BA%EC%C8%CB&sr=&z=&cl=3&f=8&wd=GJM+%BE%D5%BB%A8%BD%CC+%CD%F8%C2%E7%BA%EC%C8%CB&ct=0"; //页面5
$ad[6]="http://www.baidu.com/s?ie=gb2312&bs=%BA%EC%C8%CB+%B1%A6%C2%EDMM&sr=&z=&cl=3&f=8&wd=%BA%EC%C8%CB%B9%DD+%B1%A6%C2%EDMM&ct=0"; //页面6
$ad[7]="http://search.cn.yahoo.com/search?lp=GJM+%E8%B5%A4%E8%A3%B8%E8%9D%B4%E8%9D%B6&p=GJM+%E8%9D%B4%E8%9D%B6&ei=UTF-8"; //页面7
$ad[8]="http://cnweb.search.live.com/results.aspx?q=GJM+%E7%BA%A2%E4%BA%BA&go=%E6%90%9C%E7%B4%A2&form=QBRE"; //页面8
$ad[9]="http://cnweb.search.live.com/results.aspx?q=%E8%8F%8A%E8%8A%B1%E6%95%99+%E7%BA%A2%E4%BA%BA&form=QBRE"; //页面9
$ad[10]="http://cnweb.search.live.com/results.aspx?q=%E5%AE%9D%E9%A9%ACMM+GJM&form=QBRE"; //页面10
$ad[11]="http://www.soso.com/q?gid=&cin=&sc=web&bs=GJM&ch=w.uf&num=10&w=GJM+%BA%EC%C8%CB"; //页面11
$ad[12]="http://www.soso.com/q?gid=&cin=&sc=web&bs=%BE%D5%BB%A8+%B1%B1%BE%A9%BE%F8%C1%B5+rongshuxia&ch=w.uf&num=10&w=%BE%D5%BB%A8+%B1%B1%BE%A9%BE%F8%C1%B5+rongshuxia"; //页面12
$ad[13]="http://www.baidu.com/s?wd=%D2%B0%CA%DE%D7%E3%C7%F2+%C7%E5%CE%FA%B4%F3%CD%BC&cl=3"; //页面13
$ad[14]="http://search.114.vnet.cn/search_web.html?id=1&fm=index&bt=s&st=web&kw=GJM"; //页面14
$ad[15]="http://search.114.vnet.cn/search_web.html?id=1&fm=index&st=web&bt=s&kw=%B1%A6%C2%EDMM+GJM"; //页面14
$out=rand(1, 15);//随机取得这15个页面的一个,有几个就写几, 此例有15个页面,就写 15
header("location:$ad[$out]"); //在需要的地方调用本句,页面转向
?>ASP版本
复制内容到剪贴板
代码:
<%
randomize
Num=(int(rnd()*6)+1)
Select Case Num
case 1
response.redirect("http://www.ii2i.com/")
case 2
response.redirect("http://www.baidu.com/s?ie=gb2312&bs=%BA%EC%C8%CB+%B1%A6%C2%EDMM&sr=&z=&cl=3&f=8&wd=%BA%EC%C8%CB%B9%DD+%B1%A6%C2%EDMM&ct=0")
case 3
response.redirect("http://cnweb.search.live.com/results.aspx?q=%E8%8F%8A%E8%8A%B1%E6%95%99+%E7%BA%A2%E4%BA%BA&form=QBRE")
case 4
response.redirect("http://www.soso.com/q?gid=&cin=&sc=web&bs=GJM&ch=w.uf&num=10&w=GJM+%BA%EC%C8%CB")
case 5
response.redirect("http://www.soso.com/q?gid=&cin=&sc=web&bs=%BE%D5%BB%A8+%B1%B1%BE%A9%BE%F8%C1%B5+rongshuxia&ch=w.uf&num=10&w=%BE%D5%BB%A8+%B1%B1%BE%A9%BE%F8%C1%B5+rongshuxia")
case 6
response.redirect("http://search.114.vnet.cn/search_web.html?id=1&fm=index&bt=s&st=web&kw=GJM")
case else
response.redirect("http://search.cn.yahoo.com/search?lp=%E7%BD%91%E7%BB%9C%E7%BA%A2%E4%BA%BA%E9%A6%86&p=%E7%BD%91%E7%BB%9C%E7%BA%A2%E4%BA%BA%E9%A6%86+GJM&ei=UTF-8")
end select
@#response.write num
%>
]