randompassword.asp

来自「直接解压即可 都是asp源码 超经典的啊」· ASP 代码 · 共 25 行

<% 
dim i,intNum,intUpper,intLower,intRand,strPartPass,genPassword 
genPassowrd = "abc" 
Randomize 
For i = 1 to 8 
intNum = Int(10 * Rnd + 48) 
intUpper = Int(26 * Rnd + 65) 
intLower = Int(26 * Rnd + 97) 
intRand = Int(3 * Rnd + 1) 
response.write intRand&"-"&isnumeric(intRand)&"<br>" 
select case intRand 
case 1 
'response.write intNum&"-"&isnumeric(intNum)&"<br>" 
strPartPass = Chr(intNum) 
case 2 
strPartPass = Chr(intUpper) 
case 3 
strPartPass = Chr(intLower) 
End select 
genPassword = genPassword & strPartPass 
Next 
randompassword = genPassword 
%>