Cle alphanumerique

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 688 fois - Téléchargée 35 fois

Contenu du snippet

pour generer une cle alphanumerique à partir d'un tableau de caracteres

Source / Exemple :


<%
Function LIBELLULE(Perpignan)

	dim Tablo(50)
		Tablo(0) 	=	"0"
		Tablo(1)	=	"1"
		Tablo(2)	=	"2"
		Tablo(3)	=	"3"
		Tablo(4)	=	"4"
		Tablo(5)	=	"5"
		Tablo(6)	=	"6"
		Tablo(7)	=	"7"
		Tablo(8)	=	"8"
		Tablo(9)	=	"9"
		Tablo(10)	=	"A"
		Tablo(11)	=	"B"
		Tablo(12)	=	"C"
		Tablo(13)	=	"D"
		Tablo(14)	=	"E"
		Tablo(15)	=	"F"
		Tablo(16)	=	"G"
		Tablo(17)	=	"H"
		Tablo(18)	=	"I"
		Tablo(19)	=	"J"
		Tablo(20)	=	"K"
		Tablo(21)	=	"L"
		Tablo(22)	=	"M"
		Tablo(23)	=	"N"
		Tablo(24)	=	"O"
		Tablo(25)	=	"P"
		Tablo(26)	=	"Q"
		Tablo(27)	=	"R"
		Tablo(28)	=	"S"
		Tablo(29)	=	"T"
		Tablo(30)	=	"U"
		Tablo(31)	=	"V"
		Tablo(32)	=	"W"
		Tablo(33)	=	"X"
		Tablo(34)	=	"Y"
		Tablo(35)	=	"Z"

	randomize

	do while len(cle) < Perpignan
		num = Tablo(Int((35 - 0 + 1) * Rnd + 0))
		cle = cle + num
	loop

End Function

response.write ( LIBELLULE(10) & vbcrlf)
%>

Conclusion :


LIBELLULE(10) ,10 representant le nb de caracteres

A voir également

Ajouter un commentaire

Commentaires

Messages postés
61
Date d'inscription
vendredi 11 mars 2005
Statut
Membre
Dernière intervention
13 avril 2010

voila ca marche pas rien a afficheé
Messages postés
6
Date d'inscription
mardi 10 juillet 2001
Statut
Membre
Dernière intervention
27 novembre 2003

Ton code marche pas! Jsais pas pourquoi mais y fonctionne pas....

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.