ASP ile Sifre Uretme
Uyelik sistemi gibi proje hazirlayanlar veya sitenizdeki projenizde rastgele bir veri kullanmak istiyorsaniz harf/rakam karisimli bir veri yaratmanizi saglayacak basit bir kod ekliyorum.
Asagidaki kod ile 8 karakterli rastgele bir sifre uretebilirsiniz.
Eger daha fazla karakter isterseniz en alt satirda yazan SifreUret(8) satirdaki rakami 10, 12, 11, 13 gibi istediginiz sekilde degistirebilirsiniz.
Function SifreUret(Boy)
Dim sifre,KarakterBoyu,KacinciKarakter
Const Karakterler = "0123456789abcdefghijklmnoprqstuvyzABCDEFGHIJKLMNO PRQSTUVYZ"
Randomize
KarakterBoyu = Len(Karakterler)
For x = 1 To Boy
KacinciKarakter = Int((KarakterBoyu * Rnd) + 1)
sifre = sifre & Mid(Karakterler,KacinciKarakter,1)
Next
SifreUret = sifre
End Function
RefCode = SifreUret(8)
Dim sifre,KarakterBoyu,KacinciKarakter
Const Karakterler = "0123456789abcdefghijklmnoprqstuvyzABCDEFGHIJKLMNO PRQSTUVYZ"
Randomize
KarakterBoyu = Len(Karakterler)
For x = 1 To Boy
KacinciKarakter = Int((KarakterBoyu * Rnd) + 1)
sifre = sifre & Mid(Karakterler,KacinciKarakter,1)
Next
SifreUret = sifre
End Function
RefCode = SifreUret(8)
Kullanimi: <%=RefCode %>
- personAyberk Atasay
- calendar_monthMay 26, 2008
- categoryASP
- sharepaylaş
