Código fuente de 'Numeros-aleatorios-en-un-intervalo.asp'
<html>
<head>
<title>Números aleatorios en un intervalo - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Números aleatorios en un intervalo</font></b></p>
<br>
<br>
<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"))
Else
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
Else
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.
Randomize()
' 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>
y
<INPUT TYPE="text" NAME="upperbound" VALUE="<%= intUpperBound %>" SIZE="5" MAXLENGTH="5"></INPUT>
<INPUT TYPE="submit"></INPUT>
</FORM>
</body>
</html>