asp 循环生成随机数 变量重复问题

来源:百度知道 编辑:UC知道 时间:2024/05/14 08:22:22
设置了一个需要生成数量的循环,然后检测数据库中是否有重复卡号
递交变量cardnum后,可以顺利生成并写入数据库,但当第二次生成时,比如第一次生成了1个,第二次生成2个,第二次的第一个就是第一次生成的那个号码,困惑中
i=1
do while i<=cardnum
n=mid((rnd*10000000000),1,8)
n="WX"&n
m=mid((rnd*100000000),1,6)
card_check.Open "select * from [card] where cardnum = '&n&'",conn,1,3
if card_check.eof or card_check.bof then
card_check.AddNew
card_check("cardnum") = n
card_check("password") = m
card_check("cardtype") = cardtype
card_check.Update
card_check.Close
m=""
n=""
else
%>
卡号重复,丢弃
<%
card_check.Close
end if
m=""
n=""
i=i+1
loop

需要调用 Randomize
下面是一个小例子
<%
sm=20 'request.Form("sm")

dim cardid(100)
dim cdpassword(100)

for i=0 to sm-1
Randomize
cardid(i)=Right((int(36582918256*rnd*2)),10)
cdpassword(i)=int((126457898*rnd*2))
next
for i=0 to sm-1
response.Write cardid(i)&"<br>"
next

%>