产生随机密码的函数

核心提示：<%response.write makePassWord(16)function makePassword(byVal maxLen)Dim strNewPassDim whatsNext, upper, lower, intCounterRandomizeFor intCounter = 1 To maxLe

<%
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
'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
%>