页面

2009年4月8日

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

没有评论: