VBScript – Redirekcija posetilaca

 –  aลพurirano:  –  

U sluฤaju da kreirate sajt (web site) koji mora da zadovolji sve moguฤ‡e posetioce, i da se sadrลพaj stranica istovetno vidi u bilo kom browser-u, imate na raspolaganju viลกe reลกenja. Jedno od njih je kreiranje posebnih stranica za svaki od specifiฤnih browser-a, i redirekcija (preusmeravanje) posetilaca na odgovarajuฤ‡e stranice u zavisnosti od toga koji browser poseduju.

Kao i JavaScript, za odreฤ‘ivanje klijentskog browser-a, VBScript takoฤ‘e koristi objekat navigator koji inaฤe ima ฤetiri osobine. Ove osobine su:

  • AppCodeName – kodni naziv browser-a (npr. IE5 – Mozilla)
  • AppName – puni naziv browser-a (npr. IE5 – Microsoft Internet Explorer)
  • AppVersion – verzija samog browser-a (npr. compatible; MSIE 5.0; Windows 95; Creative)
  • UserAgent – prikaz user agent-a i njegove verzije (npr. compatible; MSIE 5.0; Windows 95; Creative)
Iako nam objekat navigator nudi ฤetiri atributa, najkorisnije osobine predstavljaju AppName i AppVersion i njih ฤ‡emo nadalje koristiti. Programski kod kojim se pristupa osobinama je sledeฤ‡i: 



 Navigator.property

Na primer, da bi ispisali naziv browser-a na HTML stranici, moลพemo napisati: 



 <SCRIPT LANGUAGE=“VBScript“>

 Document.Write Navigator.AppName

 </SCRIPT>

Sada neฤ‡emo ulaziti u detalje parsiranja dobijenih stringova, veฤ‡ ฤ‡emo vam predstaviti gotovo reลกenje koje moลพete implementirati u vlastite stranice (parsiranje je ลกiroka tema).

Drugi vaลพan objekat u ovoj priฤi predstavlja objekat „Location„, koji poseduje osam atributa, a nama ฤ‡e od njih biti interesantan samo href. Ovu osobinu koristiฤ‡emo za promenu lokacije browser-a, i to nakon odreฤ‘ivanja vrste browser-a: 



 location.href = „nova web lokacija“

U sledeฤ‡em primeru videฤ‡emo kako moลพemo da izvrลกimo redirekciju posetilaca na odgovarajuฤ‡e stranice, u sluฤaju da posetioci poseduju Internet Explorer, i to verzije 4 ili viลกe. Dovoljno ฤ‡e biti da sledeฤ‡i skript postavite u poฤetnu (homepage) stranicu vaลกeg sajta. Poฤetna stranica neka bude jednostavno formatirana, da bi se u svim browser-ima istovetno videla. 



<HTML>

<HEAD>

</HEAD>

<BODY>

<SCRIPT LANGUAGE="VBScript">

Dim Naziv

Dim JeLiExplorer

Dim Verzija

Dim AppVerzija


Naziv = Navigator.AppName

JeLiExplorer = Instr(1, Naziv, "Explorer", vbTextCompare)

Verzija = Split(Navigator.AppVersion, " ", -1, vbTextCompare)

AppVerzija= CDbl( Verzija(0) )

If JeLiExplorer AND AppVerzija >= 4.00 Then

         Location.href = "https://www.krstarica.com"

End If

</SCRIPT>

Pratite Krstaricu na www.krstarica.com