下面是我写的一个循环生成随机密码的代码,密码的格式是由一个五位随机数+用户ID
现在问题是每次生成的密码,随机数都是一样的!
哪位大是帮忙看看,怎么解决啊!
代码:
<%
if action="add" then
set rsl=conn.execute("select * from m_xmvip where bj_bh="&xm_bh&" order by bj_id desc")
do while not rsl.eof
''生成随机数
dim rndnum
Randomize
Do While Len(rndnum)<5
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
vippass=rndnum&rsl("bj_userid")
sqlStr="update m_xmvip set bj_pass="&vippass&" where bj_id="&rsl("bj_id")
conn.execute(sqlStr)
rsl.movenext
loop
response.redirect "xm_vippass.asp?xm_name="&xm_name&"&xm_bh="&xm_bh&"&page="&page&""
end if
%>
解：
QQ：2693987339(点击联系)购买教程光盘
:
