Chức năng: Thay đổi ngẫu nhiên cách sắp xếp nội dung trong mảng
Ngôn ngữ: asp - Nhóm: array
CÚ PHÁP
Array = RandomArray(inputArray)
ASP Code
<%
Function RandomArray(ByVal aArray)
Dim iUpper, iLower, iLoop, iSwapPos, varTmp
iUpper = UBound(aArray)
iLower = LBound(aArray)
Randomize Timer
For iLoop = iLower to iUpper
iSwapPos = Int(Rnd * (iUpper + 1))
varTmp = aArray(iLoop)
aArray(iLoop) = aArray(iSwapPos)
aArray(iSwapPos) = varTmp
Next
RandomArray = aArray
End Function
%> 
