产生随机密码的函数

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

原文转自：http://www.ltesting.net