ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
ASP中一个用VBScript写的随机数类

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

演示:
627416185832865380
602308334917822171
1699539553392251437
6575829327214661252
94502976285521100712
7772633066757355648
49845344296862635580
2259334956947914666
26793753102161635673
4983608565998581399
365657412091167684
<%
	'**************************************************************************
	' CLASS: cRandom
	'	Calls randomize to seed the random number generator.
	'	Provides functions for returning ranged random integers or arrays of
	'	ranged random integers.
	'**************************************************************************
	class cRandom
	
		' 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 doesn't 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
		'            random values are allowed in the array
		' RETURNS:	 A single dimension array sized to match the arraySize 
		'			 parameter, containing random integers between lowerBound and 
		'			 upperBound, inclusive
		'**********************************************************************
		public function RangedRandomArray(lowerBound, upperBound, arraySize, duplicates)
			dim tempArray()
			dim filledElements, tempValue, badValue, i
			
			' 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 0
			filledElements = 0
		
			' loop until filledElements is equal to the arraySize + 1
			do until filledElements = arraySize + 1
			
				' Call the RangedRandom function with the lowerBound and upperBoundparameters
				tempValue = RangedRandom( lowerBound, upperBound )
			
				' Handle the case where we don't want duplicate values
				if duplicates = false then
					badValue = false
					for i = 0 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 + 1
					end if
				else
					' Handle the case where duplicate values in the array are acceptable
					tempArray(filledElements) = tempValue
					filledElements = filledElements + 1
				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 = 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, 100, 9, false )
		
		' Output the contents of the array
		for i = 0 to UBound(randomArray)
			Response.Write "<td align=right width=30><font face=Verdana size=1>" & randomArray(i) & "</font></td>"
		next
		Response.Write "</tr>"
		' Toggle the flip boolean variable
		flip = not flip
	next
	
	' Close the table
	Response.Write "</table>"
	
	' Destroy the instance of our object
	set objRandom = nothing
%>



相关文章

相关软件