|
da nastavimo...
u proslom delu smo pricali o uslovima, petljama i promenljivama. sada cemo pricati o funkcijama i procedurama
i stime cemo zavrsiti ovaj deo Osnova ASP-a
Procedure
procedure su blokovi koda koji vas oslobadjaju bespotrebnog pisanja istog dela koda vise puta, a samim tim i
smanjuje velicinu stranice na serveru.
Procedure ne vracaju nikakvu vrednost i izvrsavaju se tako sto se navede ime procedure i eventualno argumente.
jednom napisana procedura moze da se poziva hiljadu puta.
sintaksa procedure:
<%
[Public | Private] Sub ime_procedure [(arg1, arg2, arg3... argn)]
'// blok koda
End Sub
%>
sve sto je unutar [ i ] zagrada je opciono...
kada je procedura deklarisana kao Public, to znaci da svi clanovi klase (pa i ovi izvan nje) u kojoj se nalazi
ta procedura imaju pristup njoj (ovo vazi i za funkcije, promenljive, konstante...)
Private znaci da samo clanovi klase mogu da joj pristupaju i zatvorena je za ostale procedure, funkcije izvan
te klase u kojoj je.
primer jedne procedure
<%
Public Sub Ispisi ()
Response.Write("Ja sam tekst koji je izbacila procedura Ispisi :)")
End Sub
%>
Funkcije (u daljem tekst f-je)
f-je su slicne procedurama stom razlikom sto vracaju vrednost i kao takve pogodne su da se ubacuju u uslove (u
prethodnom casu smo pominjali uslove) jer f-je vrate vrednost i odmah uporede sa uslovom.
sintaksa f-ja
<%
[Public | Private] Function ime_funkcije [(arg1, arg2, arg3... argn)]
End Function
%>
primer jedne f-je
<%
Public Function Saberi(a,b)
Saberi = a + b
End Function
%>
kada se izracunavanje u f-ji obavi, obavezno se rezultat mora vratiti imenu f-je Saberi = a + b.
kada smo ovo uradili, mozemo da ubacimo f-ju u uslov
<%
If Saberi(2,2) = 4 Then
Response.Write("Da, 2 + 2 jeste 4!")
End If
%>
ono sto ce vam trebati pri registrovanju (upisivanju novih korisnika u bazu) jeste validacija email adrese.
ovo mozete uraditi i bez f-je, ali je na ovaj nacin lakse zato jer ako se na vasem sajtu validacija email
adrese ponavlja vise puta, za svaki put vi biste pisali ponovo. ovako samo pozovete f-je sa drugim
argumentom/argumentima..
evo f-je za validaciju email adrese
<%
Dim at, dot
Public Function ValidEmail(polje_mail_adrese)
If Len(polje_mail_adrese) < 6 Then
Response.Write("Email adresa nije validna!")
Else
at = InStr(2, polje_mail_adrese, "@")
If at = 0 Then
ValidEmail = "Email adresa nije validna!"
ElseIf CInt(dot) + 1 > Len(polje_mail_adrese) Then
ValidEmail = "Email adresa nije validna!"
Else
ValidEmail = "Email adresa je validna!"
End If
End Function
%>
ovaj kod mozete izmeniti i kao umesto vracanja Stringa (Email adresa nije validna!/Email adresa je validna!)
mozete da stavite 0/1 respektivno i ubacite ValidEmail u IF uslov i u zavisnosti od unesene email adrese if
uslov se grana gde treba i prikaze ono sto je potrebno...
|
