帮我ASP 写个函数

来源：百度知道 编辑：UC知道 时间：2024/06/04 04:10:35
a1=""
.........
a30="" 这么多的变量
randomize '随机
shu=cint(rnd*30)

我现在已经有shu随机了30个数字,怎样获得上面的变量值呢，据说函数可以。
我是想随机显示a1——a30的一个变量

<%
dim a(30)
for i=1 to 30
a(i)="a"&i
next
function random()
dim d
do while d=0
randomize
d=(rnd*10000) mod 30
loop
random=a
end function
response.write random
%>

使用数组吧

dim a(31)
a(1)=....

dim ary(31)
dim n
n=1
while n<=31
randomize
a(n)=cint(rnd*30)
n=n+1
wend