ASP中Randomize随机函数的使用
为什么80%的码农都做不了架构师?>>>
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\"),以防重复提交!![Page]
end if
%>
转载于:https://my.oschina.net/cnblog/blog/14690
ASP中Randomize随机函数的使用相关推荐
- 在ASP中实现RsA加密与解密
本文章有两文件组成 test.asp 测试演示文件 clsrsa.asp 实现rsa加密与解密的vbs类文件 下面是代码: 1. test.asp <% rem 文章标题:在asp中通过vbs类 ...
- 简单介绍ASP中Cache技术的应用
ASP从发布至今已经7年了,使用ASP技术已经相当成熟,自从微软推出了ASP.NET之后就逐渐停止了对ASP版本的更新.但是由于有很多人仍然习惯使用ASP来开发网站,所以,再次我将以一个简单的例子来说 ...
- ASP中时间格式转换
ASP中now()函数可以获取系统当前时间,这个时间的格式形如"2008-5-19 10:55:26".可是,有时我们更习惯使用"2008年5月19日10时55分26秒& ...
- ASP中SQL语句参考及记录集对象
DB2 提供了关连式资料库的查询语言 SQL (Structured Query Language),是一种非常口语化.既易学又易懂的语法.此一语言几乎是每个资料库系统都必须提供的,用以表示关连式的操 ...
- ASP中怎么实现SQL数据库备份、恢复!
选择自 hanghwp 的 Blog 1.ASP中怎么实现SQL数据库备份.恢复! 答:asp在线备份sql server数据库: 1.备份 <% SQL="backup databa ...
- ASP中利用OWC控件实现图表功能详解[zz]
ASP中利用OWC控件实现图表功能详解 在ASP中利用OWC(Office Web Components)控件可轻松实现各种图表功能,如饼图,簇状柱型图,折线图等. 在下面的代码中我详细的给出了饼图, ...
- php 对接 asp,PHP模拟asp中response类实现方法
本文实例讲述了PHP模拟asp中response类的方法.分享给大家供大家参考.具体如下: 习惯了asp或是asp.net开发的人, 他们会经常用到response类,这个类用于处理客户端的响应,可以 ...
- Asp中解决AJAX乱码问题
为什么80%的码农都做不了架构师?>>> 这篇文章主要介绍了Asp中使用JQuery的AJAX提交中文乱码解决方法,使用Asp中的unescape() 和escape() 函数 ...
- Asp中一些FSO方面的函数
最近在攻asp.net,没空写东西,吧asp中一些fso方面的函数整理了一些,申请落伍. '//==================================文件操作============== ...
最新文章
- python操作mysql(二)
- linux系统密码自动丢失,通过单用户模式找回linux系统丢失的密码
- 工作325:uni-格式化日期
- css 向左白色箭头,带CSS的工具提示左侧的箭头
- jenkins部署java项目之小白的笔记
- Composer - PHP 世界里用于管理项目依赖的工具
- html window设置,JavaScript Window
- sql出现无法启动(model数据库)
- 使用指针时的“陷阱”
- [导入]Asp.net页面的生命周期之通俗理解
- 【LeetCode】【refine 1】题号:1. 两数之和
- html好看css标题样式,比较好看的css 自定义样式(标题 h1 h2 h3)
- VS2019使用Mini-Filter
- 一、FreeRTOS简介
- 听课感悟——信息与信息特征
- 深度可分离卷积(DepthwiseSeparableConvolution):Depthwise卷积与Pointwise卷积
- OpenCL ICD Loader运行测试暨解决报错:ERROR: App log and stub log differ.
- 20220215-CTF-MISC-BUUCTF-小明的保险箱-binwalk分析-dd命令分离出RAR文件-ARCHPR暴力破解密码
- 细说MATLAB中的MAX函数 (翻译Help文档而来)
- 单商户商城系统功能拆解26—营销中心—限时秒杀