个人中心
gpt4 book ai didi

ASP生成随机数 ASP生成不重复随机数

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章ASP生成随机数 ASP生成不重复随机数由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

ASP生成随机数:

  。

复制代码代码如下:

Randomize '纯随机,不重复 
Response.write Int((999999999 * Rnd) + 111111111) '生成111111111到999999999之间随机数

  。

ASP不重复随机数： 方法一： 已测 使用的时候需要注意里面的分割字符串的字符.

复制代码代码如下:

<% 
'生成的是一个不重复的数组 
Function GetRnd(lowerNum,upperNum) 
Dim unit,RndNum,Fun_X 
unit = upperNum - lowerNum 
Redim MyArray(unit) 
For Fun_I=0 To unit 
myArray(Fun_I)= lowerNum + Fun_I 
Next 
For Fun_I=0 To round(unit) 
RndNum = getRndNumber(Fun_I,unit) 
Fun_X = myArray(RndNum) 
myArray(RndNum)=myArray(Fun_I) 
myArray(Fun_I)=Fun_X 
Next 
GetRnd = Join(myArray) 
End Function 
Function getRndNumber(lowerbound,upperbound) 
Randomize 
getRndNumber=Int((upperbound-lowerbound+1)*Rnd+lowerbound) 
End Function 
Response.Write GetRnd(1,1000) 
%> 


方法二：

  。

  。

复制代码代码如下:

<% 
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 
loop 
rndarray=join(arrayid) 
end function 
response.write rndarray(1,5,1) '开始数字,结尾数字,生成多少个 
%>

最后此篇关于ASP生成随机数 ASP生成不重复随机数的文章就讲到这里了,如果你想了解更多关于ASP生成随机数 ASP生成不重复随机数的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

26 4 0
文章推荐： Linux服务器上安装使用TCPCopy来获取用户访问流量
文章推荐： 在Linux系统的服务器上使用Memtester进行内存压力测试
文章推荐： ASP中UBOUND与LUBOUND的使用方法
文章推荐： asp中for循环的使用方法
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com