Üyelik sistemlerinde üye olan kişinin e-posta adresini doğrulamak için bir e-posta gönderilir. Kimi zaman bu e-postalarda MNh39h02zYI gibi bir aktivasyon kodu görülür. Bu şekilde bir kod oluşturmak için alttaki fonksiyonu kullanabilirsiniz.
Function KodOlustur(KacKarakter) Dizi = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","w","v","x","y","z","1","2","3","4","5","6","7","8","9") 'Karakter dizisi ToplamKarakter = 35 'Dizideki karakter sayısı For i = 1 To KacKarakter 'Kodun uzunluğu kadar döngüye girer Randomize rastgele = Rnd() TekKod = Dizi(Int(((ToplamKarakter - 1) * rastgele) + 1)) ToplamKod = ToplamKod & TekKod Next KodOlustur = ToplamKod End Function |
Kodun kullanım şekli ise şu şekilde:
Response.Write KodOlustur(8) 'sekiz karakter uzunluğunda rastgele kod üretir |
ToplamKarakter = 35
Yerine
ToplamKarakter = UBound(Dizi)
Kullanilabilir 🙂