home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VB / UNSUPPRT / DANIM / HELP / DA / VER.JS < prev   
Encoding:
Text File  |  1998-03-12  |  449 b   |  17 lines
  1. // common sniffing code
  2. g_sUA = window.navigator.appVersion;
  3.  
  4. if (parseInt(g_sUA.indexOf("MSIE ")) >= 0) // Check if IE
  5. {
  6.     g_isIE = true;
  7.     g_iMaj = parseInt(g_sUA.substring(g_sUA.indexOf("MSIE ")+5,g_sUA.indexOf (".",g_sUA.indexOf("MSIE "))));
  8.     if (g_sUA.lastIndexOf("Win") >= 0)
  9.         g_sPlat = "Win";
  10. }
  11. else if (parseInt(g_sUA.lastIndexOf("Nav")) >= 0)
  12. {
  13.     g_isNav = true;
  14.     g_iMaj = parseInt(g_sUA.substring(0, g_sUA.indexOf('.')));
  15. }
  16.  
  17.