Código fuente de 'Numeros-aleatorios-en-un-intervalo-2.asp'
<html>
<head>
<title>Números aleatorios en un intervalo 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 11pt">
<center><b><font face="Arial" size="3">Números aleatorios en un intervalo 2</font></b></center><br><br>
<%
Const lowerbound = 1
Const upperbound = 500
' You could also pass in querystring or
' form variables here instead of Constants!
If IsNumeric(lowerbound) Then intLowerBound = CLng(lowerbound) Else intLowerBound = 0
If IsNumeric(upperbound) Then
intUpperBound = CLng(upperbound)
If intLowerBound = 0 And intUpperBound = 0 Then intUpperBound = 100
Else
intUpperBound = 100
End If
If intLowerBound > intUpperBound Then
iTemp = intLowerBound
intLowerBound = intUpperBound
intUpperBound = iTemp
End If
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)
%>
Número aleatorio entre <%=intLowerBound%> y <%=intUpperBound%>.<br>
He aquí tu número aleatorio #: <%=intRandomInteger%><br><br>
Refresca la pantalla para obtener otro número aleatorio<br>
<br><b>Nota: </b>puedes cambiar los valores en el código fuente
</body></html>