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="
    "
    For i=0 To listleng
    outhtml=outhtml&"
  • "&arr(i)&"
  • "
    next
    response.write(outhtml&"
")
erase arr
set listleng=nothing
set tempelement=nothing
set outhtml=nothing
end function

评论

此博客中的热门博文

时间管理:每天挤出一小时

你的妈妈已经等了二十几年

教您如何认识植柔皮,头层皮革,修面皮革,油蜡皮、水染皮、摔纹皮、纳帕皮、打蜡皮、压花皮、修面皮、漆光皮、磨砂皮、贴膜皮