Código fuente de 'Numeros-aleatorios-en-un-intervalo.asp'

<title>Números aleatorios en un intervalo - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<p align="center"><b><font size="3">Números aleatorios en un intervalo</font></b></p>
<body style="font-family: Arial; font-size: 11pt">
' Lower bound of the random number range
Dim intLowerBound    
' Upper bound of the random number range
Dim intUpperBound    

' Size of the range
Dim intRangeSize     
' A random value from 0 to intRangeSize
Dim sngRandomValue   
' Our final result - random integer to return
Dim intRandomInteger 

' Retrieve lower and upper bound requests if they're there
' o/w set to defaults of 0 and 100
If IsNumeric(Request.QueryString("lowerbound")) Then
	intLowerBound = CLng(Request.QueryString("lowerbound"))
	intLowerBound = 0
End If

If IsNumeric(Request.QueryString("upperbound")) Then
	intUpperBound = CLng(Request.QueryString("upperbound"))
	' Add a line to deal with default case of 0 to 0.
	' This really isn't neccessary, but I do it so the
	' sample doesn't default to generating a number between
	' 0 and 0 and always return 0 when no bounds are provided.
	If intLowerBound = 0 And intUpperBound = 0 Then intUpperBound = 100
	intUpperBound = 100
End If

' Check for people asking for a number from in an inappropriate
' range (ie: 50 to 10) and swap the bounds
If intLowerBound > intUpperBound Then
	' I really should've declared a temporary variable for this
	' swapping, but I was lazy and this one was already defined
	' and I don't use it till later... oh all right I'll do it
	' the "right" way... actually even this is bad... I should've
	' defined this up top... so sue me... hey it's free code what
	' do you want from me?
	Dim iTemp
	iTemp = intLowerBound
	intLowerBound = intUpperBound
	intUpperBound = iTemp
End If

' Initialize the random number generator.
' Randomize can actually take parameters telling it how to initialize
' things, but for the most you'll just want to call it without passing
' it anything.

' Generate our random number.
' The Rnd function does most of the work.  It returns a value in the
' range 0 <= value < 1 so to generate a random integer in the specified
' range we need to do some calculation.  Specifically we take the size
' of the range in which we want to generate the number (add 1 so the
' upper bound can be generated!) and then multiply it by our random
' element.  Then to place the value into the correct range of numbers
' we add the lower bound.  Finally we truncate the number leaving us
' with the integer portion which is always somewhere between the
' lower bound and upper bound (inclusively).

' Find range size
intRangeSize = intUpperBound - intLowerBound + 1

' Get a random number from 0 to the size of the range
sngRandomValue = intRangeSize * Rnd()

' Center the range of possible random numbers over the desired result set
sngRandomValue = sngRandomValue + intLowerBound

' Convert our value to an integer
intRandomInteger = Int(sngRandomValue)

' The above 4 lines are equivilent to the popular shorter version
' below.  I split it up so I could indicate what each step is doing.
' intRandomInteger = Int((intUpperBound - intLowerBound + 1) * Rnd + intLowerBound)

' Show out output indicating what we've done and our result.
%>Has pedido un número aleatorio entre <B><%= intLowerBound %></B> y <B><%= intUpperBound %></B>.<BR>
El número generado es: <B><%= intRandomInteger %></B><BR>

<!-- Build the form for user input -->
<FORM ACTION="Números aleatorios en un intervalo.asp" METHOD="get" NAME="frmRandomNumberBounds">

Genera un número aleatorio entre:
<INPUT TYPE="text" NAME="lowerbound" VALUE="<%= intLowerBound %>" SIZE="5" MAXLENGTH="5"></INPUT>
<INPUT TYPE="text" NAME="upperbound" VALUE="<%= intUpperBound %>" SIZE="5" MAXLENGTH="5"></INPUT>

<INPUT TYPE="submit"></INPUT>