ASP中一個用VBScript寫的隨機數類

　　外國人寫的一個class這麼一點小小的應用除非有特殊需求還沒有必要模塊化

　　用asp產生一個隨機數

　　<%
**************************************************************************
CLASS: cRandom
Calls randomize to seed the random number generator
Provides functions for returning ranged random integers or arrays of
ranged random integers
Calling randomize to seed the random number generator at the time the
class is created seemed like a reasonable thing to do
private sub Class_Initialize()
Check the VBScript documentation for the specifics relating
to the Randomize function
Randomize
end sub

　　 Terminate doesnt need to do anything for this class
private sub Class_Terminate()
end sub

　　**********************************************************************
FUNCTION: RangedRandom
PARAMETER: lowerBound the lowest allowable number to return
PARAMETER: upperBound the highest allowable number to return
RETURNS: A random integer between lowerBound and UpperBound
inclusive
**********************************************************************
public function RangedRandom( lowerBound upperBound )
RangedRandom = CInt((upperBound lowerBound) * Rnd + lowerBound)
end function

　　**********************************************************************
FUNCTION: RangedRandomArray
PARAMETER: lowerBound the lowest allowable number to return
PARAMETER: upperBound the highest allowable number to return
PARAMETER: arraySize zero based number specifying the size of the array
PARAMETER: duplicates true or false to indicate whether duplicate
resize the tempArray to hold the number of elements passed in the
arraySize parameter
redim tempArray(arraySize)

　　 This is a loop counter set it to
filledElements =

　　 loop until filledElements is equal to the arraySize +
do until filledElements = arraySize +

　　 Call the RangedRandom function with the lowerBound and upperBoundparameters
tempValue = RangedRandom( lowerBound upperBound )

　　 Handle the case where we dont want duplicate values
if duplicates = false then
badValue = false
for i = to UBound(tempArray)
check if the new random value already exists in the array
if it does set the badValue flag to true and break out of the loop
if tempValue = tempArray(i) then
badValue = true
exit for
end if
next
if badValue = false then
tempArray(filledElements) = tempValue
filledElements = filledElements +
end if
else
Handle the case where duplicate values in the array are acceptable
tempArray(filledElements) = tempValue
filledElements = filledElements +
end if
loop

　　 return the array
RangedRandomArray = tempArray
end function

　　end class
%>
<%
All the code that follows is example code showing the use of the
cRandom class

　　dim objRandom
dim flip
dim randomArray
dim rowsToTest
dim i j

　　 create an instance of our class
set objRandom = new cRandom

　　 set the number of iterations that we want to test
rowsToTest =

　　 toggle to determine whether or not we set the bgcolor of the table row
flip = true

　　 Start the table
ResponseWrite <table border= cellpadding= cellspacing=>

　　for j = to rowsToTest
Well alternate the bgcolor of the table rows based on the
value of the flip variable
if flip then
ResponseWrite <tr bgcolor=LightGrey>
else
ResponseWrite <tr>
end if

　　 Call the RangedRandomArray function for testing purposes
randomArray = objRandomRangedRandomArray( )

From:http://tw.wingwit.com/Article/program/net/201311/13340.html