VBScript – Redirekcija posetilaca

  –  

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