ASP随机数

[aa88450088]

请大爱帮忙看一下,随机数不变.谢谢了


<%


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

%>

[snlixing]

for f_iR=1 to f_RandLen
Randomize()
f_Randomizecode=f_Randomizecode&f_Randchararr(Int((10*Rnd)))
next

[kimipolo]

其实(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
%>

[文盲老顾]

randomize

初始化一下随机种子

[Dogfish]

asp的随机数很假的。要种子不断变才行。