建站代码网

热门标签

独特的随机数

在asp文档里面有很多你能随机抽取的内容,然而如果你重复使用一个元素的话,你就会冒险来生成在一个页面的相同的随机值/内容。为了避免你能确认你的随机条目(在这个情况数下)是独一无二的。下面的例子会生成在1到5之间的5种随机数。如果之前就选择了一个新的数字,那么在选择了每个随机数之后,它会被作为来比较之前的选择。这对于随机化页面的内容顺序是很重要的。

<html> <title>www.ttasp.net(Unique Random Numbers)</title> <body bgcolor="#FFFFFF"> <% '决定有多少独特的生成的随机数 tot_unique=5 '决定任何的独特随机数的最高值 top_number=5 dim random_number, counter, check, unique_numbers ' When passing a variable for an array use redim 当传递了一个变量 redim random_number(tot_unique) '开始随机函数 randomize '开始独特数的从1到最大值的下个循环 For counter = 1 to tot_unique '选择从一到最大值的一个数字 random_number(counter) = Int(Rnd * top_number)+1 ' 比较存储在数组中的值 “新的随机值被分配”的下个循环 for check=1 to counter-1 if random_number(check)= random_number(counter) then '如果和以前的值和当前主体值相同 counter=counter-1 end if next ' Repeat loop to check values next ' Repeat loop to assign values to the array %> <p> <ol><% 'write out the unique numbers in a list for display For counter = 1 to tot_unique response.write "<li>" & random_number(counter) & "</li>" next %> </ol> </body> </html>

X