Generare numero casuale di 10 cifre

[fabiodj]

Ragazzi

Mi rivolgo a chi di voi ha più esperienza di me in quanto ho necessità di generare un codice casuale di 10 cifre che non si ripeta in quanto altrimenti non avrebbe senso
Io ho realizzato il codice di seguito ma ho notato che si ripete

Function genera(Max, Min, MaxChar) 
	Dim codice, cifra
	For i = 0 To MaxChar 
	Randomize timer
		codice = Int((Max * Rnd()) + 1) 
		cifra = cifra & codice
	next 
	genera =cifra
End Function 


codicevis = lcase(genera(5, 48, 9))

Response.Write codicevis4

[br1]

Non puoi pretendere che "non si ripeta" se non te li salvi da qualche parte e verifichi non sia gia' stato generato

[optime]

cià, ci ho dato una ripulita

<%

Function genera(MaxChar) 
	Dim codice, cifra, excifra
	For i = 0 To MaxChar 
		Do
			Randomize timer*timer
			cifra = Int(Rnd()*9 + 1) 
			if cifra<>excifra then exit do
		Loop
		codice = codice & cifra
		excifra = cifra
	next 
	genera = codice
End Function 

codicevis = Genera(9)

Response.Write codicevis

%>

[fabiodj]

Praticamente excifra dovrebbe essere il valore da ricercare nel database magari sottoforma di subrutine o di funzione?

Stavo pensando che piuttosto che ricavare numero x numero potrei usare un qualcosa del genere ma ho notato che anche se aggiorno la pagina il valore non cambia possibile ?

Attendo consiglio su ambo le formule e la correzione se possibile per capire dove sbaglio.

function ricalcola
n = Int(Rnd()*10000000000)
IF len(n) < 10 then
codice = Int(Rnd()*10000000000)
ricalcola = ricalcola & codice
else 
ricalcola = ricalcola & n 
end if 
end function 

Response.Write ricalcola

[optime]

due problemi:

1. la generazione del codice
2. il controllo che non sia già stato usato

per il punto 1, direi che con la mia routine ci sei

per il punto 2, devi avere - come hai correttamente intuito - una tabella d'appoggio in cui inserire - e cercare - i numeri già generati.

[fabiodj]

Io infatti sto cercando di far interagire il codice con un database ma non c'è verso ....
Non dovrebbe essere collegato con una funzione ad EXCIFRA ?
Mi aiuti ad inserirla nella funzione che mi hai aggiustato....?

Stavo pensando a qualcosa del genere

function excifra (cifra)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT codice FROM visitatori where codice='" & cifra & "'"
rs.open sql, conn, 1, 3 
if not rs.eof then 
excifra = rs("codice")
end if 
rs.close 
set rs = nothing
conn.close
set conn=nothing
end function

[optime]

la function "excifra" funziona?

[fabiodj]

Purtroppo no .... è quello che mi fa incavolare

[optime]

non funziona, ok, che vuol dire in pratica? dà errore? non trova? altro?

[fabiodj]

Ho fatto una piccola modifica e adesso riesce a rilevare la funzione però a questo punto essendo che il controllo avviene prima della generazione del loop secondo me dovremmo spspostare il controllo al termine dello stesso.

Pero a questo punto se dopo inseriamo il controllo che riporto come gli diciamo di generare nuovamente un numero random e ripetere il controllo ?

cifra<>verifica then exit do

function excifra(cifra)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT codice FROM visitatori where codice='" & cifra & "'"
rs.open sql, conn, 1, 3
if not rs.eof then
excifra = rs("codice")
end if
Response.Write sql
rs.close
set rs = nothing
'conn.close
'set conn=nothing
end function


Function genera(MaxChar)
Dim codice, cifra

For i = 0 To MaxChar
Do
Randomize timer*timer
cifra = Int(Rnd()*9 + 1)
verifica = excifra(cifra)
if cifra<>verifica then exit do
Loop
codice = codice & cifra

next
genera = codice
'addutente(IDutente)
End Function