Класс, написанный иностранцем, такое небольшое приложение не требуется, чтобы быть модульным, если нет особых потребностей.
Используйте ASP, чтобы генерировать случайное число.
<%
'' *******************************************************
'' Class: Crandom
'' CallsRandomizetoseedTherdomnumbergenerator.
'' Предоставляет функции для returnrangedrandomintegersorarraysoff
'rangedrandomintegers.
'' CallingRandomizetoseedTherandomnumbergenatoratorThetimethe
«Секретный кажется Areasonablethertodo.
privatesubclass_initialize ()
'CheckTheVbScriptDocumentationForThepecificificting
'' totherandomizefunction
Рандомизировать
заканчивая
'' Прекращено, что неэдтодо что -нибудь
privatesubclass_mterminate ()
заканчивая
'' *********************************************************************
'' Function: Dangedrandom
«Параметр: нижний, TheLowESTALLYALLENBERTUMBROTRORNERN
«Параметр: верхний
'' Returns: ArandomintegerbetweeWeedLowerBound и Upperbound,
'' включительно
'' *********************************************************************
publicfunctionrangedrandom (нижний, верхний)
DENGEDRANDOM = CINT (((верхний складывание)*RND+Нижний)
конечная функция
'' *********************************************************************
'' Функция: rangedrandomarray
«Параметр: нижний, TheLowESTALLYALLENBERTUMBROTRORNERN
«Параметр: верхний
'' Параметр: массивы, число на основе нулевого уровня Указывает TheSize thearray
«Параметр: дубликаты, trueorfalsetointicate, будь то
'' ResizetheteMparrayToHoldThenUmberOferomeElementsPassedInthe
'' Arraysizeparater
rediMteMparray (массивы)
'' Thisisasaloopcounter, setitto0
заполнители = 0