随机密码的函数

<%

response.write makePassword(16)



function makePassword(byVal maxLen)



Dim strNewPass

Dim whatsNext, upper, lower, intCounter

Randomize



For intCounter = 1 To maxLen

　　whatsNext = Int((1 - 0 + 1) * Rnd + 0)

If whatsNext = 0 Then



伊图教程网[www.etoow.com]

http://www.etoow.com/html/2007-08/1186185558.html

'character



　　　　upper = 90

　　　　lower = 65

Else

　　　　upper = 57

　　　　lower = 48

End If

　　　　strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))

Next

　　　　makePassword = strNewPass



end function

%>