当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP生成不重复随机数字的另类思路

ASP
提高SQL的执行效率的ASP的五种做法
asp的offset的一个go to page
asp中command的在单条记录时,有些字段显示为空的问题
asp,php一句话木马整理方便查找木马
asp 合并记录集并删除的sql语句
asp下循环一行多少个
asp循环行数输出函数
asp access重新开始编号
ASP生成数字相加求和的BMP图片验证码
静态页面利用JS读取cookies记住用户信息
比较详细的Asp伪静态化方法及Asp静态化探讨
asp Response.flush 实时显示进度
Asp高级故障解决以及相关代码
asp智能脏话过滤系统v1.0
ASP文件中的安全问题
Access数据库中“所有记录中均未找到搜索关键字”的解决方法
asp两组字符串数据比较合并相同数据
asp MYSQL出现问号乱码的解决方法
asp文章中随机插入网站版权文字的实现代码
ASP利用XMLHTTP实现表单提交以及cookies的发送的代码

No. « 77 78 79 80 »

技术文章搜索

关键字

ASP生成不重复随机数字的另类思路

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-13   浏览: 152 ::
收藏到网摘: n/a

前两天看到有人要编个考试系统，当时只是简单回了下用随机函数RND

　　实际一般需要从数据库中随机提取N道题目。

　　以下代码都基于VBS;

　　通常的编写类似这样的

'产生不重复随机数
function rndarray(istart,iend,sum)
dim arrayid(),i,j,blnre,temp,iloop,eloop
redim arrayid(sum-1)
i=0
iloop=0
eloop=0
blnre=false
randomize
do while i<sum
temp=int(rnd*(iend-istart+1)+istart)
if i=0 then
arrayid(0)=temp
i=i+1
iloop=iloop+1
else

for j=0 to i-1
if arrayid(j)=temp then
blnre=true
iloop=iloop+1
exit for'这一句很重要，防止多余的循环
else
iloop=iloop+1
end if
next

if blnre=false then
arrayid(i)=temp
i=i+1
else
blnre=false
end if

end if
eloop=eloop+iloop
iloop=0
loop
rndarray=join(arrayid)&"循环次数:"&eloop
end function

response.write rndarray(1,10,5)&"<br>"'调用过程


　　PS。其中的iloop、eloop是为了计算循环次数而已。

　　以上，大多数人的都是用这种方法编写的，生成一个随机数，然后再和以前生成的做比较，判断是否可用；

　　但这不是一种AI的，或者说有效率的方法，为什么不用两个数组呢？

　　数组1，存放需要的字符串，或数字等，数组2存放生成的随机数；当每次随机生成中间变量temp的一个下标x，赋给数组2，然后从数组1中，去掉下标为x的数字，赋给中间变量temp；这样每生成一个随机数，就从数组1中拿掉这个数，下次再生成一个数就不会重复了，这种产生随机数的方法原理实际是从数组1中提取。

　　方法二

function rndstr(istart,iend,isum)
dim i,j,vntarray()
redim vntarray(iend-istart)
j=istart
for i=0 to iend-istart
vntarray(i)=j
j=j+1
next

dim vntarray2(),temp,x,y
redim vntarray2(isum-1)
y=iend-istart+1
x=0
temp=vntarray
do while x<isum
dim a
randomize
vntarray2(x)=temp(int(rnd*y))
a=" "&vntarray2(x)&" "
temp=split(trim(replace(chr(32)&join(temp)&chr(32),a," ")))
x=x+1
y=y-1
loop
rndstr=join(vntarray2)
end function

response.write rndstr(1,5,2)


　　这样，是不是更简单呢

　　展开一下，假如要生成随机字符串，包含字母数字时，仅需为数组1赋值时，用函数chr(num);

　　假设，需要做一个手机中奖的页面程序。

　　首先把值赋给数组1，可以130....～139....循环赋值，当然实际使用时从数据库中把已有的赋值，然后再随机提取赋给数组2；

　　最后，再修饰一下

temp＝replace(join(array2),chr(32),"")
phone＝left(temp,6)&"***"&right(temp,2)

　　得到类似137648***58的结果,呵呵

　　写那么多，累死了~~