熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

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

2013-11-13 10:21:06  來源: .NET編程 

  外國人寫的一個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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.