ASP generates random passwords two functions: a function <% function makePassword (byVal maxLen) Dim strNewPassDim whatsNext, upper, lower, intCounterRandomizeFor intCounter = 1 To maxLenwhatsNext = Int ((1 - 0 1) * Rnd 0) If whatsNext = 0 Then'characterupper = 90lower = 65Elseupper = 57lower = 48End IfstrNewPass = strNewPass & Chr (Int ((upper - lower 1) * Rnd lower)) NextmakePassword = strNewPassend function%> bit makePassword (str) 'str password number
