php随机跳转,如何实现多域名随机跳转？

首先选择的标签是asp，就用asp写一个把

通过字符串定义

'定义URL数据

urlData = split("http://www.baidu.com/|http://www.alibaba.com/|http://www.qq.com/|http://www.taobao.com/", "|")

'下面都是一样的代码

dim countData()

redim countData(0)

function getRandomLink(byref selectIndex)

if ubound(urlData) <> ubound(countData) then

redim countData(ubound(urlData))

end if

randomize

'(ubound(urlData) + 1)得到总元素数

'保证各个链接几率相同

' 0-1

' 1-2

' 2-3

' 3-4

selectIndex = rnd() * (ubound(urlData) + 1)

'修复进制

' -0.5-0.5 = 0

' 0.5-1.5 = 1

' 1.5-2.5 = 2

' 2.5-3.5 = 3

selectIndex = cLng(selectIndex - 0.5)

countData(selectIndex) = countData(selectIndex) + 1

getRandomLink = urlData(selectIndex)

end function

'测试1000次

do while i < 1000

%>Links_ 

i = i + 1

loop

%>

---

for i = 0 to ubound(countData)

%>Links_： 

next

%>

通过固定数组的方式定义：

'定义URL数据

dim urlData(4)

urlData(0) = "http://www.baidu.com/"

urlData(1) = "http://www.alibaba.com/"

urlData(2) = "http://www.qq.com/"

urlData(3) = "http://www.taobao.com/"

'下面都是一样的代码

dim countData()

redim countData(0)

function getRandomLink(byref selectIndex)

if ubound(urlData) <> ubound(countData) then

redim countData(ubound(urlData))

end if

randomize

'(ubound(urlData) + 1)得到总元素数

'保证各个链接几率相同

' 0-1

' 1-2

' 2-3

' 3-4

selectIndex = rnd() * (ubound(urlData) + 1)

'修复进制

' -0.5-0.5 = 0

' 0.5-1.5 = 1

' 1.5-2.5 = 2

' 2.5-3.5 = 3

selectIndex = cLng(selectIndex - 0.5)

countData(selectIndex) = countData(selectIndex) + 1

getRandomLink = urlData(selectIndex)

end function

'测试1000次

do while i < 1000

%>Links_ 

i = i + 1

loop

%>

---

for i = 0 to ubound(countData)

%>Links_： 

next

%>