外国人によって書かれたクラス、このような小さなアプリケーションは、特別なニーズがない限り、モジュール式である必要はありません。
ASPを使用して乱数を生成します。
<％
''**************************************************************************
''クラス：Crandom
'' callrandomizetoseedtherdomnumbergenerator。
'' return -rangedrandomintegersorraysofの関数を提供します
'' rangedrandomintegers。
'' callenrandomizetoseedtherandomnumbergeneratoratthetimethe
''分類されたものは、Areasonablethindtodoのようです。
privatesubclass_initialize（）
'' CheckThevbscriptdocumentation forthespificSrelating
'' totherandomizeFunction
ランダム化
Endingub
''終了しました
privatesubclass_terminate（）
Endingub
'' ***********************************************************************************************
''関数：Rangedrandom
''パラメーター：下張り、TheLoweStallowablenumbertoreturn
''パラメーター：上限、Highestallowablenumbertoreturn
''リターン：arandomintegerbetweenlowerbound and upperbound、
''包括的
'' ***********************************************************************************************
publicFunctionRangeDrandom（下張り、上限）
rangedrandom = cint（（上限低下）*rnd+lowerbound）
エンド機能
'' ***********************************************************************************************
''関数：RangeDrandomArray
''パラメーター：下張り、TheLoweStallowablenumbertoreturn
''パラメーター：上限、Highestallowablenumbertoreturn
''パラメーター：アレイズ、ゼロバースの数字を指定するゼロバースの数字
''パラメーター：重複、TrueOrfalsetoは、重複するかどうかを示唆しています
'' sizeteteTeTeTeTeTeTeTemparrayTholdTheNumberOfEROMEELEMENTSPASSEDINTHE
'' Arraysizeparameter
redimtemparray（arraysize）
'' thisisasaloopcounter、setitto0
fellelements = 0