VBScript – Kako detektovati browser?

Poลกto samo Internet Explorer verzije 3 (i kasnije verzije), podrลพava VBScript, verovatno ฤ‡ete morati da na svoje stranice dodate funkcije koje ฤ‡e proveravati vrstu browser-a i njegovu verziju (zbog starijih verzija). Prvo ลกto treba odrediti je da li je browser – IE (Internet Explorer), ลกto moลพe da se odredi koriลกฤ‡enjem osobine „UserAgent“ objekta „Navigator“. Sve ลกto treba da uradite je da upotrebite InStr funkciju VBScript-a:


If InStr(Navigator.userAgent, "MSIE") > 0 Then

Kada ste odredili da posetilac poseduje IE browser, moลพete iskoristiti osobinu „AppVersion“ objekta „Navigator“, za odreฤ‘ivanje verzije ฤitaฤa. Na primer, osobina „AppVersion“ ฤ‡e vratiti sledeฤ‡i string u sluฤaju da posetilac poseduje IE verzije 4.01 na Windows NT platformi:


4.0 (compatible; MSIE 4.01; Windows NT)

Na osnovu ovoga moลพete iskoristiti prvi karakter za proveru (u naลกem sluฤaju 4) verzije ฤitaฤa, ali ลกta ฤ‡e se dogoditi ako IE „dogura“ do verzije 10. U tom sluฤaju, najbolje reลกenje je pronalaลพenje prve pojave decimalne taฤke (4.0). Kod za proveru bi ovako izgledao:


verzija = Navigator.appVersion
IEverzija = Left(verzija, InStr(verzija, ".")-1)

Kako proveravamo? Vrednost osobine „AppVersion“ smo prvo dodali varijabli „verzija“, potom odreฤ‘ujemo lokaciju decimalne taฤke unutar stringa, koristeฤ‡i „InStr“ funkciju. Na kraju oduzimamo jedan karakter od rezultujuฤ‡eg stringa i dobijamo broj verzije.

Prikazaฤ‡emo vam i kompletan primer za proveru verzije. Dovoljno je da sledeฤ‡i kod iskopirate u novi „.htm“ fajl (rezultat bi trebao da bude kao na slici):


<HEAD>
<SCRIPT LANGUAGE="VBScript">
SUB dugme_OnClick
verzija = Navigator.appVersion

IEverzija = Left(verzija, InStr(verzija, ".")-1)
MsgBox "Verzija IE je " + IEverzija
END SUB
</SCRIPT>
</HEAD>
<BODY>
<FORM>
<INPUT NAME="dugme" TYPE="BUTTON" VALUE="Provera">
</FORM>
</BODY>

Pratite Krstaricu na www.krstarica.com