Hajo Newe: Script in Script, Part III

Beitrag lesen

Hi Leute und vorallem Antje,

ich war mal wieder zu paddellich und habe nicht mitgedacht, aber hier nun meine Scriptauschnitte, angefangen mit dem Menüscript:

doc.open("text/html", "replace");
  doc.writeln('<HTML>');
  doc.writeln('<HEAD>');
  doc.writeln('<META NAME="author" CONTENT="Stefan Hegemann, Marcel Karpa, Hajo Newe, Marcel Scherb">');
  doc.writeln('<META NAME="description" CONTENT="TSG Bremerhaven">');
  doc.writeln('<META NAME="copyright" CONTENT="copyright 1998 by Arbeitskreis Internet der TSG Bremerhaven">');
  doc.writeln('<META NAME="keywords" CONTENT="TSG, Bremerhaven, Tanzen, Latein, Standard, Jazz, Modern, Dance, JMD, Formation, Einzel, Beer, Team">');
  doc.writeln('<META NAME="robots" CONTENT="all">');
  doc.writeln('<META NAME="generator" CONTENT="Allaire Homesite v4.0 for Windows98">');
  doc.writeln('<meta http-equiv="Expires" content="0">');
  doc.writeln('<title>TSG Bremerhaven - Menubaum</title>');
  doc.writeln('</HEAD>');
  doc.writeln('<script type="" language="JavaScript" src="xticker.js"></script>');
doc.writeln('<script type="" language="JavaScript" src="browser1.js"></script>');
  doc.writeln('<script type="" language="JavaScript" src="browser2.js"></script>');
  doc.writeln('<script type="" language="JavaScript" src="gfx.js"></script>');
  
  doc.writeln('<body text="Black" link="Black" alink="Black" vlink="Black" background="../../jpg/menuback.jpg">');
  doc.writeln('<style type="text/css">');
  doc.writeln('<!--');
  doc.writeln('A:link {text-decoration: none}');
  doc.writeln('A:active {color:#000000; background:#FF0000}');
  doc.writeln('A:visited {text-decoration: none}');
  doc.writeln('A:hover {color:#000000; background:#FFFF00}');
  doc.writeln('// -->');
  doc.writeln('</style>');
  doc.writeln('<table border=0 cellpadding=0 cellspacing=0 width=130>');

zeige_Ordner_Inhalt(menu);
  doc.writeln('</table>');
    doc.writeln('<div id="xticker" style="position: absolute; top: 600; left: 3;"></div>');
  doc.writeln('</BODY>');
  doc.writeln('</HTML>');
  doc.close();
  return false;

und nun folgen die Script-Datein die in die neue Datei geschrieben werden:

--> xticker.js

<!--

var delay=20;
  var aktiv;
  var TickerStop = false;

var msg=new Array
(
  '',

.
  .
  .

'text o text'
);

var titlemsg=new Array
(
  '',

.
  .
  .

'SONSTIGES'
);

function start_ticker(Index)
{ do_ticker(msg[Index], 0, titlemsg[Index]); }

function clear_ticker()
{
  var out=' ';
  if(navigator.appName=="Netscape")
    with(document.xticker.document)
    { open(); write(out); close(); }
    else
      xticker.innerHTML=out;
}

function do_ticker(text, pos, title)
{
  if (pos >= text.length)
    var out='<table border=0 width=98><tr><td align=center><font color=#FFFFFF><font color=#000000 size=-1><span style="font-family:sans-serif; font-size:8pt;">'+title+'<br>'+text.substring(0, pos)+'</span></font></font></td></tr></table>';
  else
    var out='<table border=0 width=98><tr><td align=center><font color=#FFFFFF><font color=#000000 size=-1><span style="font-family:sans-serif; font-size:8pt;">'+title+'<br>'+text.substring(0, pos)+'</span></font></font></td></tr></table>';

if (!TickerStop)
  {
    if(navigator.appName=="Netscape")
      with(document.xticker.document)
      { open(); write(out); close(); }
    else
      xticker.innerHTML=out;

pos+=1;
    if (text[pos] == '<')
    {
      while (text[pos] != '>')
      { pos+=1; }
      pos+=1;
    }

if(pos>text.length)
      clearTimeout(aktiv);
    else
      aktiv=setTimeout('do_ticker("'+text+'",'+pos+',"'+title+'")', delay);

}
}
// -->

--> browser1.js

<!--
  var BrowserOK = false;
//-->

--> browser2.js

<!--
  BrowserOK = 1;
//-->

--> gfx.js

<!--

function GfxOver(Index,gfx)
{
  if (BrowserOK) {
    TickerStop = false;
    start_ticker(Index);
  }
}

function GfxOut(Index,gfx)
{
  if (BrowserOK) {
    clearTimeout(aktiv);
    TickerStop = true;
    clear_ticker();
  }
}
//-->

So das Problem ist ja bekannt, bitte um Abhilfe, wer es noch nicht kennt, es steht etwas weiter unten unter Part II

Gruß Hajo