<%
'系统分配随机密码
function createpass()
dim ran, i, lengthnum
lengthnum = 6
createpass = ""
for i = 1 to lengthnum
randomize
ran = cint(rnd * 2)
randomize
if ran = 0 then
ran = cint(rnd * 25) + 97
createpass = createpass & ucase(chr(ran))
elseif ran = 1 then
ran = cint(rnd * 9)
createpass = createpass & ran
elseif ran = 2 then
ran = cint(rnd * 25) + 97
createpass = createpass & chr(ran)
end if
next
end function
response.write createpass()
%>
如对本文有疑问,
点击进行留言回复!!
网友评论