|
Asp proqramlaşdırma dili çox geniş bir informasiyaya malikdir. Bir çox funksiyanı
asp ilə həyata keçirmək mümkündür. Bu dərsimiz də siz asp ilə 25 simvoldan ibarət
təsadüfü yaranan serial nömrələrin necə hazlırlanmasını öyrənəcəksiniz. Bu funkiya
bir çox yerdə lazım olur.
<%
Dim simvollar, key
Randomize 'Tesadufu tapilmasi ucun
simvollar="ZXCVBNMASDFGHJKLPOIUYTREWQ0123456789" 'Serialda istifade edilecek
simvollar.
For i=1 to 25
If i=6 or i=11 or i=16 or i=21 Then 'Simvollara her 5 simvoldan bir - isaresi olsun.
key=key&"-"
End If
key = key & Mid(simvollar,Round(Rnd*Len(simvollar)+1),1)
Next
Response.Write(key) 'Ekranda gosterilsin.
%>
Kodlardan aydın olduğu kimi ilk növbədə Randomize əmri daxil edilməlidir. Asp-də
hər hansı təsadüfü əməliyyat həyata keçiriləcəksə bu zaman istifadə etdiyin yerin
üst hissələrində Randomize əmrini yazmaq vacibdir. Simvollar isə istifadə ediləcək
simvollardır. Ora istənilsə ancaq 0-9 kimi rəqəm də yazıla bilər. Bu zaman serial
nömrənin bütün simvolları rəqəmdən ibarət olacaqdır.
|