VBScript – E-mail validacija

Uobičajeno je da se većina skript programa izvršava na serverskoj strani. Drugim rečima, korisnik šalje zahtev za obradu pojedinih podataka. Rezultat ovakvog načina obrade je sporost, zagušenje linkova, i nepotrebno opterećenje procesorskog vremena servera. Takođe, korisnici moraju da čekaju na odgovor servera, koji obrađuje podatke i prihvata ih ako su odgovarajući. U slučaju neispravnih podataka, kao odgovor biće poslata neka druga stranica sa obaveštenjem za korisnika. Da bi se izbegla ovakva procedura, provera podataka, uz pomoć VBScript programa, može se izvršiti na strani klijenta, tj. unutar browser-a korisnika.

U sledećem primeru videćete kako možemo izvršiti validaciju podataka sa jedne stranice koja predstavlja narudžbu za kupovinu. Izvršićemo samo proveru unete e-mail adrese, pa ćemo zato u telo stranice uneti objekat za unos ovog podataka:

<p>E-mail adaresa:

<INPUT type="text" name="KorisnikovMail">

</p>

<input type="button"

name="DugmePosalji"

onClick="ProveraNarudzbu"

value="Posalji narudzbu">

Pored ovog podatka na formi će biti i drugi podaci bitni za narudžbu (pogledajte sliku). Kao što vidite, pored polja „KorisnikovMail„, formi smo dodali i dugme za slanje. Kada korisnik unese sve podatke i klikne dugme „DugmePosalji„, prvo će se izvršiti provera, a zatim će se podaci proslediti serveru. Procedura koju pozivamo je „ProveraNarudzbu„, a nju smeštamo u HEAD sekciju stranice.

Sub ProveraNarudzbu()

 Dim Fîrma

 Dim Poruka

 Set Fîrma = document.narudzba

IF InStr(1, Fîrma.KorisnikovMail.Value, "@") = 0 THEN

  Poruka = MsgBox("Niste uneli validnu e-mail

  adresu." + Chr(13) + "Molimo, unesite

  korektan e-mail.", 48,"ERROR!")

END IF

End Sub

Pratite Krstaricu na www.krstarica.com