Sequenza di n Numeri casuali senza ripetizione

[willybit]

Non esiste la stessa funzione in ASP ma si può farla

Function Shuffle(Arrei)
  dim i,temp,casuale,arr
  arr=Arrei
  Randomize
  for i=LBound(arr) to UBound(arr)
    temp = arr(i)
    casuale = Int((UBound(arr)+1)*Rnd)
    arr(i) = arr(casuale)
    arr(casuale) = temp
  next
  Shuffle=arr
End Function

ti faccio un esempio di utilizzo

n=10
ReDim arr(n-1)
for i=0 to n-1
	arr(i)=i+1
next

arr2=Shuffle(arr)

for i=LBound(arr) to UBound(arr)
	Response.Write arr(i) & " - " & arr2(i) & "
"
next