首先选择的标签是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
%>