Una clase escrita por un extranjero, una aplicación tan pequeña no es necesaria para ser modular a menos que haya necesidades especiales.
Use ASP para generar un número aleatorio.
<%
'' ****************************************************************************************
'' Clase: Crandom
'' CallsrandomizetoseedTherdomNumberGenerator.
'' Proporciona funciones para returnRangedrandomInTegersorArrayOf
'' RangedrandomIntegers.
'' CallingrandomizetoseedTherandomNumberGeneratorTthetimethe
'' Clasificado parece ser Araasonable ThingTodo.
privatesubclass_initialize ()
'' CheckThevBScriptDocumentationForthespecificSrelation
'' ToterandomizeFunction
Aleatorizar
Endsub
'' Terminado no se ha hecho nada.
privatesubclass_merminate ()
Endsub
'' ************************************************************************************************
'' Función: Rangedrandom
'' Parámetro: Lowerbound, thelowestallowableNumbertoreturn
'' Parámetro: Upperbound, el highestallowableAnperToreturn
'' Devoluciones: arandomIntegerbetweenLowerBound y Upperbound,
''inclusivo
'' ************************************************************************************************
PublicFunctionRangedRandom (inferior, flojo superior)
Rangedrandom = cint ((flojo superior-found)*rnd+inferior)
Función final
'' ************************************************************************************************
'' Función: RangedrandomArray
'' Parámetro: Lowerbound, thelowestallowableNumbertoreturn
'' Parámetro: Upperbound, el highestallowableAnperToreturn
'' Parámetro: matrices, número de ZeroBased que especifica thesize of Thearray
'' Parámetro: duplicados, trueRfalsetoindicate si duplicate
'' ResizethetemparrayToholdThenumingaroFeromeElementsPassedThe
'' ArraySizeparameter
redimtemparray (matrices)
'' Thisisasaloopcounter, setitto0
Llenoselementos = 0