随机选择网址怎么实现？

作者: zhangyan8864   发布时间: 2011-12-01

作者: chinmo   发布时间: 2011-12-01

作者: zhangyan8864   发布时间: 2011-12-01

<%
Dim a
a = Array("http://www.a.com/a","http://www.a.com/b","http://www.a.com/c")
n = randNum(0, UBound(a))
response.redirect a(n)

Function randNum(lowerbound, upperbound)
    Randomize Time()
    randNum =  Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Function
%>

作者: hookee   发布时间: 2011-12-01