Uma aula escrita por um estrangeiro, uma aplicação tão pequena não é necessária para ser modular, a menos que haja necessidades especiais.
Use ASP para gerar um número aleatório.
<%
'' *********************************************
'' Classe: Crandom
'' CallsRandomizeTeed thedomNumberGenerator.
'' Fornece funções para o retornoRangedrandomintegersorrayrayof
'' Rangedrandomintegers.
'' CallingRandomizeTeed theRandomNumberGeneratorAtThetimethe
'' Classificado parece ser levadolablingtodo.
privatesubclass_initialize ()
'' CheckthevbscriptDocumentationForthSpecificSReReRalating
'' Totherandomizefunção
Randomizar
endsub
'' Terminou não é necessário nada
privatesubclass_terminate ()
endsub
'' *********************************************
'' Função: Rangedrandom
'' Parâmetro: LowerBound, theLowestallowableNumberTeReturn
'' Parâmetro: Upperbound, o HighLowLableNumberCeReturn
'' Retornos: ArandomintegerBetweenLowerBound e Upperbound,
'' inclusive
'' *********************************************
PublicFunctionRangedrandom (Baixa, parte superior)
Rangedrandom = Cint ((Upperbound-LowerBound)*Rnd+LowerBound)
Função final
'' *********************************************
'' Função: Rangedrandomarray
'' Parâmetro: LowerBound, theLowestallowableNumberTeReturn
'' Parâmetro: Upperbound, o HighLowLableNumberCeReturn
'' Parâmetro: ArraySize, número de ZeroRob, especificando o thesize de Thearray
'' Parâmetro: duplica, trueorFalSeToindicate for Duplicate
'' resizETETemparray aholdThEnMumberOmeElementsPasspedInthe
'' Arraysizeparameter
RedimTemparray (Arraysize)
'' ThisisasaloopCounter, setitto0
FilledElements = 0