Eine Klasse, die von einem Ausländer geschrieben wurde, ist eine so kleine Anwendung nicht erforderlich, um modular zu sein, es sei denn, es gibt besondere Bedürfnisse.
Verwenden Sie ASP, um eine Zufallszahl zu generieren.
<%
''*************************************
'' Klasse: Crandom
'' CallSrandomizetoseedtherDomNumberGenerator.
'' Bietet Funktionen für returnRangedrandOMINTERSORArAraysof
'' RangedrandOMINTEGERS.
'' CallingRandomizetoseedtherandomNumbergenerathetimethe
'' Klassifiziert scheint wie Areasonablethingtodo zu sein.
privateSubclass_initialize ()
'' CheckthevbscriptDocumentationForthePecificSrelating
'' therandomizefunction
Randomisieren
Ende
'' Beendet macht nichts weiter
privateSubclass_terminate ()
Ende
''*****************************
'' Funktion: Rangedrandom
'' Parameter: Untergebound, thelowestallowablenumbertoreturn
'' Parameter: Ober-
'' Returns: ArandomintEgerbetweenlowerbound und Oberfläche,
'' inklusive
''*****************************
publicFunctionRangedrandom (unterer, oberer Geböcken)
Rangedrandom = Cint ((oberer Unterboot)*rnd+untergebunden)
Endfunktion
''*****************************
'' Funktion: Rangedrandomarray
'' Parameter: Untergebound, thelowestallowablenumbertoreturn
'' Parameter: Ober-
'' Parameter: Arraysize, aufgeobierte Nummer
'' Parameter: Duplikate, trueorfalsetoindicate, ob wirkend
'' resizethetempArraytoholdthenumberoperomeElementspassedInthe
'' Arraysizeparameter
redimtemparrray (Arraysize)
'' Thisasasaloopcounter, setEtitto0
FILDELEMENTS = 0