一个随机数类用VBｓｃｒｉｐｔ在ASP

一个老外写的一个类，这么小的应用程序，除非有特殊的需要，不需要模块化。
使用ASP生成一个随机数。
<
**************************************************************************
班级：crandom
'电话随机种子的随机数发生器。
''提供返回远程随机整数或数组的函数。
'范围随机整数。
'' '' Calling randomize to seed the random number generator at the time the
创建类似乎是一件合理的事情。
私有子class_initialize（）
'检查VBｓｃｒｉｐｔ文档中的细节有关
' '随机函数
随机化
端子
终止不需要为这个类做任何事情。
私有子class_terminate（）
端子
**********************************************************************
功能：rangedrandom
'参数：下界，最低值返回
'参数：上界，回到最高允许数
返回：一个下界和上界之间的随机整数，
' ' '包容性
**********************************************************************
公共函数RangedRandom（下界，上界）
rangedrandom = Cint（（上限-下限）*、+下界）
端功能
**********************************************************************
功能：rangedrandomarray
'参数：下界，最低值返回
'参数：上界，回到最高允许数
'参数：零基础数指定arraysize，数组的大小
参数：重复，true或false表示是否重复
'调整temparray持有数量的元素中传递
arraysize参数
ReDim tempArray（arraysize）
这是一个循环计数器，设置为0。
filledelements = 0
'循环直到filledelements等于arraysize + 1
直到filledelements = arraysize + 1
'叫RangedRandom函数的下界和upperboundparameters
是= rangedrandom（下界，上界）
' ' '处理的情况下，我们不想要重复的值
如果复制= FALSE然后
badvalue = false
我= 0，UBound（temparray）
检查数组中是否已经存在新的随机值。
'如果不设置badvalue标志真实与突破
如果是= temparray（我）然后
badvalue =真
退出
最后如果
下一个
如果badvalue = FALSE然后
TempArray（filledelements）=是
filledelements = filledelements + 1
最后如果
其他的
处理数组中重复值可以接受的情况。
TempArray（filledelements）=是
filledelements = filledelements + 1
最后如果
环
返回数组
rangedrandomarray = temparray
端功能
类的结束
%>
<
所有下面的代码都是示例代码，显示了
crandom类。
昏暗的objrandom
昏暗的翻转
昏暗的RandomArray
昏暗的rowstotest
朦胧的我，J
创建一个类的实例
集objrandom =新crandom
' ' '设置我们要测试的迭代次数
rowstotest = 10
切换来确定我们是否设置背景颜色的
翻转=真
'开始桌子
响应。写
J = 0 rowstotest
'我们会交替的背景色的表行的基础上
翻转变量的值
如果翻转然后
响应。写
其他的
响应。写
最后如果
'叫rangedrandomarray功能测试目的
（1, 10）objrandom.rangedrandomarray RandomArray =