 |
|
| 2007/7/17 9:51:00 |
| ASP系统分配随机密码 |
| |
'系统分配随机密码
Public Function Createpass(Byval LengthNum)
Dim Ran,i
if Not IsNumeric(LengthNum) then LengthNum=16
Createpass=""
For i=1 To LengthNum
Randomize
Ran = CInt(Rnd * 2)
Randomize
Select Case Ran
Case 0
Ran = CInt(Rnd * 25) + 97
Createpass =Createpass& UCase(Chr(Ran))
Case 1
Ran = CInt(Rnd * 9)
Createpass = Createpass & Ran
Case 2
Ran = CInt(Rnd * 25) + 97
Createpass =Createpass& Chr(Ran)
End Select
Next
End Function
|
| |
| By 小鱼儿 阅读全文 | 回复(0) | 引用通告 | 编辑 |
|
|
|
|
|
|
|
| Links |
|
|
| Designed by Subdreamer |
|
|
