独特的随机数

ASP新手入门
在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>

相关内容推荐

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

编写第一个ASP程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

ASP-条件语句

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。 为了支

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

返回
顶部