ASP中一个用VBScript写的随机数类

'''' create an instance of our class
set objRandom = new cRandom
'''' set the number of iterations that we want to test
rowsToTest = 10
'''' "toggle" to determine whether or not we set the bgcolor of the table row
flip = true
'''' Start the table
Response.Write "<table border=0 cellpadding=1 cellspacing=1>"
for j = 0 to rowsToTest
'''' We''''ll alternate the bgcolor of the table rows based on the
'''' value of the flip variable
if flip then
Response.Write "<tr bgcolor=LightGrey>"
else
Response.Write "<tr>"
end if
'''' Call the RangedRandomArray function for testing purposes
randomArray = objRandom.RangedRandomArray( 1, 10)