ASP随机数

aa88450088 2008-04-09 07:03:03
请大爱帮忙看一下,随机数不变.谢谢了


<%


Dim f_Randchar,f_Randchararr,f_RandLen,f_Randomizecode,f_iR
f_Randchar="0,1,2,3,4,5,6,7,8,9"
f_Randchararr=split(f_Randchar,",")
f_RandLen=6 '定义密码的长度或者是位数
for f_iR=1 to f_RandLen
f_Randomizecode=f_Randomizecode&f_Randchararr(Int((10*Rnd)))
next
GetRamCode = f_Randomizecode
randpwd = f_Randomizecode
response.Write GetRamCode

%>
...全文
1095 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Dogfish 2008-04-10
asp的随机数很假的。要种子不断变才行。
回复
文盲老顾 2008-04-09
randomize

初始化一下随机种子
回复
kimipolo 2008-04-09
其实(10*rnd)已经可以产生0到9这十个随机数了,不知道为什么好多程序喜欢用数组放十个数,然后来提取。不是多此一举吗
<%
f_RandLen=6
for f_iR=1 to f_RandLen
Randomize()
f_Randomizecode=f_Randomizecode&Int(10*Rnd)
next
GetRamCode = f_Randomizecode
response.Write GetRamCode
%>
回复
snlixing 2008-04-09
for f_iR=1 to f_RandLen
Randomize()
f_Randomizecode=f_Randomizecode&f_Randchararr(Int((10*Rnd)))
next
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-09 07:03
社区公告
暂无公告