宣传站主页

发布私服信息 发布家族信息 全部私服信息 网游新闻 商业广告 传奇3网游论坛

 传奇3私服宣传站网址:www.1u99.com  发布商业广告联系:281198888    [服务器]腾讯云主机:1核2G,一年99元,3年299元
 [下载]官方传奇3_1.45新版客户端. [销售云存储]七牛云下载:1G流量/0.24元  [ID联盟]加入传奇3账号ID联盟 id.1u99.com

ASP中随机函数Randomize的使用

文章来源:http://www.1u99.com 易游久久传奇3私服宣传网

加入时间:2020/3/11

Randomize

初始化随机数生成器。

Randomize [number]

number 参数可以是任何有效的数值表达式。

说明

Randomize 使用 number 参数初始化 Rnd 函数的随机数生成器,赋给它新的种子值。如果省略 number,则使用系统计时器返回的值作为新的种子值。

如果不使用 Randomize,则第一次调用 Rnd 函数(无参数)时,它将使用相同的数字作为种子值,随后使用最后生成的数值作为种子值。

注意 要重复随机数的序列,请在使用数值参数调用 Randomize 之前,立即用负值参数调用 Rnd。使用相同的 number 值的 Randomize 不能重复先前的随机数序列。

下面例子举例说明如何使用 Randomize 语句:

例如:

Dim MyValue, Response

Randomize '初始化随机数生成器。

Do Until Response = vbNo

MyValue = Int((6 * Rnd) + 1)' 产生 1 到 6 之间的随机数。

MsgBox MyValue

Response = MsgBox ("Roll again? ", vbYesNo)

Loop

Rnd 函数

返回一个随机数。

Rnd[(number)]

number 参数可以是任意有效的数值表达式。

说明

Rnd 函数返回一个小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式:

如果 number 为 Rnd 生成

小于零 每次都相同的值,使用 number 作为种子。

大于零 序列中的下一个随机数。

等于零 最近生成的数。

省略 序列中的下一个随机数。

因每一次连续调用 Rnd 函数时都用序列中的前一个数作为下一个数的种子,所以对于任何最初给定的种子都会生成相同的数列。

在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器,该生成器具有基于系统计时器的种子。

要产生指定范围的随机整数,请使用以下公式:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里, upperbound 是此范围的上界,而 lowerbound 是此范围内的下界。

注意 要重复随机数的序列,请在使用数值参数调用 Randomize 之前,立即用负值参数调用 Rnd。使用同样 number 值的 Randomize 不能重复先前的随机数序列。

以前看过这方面的内容,今天又一次见到了,所以就总结一下,以后还要用呢!

下面给出一个实例来说明Randomize的用途:

解决防止表单重复提交的方法

表单文件formtest.asp

<%

Randomize '初始代随机数种子

num1=rnd() '产生随机数num1

num1=int(26*num1)+65 '修改num1的范围以使其是A-Z范围的Ascii码,以防表单名出错

session("antry")="test"&chr(num1) '产生随机字符串

%>

<form name="test" action="testact.asp" method="post">

你的名字:<input type='text' name='' size=30>  '注意本行中使用了随机表单项名

<input type='submit' value='提交'>

</form>

表单处理程序testact.asp

<%

teststr=request.form(session("antry"))

if teststr="" then

response.write "没有填写姓名或重复提交"

'由于用户没有填写名字,或表单被重复提交(标志为session("antry")为空)引起

else

response.write teststr

session("antry")=""  '提交成功,清空session("antry"),以防重复提交!!

end if

%>

在这里,你只需随机化一个必填项目的表单项名即可,不必随机化所有的表单项目。

原文地址:http://hgangok.blog.163.com/blog/static/28352700201001844628427/



 技术文章:


 传奇3玩家新得:
因为有怀念才有了大片的玩家从3G奔向
每年七夕人们都赶来参与搭制香桥
QQ传奇3G私服这时的和田几乎已经全
江苏传奇3G还有一地的药水我欲哭无泪
海关总署:隐瞒发病情况入境将面临牢狱
台积电4月开始大规模量产5nm芯片
定了!新疆高三、初三、中职学校毕业年
东北传奇3法规公布各个部落群民
国际传奇3G箭竹海上厚薄不一的冰
中国传奇3G人们一看知道这女人已结婚
传奇3私服即顺服安拉旨意的人
江苏传奇3这个发现立即引起黄帝的兴趣
2020火爆中变传奇3切靠暴╊长期稳
遂赦而厚遇焉授寻谋归袁氏操乃杀之
十个传奇3的热爱者有9个是怀念那1.
发现一个非常好玩的私服,完美的设计源
以前的传奇3玩战士一出莲月就会被NN
官服倒闭,私服澎湃,没落,还有谁在坚




 

Copyright © 2002 - 2020 www.1u99.com 传奇3私服宣传站浙ICP备05015138号-1