asp随机显示列表的函数
asp随机显示列表的函数
dim tarray(5)
tarray(0)="a"
tarray(1)="b"
tarray(2)="c"
tarray(3)="d"
tarray(4)="e"
listrnd(tarray)
function listrnd(arr)
dim tempelement,listleng,outhtml
listleng=UBound(arr)-1
randomize
for ii=0 to listleng
b=int(rnd()*listleng)
tempelement=arr(b)
arr(b)=arr(ii)
arr(ii)=tempelement
Next
outhtml="
erase arr
set listleng=nothing
set tempelement=nothing
set outhtml=nothing
end function
dim tarray(5)
tarray(0)="a"
tarray(1)="b"
tarray(2)="c"
tarray(3)="d"
tarray(4)="e"
listrnd(tarray)
function listrnd(arr)
dim tempelement,listleng,outhtml
listleng=UBound(arr)-1
randomize
for ii=0 to listleng
b=int(rnd()*listleng)
tempelement=arr(b)
arr(b)=arr(ii)
arr(ii)=tempelement
Next
outhtml="
- "
- "&arr(i)&" "
For i=0 To listleng
outhtml=outhtml&"
next
response.write(outhtml&"
erase arr
set listleng=nothing
set tempelement=nothing
set outhtml=nothing
end function
评论