生成随机密码

  ASP版的

< %
function  makePassword(maxLen) ' 方法一
Dim  strNewPass
Dim  whatsNext, upper, lower, intCounter
Randomize
For  intCounter  =   1   To  maxLen
whatsNext  =   Int (( 3 )  *   Rnd   +   0 )
If  whatsNext  =   0   Then ' 生成大写字母
' 'character
upper  =   90
lower  =   65
Elseif   whatsNext  =   1    then ' 生在数字
upper  =   57
lower  =   48
else ' 生成小写字母
upper = 122
lower = 97
End   If
strNewPass  =  strNewPass  &   Chr ( Int ((upper  -  lower  +   1 )  *   Rnd   +  lower))
Next
makePassword  =  strNewPass
end function




Function  RoundStr( str,Num)  ' 方法二
s  =   ""  
for  i  =   1   to  Num 

Randomize  

strLen  =   Len (str) 
t  =   Round (( RND   *  (strLen - 1 )) + 1 ) 
s  =  s  &   mid (str,t, 1 ) 
Next  
RoundStr  =  s 

End Function  

' response.write makePassword(10)&"<br>"


tmp  =   " 0123456789abcdefghijklmnopqrstopwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ "  
' response.write  RoundStr(tmp,10)&"<BR>"

% >

JavaScript版的

< script >
function  makePassword(maxLen)
{
var  strNewPass = "" ;
var  whatsNext, upper, lower, intCounter;
     for (intCounter = 1 ;intCounter <= maxLen;intCounter ++ )
    {
     whatsNext = Math.floor( 3 * Math.random());
      switch  (whatsNext)
     {
         case   0 : // 生成大写字母
        upper = 90 ;
        lower = 65 ;
         break ;

         case   1 : // 生成数字
        upper  =   57 ;
        lower  =   48 ;
         break ;

         case   2 : // 生成小写字母
        upper  =   122 ;
        lower  =   97 ;
         break ;
     }
    strNewPass = strNewPass + (String.fromCharCode(Math.floor((upper  -  lower  +   1 )  * Math.random() + lower)));
     }
return  strNewPass

}
document.write(makePassword( 13 ))
</ script >

< INPUT  TYPE ="text"  NAME ="Password" >
< INPUT  TYPE ="button"  value ="随机生成密码"  onClick ="document.getElementById('Password').value=(makePassword(13))" >