Código fuente de 'Multiples-numeros-aleatorios.asp'
<html>
<head>
<title>Múltiples números aleatorios - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 11pt; text-align:center">
<p align="center"><b><font size="3">Múltiples números aleatorios</font></b></p>
<form name="RandNumParams" method="post" action="Múltiples%20números%20aleatorios.asp">
<table style="border-style:inset;border-width:1px;">
<tr>
<td style="padding:3px;white-space:nowrap;">Introduce el número de
aleatorios únicos:
<input type="text" name="QtyNums" size="2" value="<%=Request("QtyNums")%>">
</td>
</tr>
<tr>
<td style="padding:3px;white-space:nowrap;">Introduce su longitud:
<input type="text" name="DigLen" size="2" value="<%=Request("DigLen")%>">
</td>
</tr>
<tr>
<td style="padding:3px;white-space:nowrap;padding-right:10px;text-align:right;">
<input type="submit" name="GenNums" value="Genera números aleatorios"> </td>
</tr>
</table>
</form>
<%
Function GenRndNum(DigLen)
Randomize
TheZeros = "1"
For x = 1 to Cint(DigLen)
TheZeros = TheZeros & "0"
Next
GenRndNum = Int((Rnd * 1) * Cdbl(TheZeros))
If Len(GenRndNum) < Cint(DigLen) Then
Do Until Len(GenRndNum) = Cint(DigLen)
GenRndNum = CStr(GenRndNum) & CStr(Int(Rnd * 10))
Loop
End If
End Function
'Check for Form Errors
If Request("GenNums") = "Genera números aleatorios" Then
IsErr = False
If IsNumeric(Request("QtyNums")) = False Then
IsErr = True
Response.Write "<div>No introduciste la cantidad de números aleatorios únicos.</div>"
Response.end
End If
If IsNumeric(Request("DigLen")) = False Then
IsErr = True
Response.Write "<div>No introduciste la longitud.</div>"
Response.end
End If
' Check for impossibility
If IsErr = False AND Len(Cint(Request("QtyNums")) -1) > Cint(Request("DigLen")) Then
IsErr = True
Response.Write "<div>Es imposible tener " & Request("QtyNums") & " números aleatorios " & _
"que tengan " & Request("DigLen") & " dígitos de longitud</div>"
Response.end
End If
' Run if there are not any errors
If IsErr = False Then
NumList = "|"
For y = 1 to Cint(Request("QtyNums"))
NewRndNum = GenRndNum(Request("DigLen"))
Do Until Instr(NumList,CStr(NewRndNum & "|")) = 0
NewRndNum = GenRndNum(Request("DigLen"))
Loop
Response.Write "<div>Aleatorio número " & y & ": " & NewRndNum & "</div>"
NumList = NumList & CStr(NewRndNum & "|")
Next
End If
End If
%>
</body></html>