home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1999 November / PCOnline_11_1999.iso / muenchen / hcon.js < prev    next >
Text File  |  1999-09-28  |  1KB  |  33 lines
  1. var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;
  2.  
  3. if (navigator.userAgent && navigator.userAgent.indexOf("MSIE")>=0 && 
  4.  (navigator.userAgent.indexOf("Windows 95")>=0 || 
  5.   navigator.userAgent.indexOf("Windows 98")>=0 || navigator.userAgent.indexOf("Windows NT")>=0)) {
  6.  document.write('<script language=VBScript\> \n');
  7.  document.write('on error resume next \n');
  8.  document.write('Sub hcon_FSCommand(ByVal command, ByVal args)\n');
  9.  document.write('  call hcon_DoFSCommand(command, args)\n');
  10.  document.write('end sub\n');
  11.  document.write('</script\> \n');
  12. }
  13.  
  14. function hcon_DoFSCommand(command, args) {
  15. var conObj = InternetExplorer ? hcon : document.hcon;
  16. var mapObj = InternetExplorer ? parent.fmap.hmap : parent.fmap.document.hmap;
  17. var p = parent.frames[10].para;
  18. var f = 0;
  19. var agu = parseInt(args);
  20.  
  21. if ( command=="l" ) {
  22.  f = agu ;
  23.  p[0] = f;
  24.  p[3] = 0;
  25.  p[4] = 0;
  26.  p[5] = 0;
  27.  p[6] = 5700;
  28.  p[7] = 5700;
  29.  p[8] = f;
  30.  mapObj.GotoFrame(p[15]);
  31.  
  32.  } 
  33. }