Protocollare posta in arrivo

[orcim]

Ciao a tutti, vorrei sapere come si realizza l'assegnazione di un codice numerico o alfanumerico ad un messaggio inviato ad una pagina web tramite server, es.:

Codice messaggio 24.7.2004-16.51.11

ho già un form che funziona regolarmente ma vorrei assegnare ad ogni messaggio ricevuto un 'codice unico' che possa distinguerlo dagli altri, una specie di protocollo d'ufficio.
Grazie

[orcim]

Ho questa funzione che utilizzo per generare una password alfanumerica, potrebbe andar bene ma per il formato

Codice messaggio 24.7.2004-16.51.11

come la modifico?:

Function genera_pwd()

	Dim i, x
	Dim chars(36)
	Dim pwd(8)
	
	x = 0 
	'a-z
	for i = 97 to 122
		chars(x) = chr(i)
		x = x + 1
	next
	'0-9
	for i = 48 to 57
		chars(x) = chr(i)
		x = x + 1
	next
	password = "" 
	For i = 1 to 8
		Randomize
		password = password & chars(Int(UBound(chars) - LBound(chars) + 1) * Rnd + LBound(chars))
	next
	genera_pwd = password
end Function

[teorema55]

Ci sono in giro diversi script che, tra le altre funzionalità, creano delle sequenze alfanumeriche casuali da usare, per esempio, come identificativo utente...........penso che non ti sarà difficile adattarne uno.

Uno di questi è, per esempio, lo script di autenticazione-utente di Demetrio Milea.

[teorema55]

Sì, proprio qualcosa del genere....

[orcim]

Originariamente inviato da teorema55
Sì, proprio qualcosa del genere....

Grazie, Demetrio Milea ha una pagina web?

[teorema55]

Guarda su ASPcode, nel motore di ricerca (controllo accessi, autenticazione, D.Milea.........)

[orcim]

Originariamente inviato da teorema55
Guarda su ASPcode, nel motore di ricerca (controllo accessi, autenticazione, D.Milea.........)

Grazie il code è questo:

  Dim str_wanted_username			'richiesto username
	Dim str_new_usercode			'generare user code
	Dim int_random_number			'numero random
	Dim int_random_number_max		'valore massimo del numero randomico
	Dim int_random_number_min		'valore minimo del numero randomico
	
	'Richiamo i valori
	str_wanted_username = Request.form("numero")
	str_password = Request.form("nome")

Randomize
		int_random_number_Min = 1
		int_random_number_Max = 999999999
		int_random_number = Int(((int_random_number_Max-int_random_number_Min+1) * Rnd) + int_random_number_Min)
		
		'converto il numero in una stringa
		int_random_number = Cstr(int_random_number)
	
		'concateno username e il numero random
		str_new_usercode = str_wanted_username + int_random_number

Ma dovrebbe essere adattata ad una pagina <%@LANGUAGE = JScript%>
è possibile?

[teorema55]

Comunque mi sembra che la funzione che già possiedi vada benissimo. Per adattarla dovrai:

- creare una tabella in un database con i campi

id_messaggio
testo_messaggio
data_messaggio
...
...
...

- nello script che usi per ricevere i messaggi (supponiamo CDOSYS) aggiungere la tua funzione e poi richiamarla con la riga

id_messaggio = genera_pwd

- aggiornare il database con una query tipo

sql = "INSERT into tabella (id_messaggio, testo_messaggio, data_messaggio....) VALUES ('"&id_messaggio&"', '"&testo........)"

[orcim]

Grazie, ma l'ho già fatto quello che suggerisci il problema è ottenere da quella funzione questo formato:

Codice messaggio 24.7.2004-16.51.11

adesso infatti ricevo così:

Codice messaggio vskyrlv2

mi spiego?

[Shagrat]

e cosa sono 16.51.11 ??