Visual Basic Server
Farbige Mitteilungen einblenden

Funktioniert leider nur mit Internet Explorer :-(


Sourcecode:

<head>

<script language="JavaScript">

// So viele Nachrichten einfügen, wie gewünscht...
var msg=new Array()
msg[0]="<CENTER>Nach genauer Betrachtung...</CENTER>";
msg[1]="<CENTER>ist festzustellen...</CENTER>";
msg[2]="<CENTER>dass dieses Beispiel...</CENTER>";
msg[3]="<CENTER>nicht ernst genommen werden sollte.</CENTER>";
msg[4]="<CENTER>Besuchen Sie die <a 
  href='http://www.bmw.de/'>Startseite der Firma BMW</a> ...</CENTER>";

// Erstes Set von Farben - so viele Farben einsetzen, wie man möchte
var colors1=new Array("ffffff", "eeeeff", "ddddff", "ccccff", 
  "bbbbff", "aaaaff", "4444ff", "3333ff", "2222ff", "1111ff", "0000ff")

// Zweites Set von Farben - dieselbe Anzahl verwenden wie beim ersten Set
var colors2=new Array("ffffff", "ffeeee", "ffdddd", "ffcccc", 
  "ffbbbb", "ffaaaa", "ff4444", "ff3333", "ff2222", "ff1111", "ff0000")

// Höhe der Anzeige in Pixeln
high=50;

// Breite der Anzeige in Pixeln
wide=400;

// Position der linken, sowie der oberen Ecke der Anzeige
Xpos=160;
Ypos=150;

// Position des Textes über, unter oder auf dem Rahmen
pad=16;

// Hintergrundfarbe der Anzeige
bgcol="ddddff";

// Hintergrundbild - falls keins gewünscht, dann leeren String eingeben: cellbg="";
cellbg="";

// Schriftart
fntFam="verdana,helvetica,arial";
fntSize=10;

// Dauer der Anzeige jeder Nachricht.
pause=1.5;

// Ab hier nichts mehr verändern:
icolor=0;
mcolor=1;
imsg=0;
spWidth=wide-(2*pad);
totality=false;
glowing=true;
var theMsg="";
var cellcontent="";
pause=pause*1000;
if(cellbg.length>4){cellbg=" background="+cellbg}
else{cellbg="";}

function doPause(){
totality=false; t=setTimeout("changecolor()",pause);
}
function initiate(){
getContentColor();
getMsg();
getCellContent();
if(document.all){
msgbg.innerHTML=cellcontent;
msgfade.innerHTML=theMsg;
msgbg.style.posLeft=Xpos;
msgbg.style.posTop=Ypos;
msgfade.style.posLeft=Xpos+pad;
msgfade.style.posTop=Ypos+pad;
t=setTimeout("changecolor()",30);}
if(document.layers){
document.msgbg.document.write(cellcontent);
document.msgbg.document.close();
document.msgfade.document.write(theMsg);
document.msgfade.document.close();
document.msgbg.left=Xpos;
document.msgbg.top=Ypos;
document.msgfade.left=Xpos+pad;
document.msgfade.top=Ypos+pad;
t=setTimeout("changecolor()",30);}
}
function changecolor(){
if(totality==true){doPause();}
else{
getMsg();
getContentColor();
if(document.all){
msgfade.innerHTML=theMsg;
t=setTimeout("changecolor()",30);}
if(document.layers){
document.msgfade.document.write(theMsg);
document.msgfade.document.close();
t=setTimeout("changecolor()",30);}
}
}
function getFadeColor(){
icolor=icolor-1;
if(mcolor==1){contentcolor=colors1[icolor];}
else{contentcolor=colors2[icolor];}
}
function getGlowColor(){
icolor=icolor+1;
if(mcolor==1){contentcolor=colors1[icolor];}
else{contentcolor=colors2[icolor];}
}
function changemsg(){
if(imsg==msg.length-1){imsg=0; mcolor=1;}
else if(imsg != msg.lenght-1 && mcolor==1){imsg=imsg+1; mcolor=0;}
else{imsg=imsg+1; mcolor=1;}
}
function getContentColor(){
if(icolor==colors1.length-1 && glowing==true){
getFadeColor(); glowing=false; totality=true;}
else if(icolor < colors1.length && glowing==true){
getGlowColor();}
else if(icolor < 1 && glowing==false){changemsg(); getGlowColor(); glowing=true;}
else{getFadeColor();}
}
function getMsg() {
theMsg="<span style='font-size:"+fntSize+"pt; font-family:"+fntFam+"; width:"+spWidth+";'>"
theMsg+="<B><font color="+contentcolor+">"+msg[imsg]+"</font></B> "
theMsg+="</span>"
}
function getCellContent(){
cellcontent="<TABLE height="+high+
" width="+wide+" bgcolor="+bgcol+" cellpadding=0 
  cellspacing=0><TR><TD"+cellbg+"> </TD></TR></TABLE>"}
</script>

</head>

<body onLoad="initiate()">

<div id="msgbg" style="position: absolute;"></div>
<div id="msgfade" style="position: absolute;"></div>