İstenilen karakterde rastgele kod oluşturma

Ü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