Das hier :-) vielleicht?
<%
response.write makePassword(15)
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
%>
Gruss
Roman Pittroff
Consulting
Bangkok, Thailand
>-----Original Message-----
>From: Jutta Kavalier [mailto:[EMAIL PROTECTED]]
>Sent: Monday, January 14, 2002 10:47 PM
>To: ASP Diskussionsliste fuer Anfaenger
>Subject: [aspdebeginners] Zufalls-Zahlen-Buchstaben-Kombi
>
>
>Hallo zusammen,
>
>wie gestaltet man am Besten einen Zufallsgenerator, der eine
>Buchstaben-Zahlenkombination herausbringen soll? Mangels
>besseren Wissens mache ich das bisher so:
>
>"sch�tteln" einer Zahlenreihe:
> Randomize
> Zufall = Int(Rnd*(9000000 - 1))
>Umwandeln des Ergebnisses in Hex
> Hex(Zufall)
>
>Da gibt es doch sicher was Schlaueres, oder?
>
>Gruss
>Jutta
>
>
>
>| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
>| [aspdebeginners] als [EMAIL PROTECTED] subscribed
>| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie
>| knnen sich unter folgender URL an- und abmelden:
>| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
