%@ Language=VBScript %> <% Response.addHeader "Expires","Wed, 26 Feb 1997 08:21:57 GMT" If Request("sessionid") = "" Then SessionID = RandomPW(20) Else SessionID = Request("sessionid") End If Function RandomPW(myLength) Const minLength = 16 Const maxLength = 20 Dim X, Y, strPW If myLength = 0 Then Randomize myLength = Int((maxLength * Rnd) + minLength) End If For X = 1 To myLength Y = Int((3 * Rnd) + 1) '(1) Numeric, (2) Uppercase, (3) Lowercase Select Case Y Case 1 'Numeric character Randomize strPW = strPW & CHR(Int((9 * Rnd) + 48)) Case 2 'Uppercase character Randomize strPW = strPW & CHR(Int((25 * Rnd) + 65)) Case 3 'Lowercase character Randomize strPW = strPW & CHR(Int((25 * Rnd) + 97)) End Select Next RandomPW = strPW End Function %>
|
| |||
|
|
|||
|