Pull-down navigation bar

<Script language = "jscript. encode">
VaR mmenus = new array ();
VaR misshow = new Boolean ();
Misshow = false;
VaR misdown = new Boolean ();
Misdown = false;
VaR musestatus = false;
VaR mpoptimer = 0;
Mmenucolor = 'menu '; mfontcolor = 'menutext'; mmenuoutcolor = 'menu'; mmenuincolor = '# e7e3de'; mmenuoutbordercolor = '# ffff'; Comment =' #000000 '; mmidoutcolor = '# e2dfda'; mmidincolor = '#8d8a85'; mmenuovercolor = 'menutext'; mitemedge = '1'; msubedge = '1'; mmenuunitwidth = 60; mmenuitemwidth = 130; mmenuheight = 22; mmenuwidth = '000000'; mmenuadjust = 0; mmenuadjustv = 0; mfonts = 'font-family:; font-size: 9pt; color: menutext ;'; mcursor = 'default ';
VaR fadesteps = 5;
VaR fademsec = 20;
VaR fadearray = new array ();
Function fade (El, fadein, steps, msec ){
If (Steps = NULL) Steps = fadesteps;
If (MSEC = NULL) MSEC = fademsec;
If (El. fadeindex = NULL)
El. fadeindex = fadearray. length;
Fadearray [El. fadeindex] = El;
If (El. fadestepnumber = NULL ){
If (El. style. Visibility = "hidden ")
El. fadestepnumber = 0;
Else
El. fadestepnumber = steps;
If (fadein)
El. style. Filter = "alpha (opacity = 0 )";
Else
El. style. Filter = "alpha (opacity = 100 )";
}
Window. setTimeout ("repeatfade (" + fadein + "," + El. fadeindex + "," + steps + "," + msec + ")", msec );
}
Function repeatfade (fadein, index, steps, msec ){
El = fadearray [Index];
 
C = El. fadestepnumber;
If (El. fadetimer! = NULL)
Window. cleartimeout (El. fadetimer );
If (C = 0 )&&(! Fadein )){
El. style. Visibility = "hidden ";
Return;
}
Else if (C = steps) & (fadein )){
El. style. Filter = "";
El. style. Visibility = "visible ";
Return;
}
Else {
(Fadein )? C ++: c --;
El. style. Visibility = "visible ";
El. style. Filter = "alpha (opacity =" + 100 * C/steps + ")";
El. fadestepnumber = C;
El. fadetimer = Window. setTimeout ("repeatfade (" + fadein + "," + index + "," + steps + "," + msec + ")", msec );
}
}

Function stoperror (){
Return true;
}
Window. onerror = stoperror;
Function mpopout (){
Mpoptimer = setTimeout ('allhide () ', 500 );
}
Function getreal (El, type, value ){
Temp = El;
While (temp! = NULL) & (temp. tagname! = "Body ")){
If (eval ("Temp." + type) = value ){
El = temp;
Return El;
}
Temp = temp. parentelement;
}
Return El;
}

Function mmenuregister (menu)
{
Mmenus [mmenus. Length] = menu
Return (mmenus. Length-1)
}
Function mmenuitem (Caption, command, target, isline, statustxt, IMG, sizex, sizey, POS ){
This. Caption = Caption;
This. Command = command;
This.tar get = target;
This. isline = isline;
This. statustxt = statustxt;
This. IMG = IMG;
This. sizex = sizex;
This. sizey = sizey;
This. Pos = Pos;
}
Function mmenu (Caption, command, target, IMG, sizex, sizey, POS ){
This. Items = new array ();
This. Caption = Caption;
This. Command = command;
This.tar get = target;
This. IMG = IMG;
This. sizex = sizex;
This. sizey = sizey;
This. Pos = Pos;
This. ID = mmenuregister (this );
}
Function mmenuadditem (item)
{
This. items [This. Items. Length] = item
Item. Parent = This. ID;
This. Children = true;
}

Mmenu. Prototype. additem = mmenuadditem;
Function mtoout (SRC ){

SRC. style. borderleftcolor = mmenuoutbordercolor;
SRC. style. borderrightcolor = mmenuinbordercolor;
SRC. style. bordertopcolor = mmenuoutbordercolor;
SRC. style. borderbottomcolor = mmenuinbordercolor;
SRC. style. backgroundcolor = mmenuoutcolor;
SRC. style. Color = mmenuovercolor;
}
Function mtoin (SRC ){

SRC. style. borderleftcolor = mmenuinbordercolor;
SRC. style. borderrightcolor = mmenuoutbordercolor;
SRC. style. bordertopcolor = mmenuinbordercolor;
SRC. style. borderbottomcolor = mmenuoutbordercolor;
SRC. style. backgroundcolor = mmenuincolor;
SRC. style. Color = mmenuovercolor;
}
Function mnochange (SRC ){
SRC. style. borderleftcolor = mmenucolor;
SRC. style. borderrightcolor = mmenucolor;
SRC. style. bordertopcolor = mmenucolor;
SRC. style. borderbottomcolor = mmenucolor;
SRC. style. backgroundcolor = '';
SRC. style. Color = mfontcolor;

}
Function mallhide (){
For (VAR nummenu = 0; nummenu <mmenus. length; nummenu ++ ){
VaR themenu = Document. All ['mmenu' + nummenu]
VaR themenudiv = Document. All ['mmenudiv '+ nummenu]
Mnochange (themenu );
Mmenuhide (themenudiv );
}
}
Function mmenuhide (menuid ){

Fade (menuid, false, 5 );
Misshow = false;
}
Function mmenushow (menuid, pid ){

Menuid. style. Left = mposflag. offsetleft + PID. offsetleft + mmenuadjust; menuid. style. Top = mposflag. offsettop + mmenutable. offsetheight + mmenuadjustv;
If (mmenuitemwidth + parseint (menuid. style. Left)> document. Body. clientwidth + document. Body. scrollleft)
Menuid. style. Left = Document. Body. clientwidth + document. Body. scrollleft-mmenuitemwidth;
Fade (menuid, true, 5 );
Misshow = true;
}
Function mmenu_over (menuid, x ){
ToEl = getreal (window. event. toelement, "classname", "coolbutton ");
Fromel = getreal (window. event. fromelement, "classname", "coolbutton ");
If (toEl = fromel) return;
If (x = 0 | x = 4 ){
Misshow = false;
Mallhide ();
Mtoout (eval ("mmenu" + x ));
} Else {

Mallhide ();
Mtoin (eval ("mmenu" + x ));
Mmenushow (menuid, Eval ("mmenu" + x ));

}
Cleartimeout (mpoptimer );
}
Function mmenu_out (x ){
ToEl = getreal (window. event. toelement, "classname", "coolbutton ");
Fromel = getreal (window. event. fromelement, "classname", "coolbutton ");
If (toEl = fromel) return;
If (misshow ){
Mtoin (eval ("mmenu" + x ));
} Else {
Mnochange (eval ("mmenu" + x ));
}
Mpopout ()
}
Function mmenu_down (menuid, x ){
If (misshow ){
Mmenuhide (menuid );
Mtoout (eval ("mmenu" + x ));
}
Else {
Mtoin (eval ("mmenu" + x ));
Mmenushow (menuid, Eval ("mmenu" + x ));
Misdown = true;
}
}
Function mmenu_up (){
Misdown = false;
}
Function mmenuitem_over (x, I ){
Srcel = getreal (window. event. srcelement, "classname", "coolbutton ");
If (misdown ){
Mtoin (srcel );
}
Else {
Mtoout (srcel );
}
Mthestatus = mmenus [X]. items [I]. statustxt;
If (mthestatus! = ""){
Musestatus = true;
Window. Status = mthestatus;
}
Cleartimeout (mpoptimer );
}
Function mmenuitem_out (){
Srcel = getreal (window. event. srcelement, "classname", "coolbutton ");
Mnochange (srcel );
If (musestatus) window. Status = "";
Mpopout ()
}
Function mmenuitem_down (){
Srcel = getreal (window. event. srcelement, "classname", "coolbutton ");
Mtoin (srcel)
Misdown = true;
}
Function mmenuitem_up (){
Srcel = getreal (window. event. srcelement, "classname", "coolbutton ");
Mtoout (srcel)
Misdown = false;
}
Function mexec2 (x ){
VaR cmd;
If(mmenus%x%.tar get = "blank "){
Cmd = "window. Open ('" + mmenus [X]. Command + "')";
} Else {
Too many mmenus%x%.tar get + ". Location = \" "+ mmenus [X]. Command + "\"";
}
Eval (CMD );
}
Function mexec (x, I ){
VaR cmd;
If(mmenus%x%.items% I %.tar get = "blank "){
Cmd = "window. Open ('" + mmenus [X]. items [I]. Command + "')";
} Else {
Too many mmenus%x%.items% I %.tar get + ". Location = \" "+ mmenus [X]. items [I]. Command + "\"";
}
Eval (CMD );
}
Function mbody_click (){

If (misshow ){
Srcel = getreal (window. event. srcelement, "classname", "coolbutton ");
For (VAR x = 0; x <= mmenus. length; X ++ ){
If (srcel. ID = "mmenu" + x)
Return;
}
Mallhide ();
}
}
Document. onclick = mbody_click;
Function mwritetodocument (){
VaR mwb = 1;
VaR stringx = '<Div id = "mposflag" style = "position: absolute; "> </div> <Table id = mmenutable border = 0 cellpadding = 3 cellspacing = 2 width = '+ mmenuwidth + 'height =' + mmenuheight + 'bgcolor = '+ mmenucolor +
'Onselectstart = "event. returnvalue = false" '+
'Style = "cursor: '+ mcursor +'; '+ mfonts +
'Border-left: '+ mwb + 'px solid' + mmenuoutbordercolor +'; '+
'Border-Right: '+ mwb + 'px solid' + mmenuinbordercolor +'; '+
'Border-top: '+ mwb + 'px solid' + mmenuoutbordercolor +'; '+
'Border-bottom: '+ mwb + 'px solid' + mmenuinbordercolor +'; padding: 0px "> <tr>'
For (VAR x = 0; x <mmenus. length; X ++ ){
VaR thismenu = mmenus [x];
VaR imgsize = "";
If (thismenu. sizex! = "0" | thismenu. sizey! = "0") imgsize = "width =" + thismenu. sizex + "Height =" + thismenu. sizey;
VaR ifspace = "";
If (thismenu. Caption! = "") Ifspace = "";
Stringx + = "<TD nowrap class = coolbutton id = mmenu" + x + "style = 'border:" + mitemedge + "PX solid" + mmenucolor +
"'Width =" + mmenuunitwidth + "PX onmouseover = mmenu_over (mmenudiv" + x +
"," + X + ") onmouseout = mmenu_out (" + x +
") Onmousedown = mmenu_down (mmenudiv" + x + "," + x + ")";
If (thismenu. Command! = ""){
Stringx + = "onmouseup = mmenu_up (); mexec2 (" + x + ");";
} Else {
Stringx + = "onmouseup = mmenu_up ()";
}
If (thismenu. Pos = "0 "){
Stringx + = "align = center> ";
} Else if (thismenu. Pos = "1 "){
Stringx + = "align = center>" + thismenu. caption + ifspace + " </TD> ";
} Else if (thismenu. Pos = "2 "){
Stringx + = "align = center background = '" + thismenu. IMG + "'>" + thismenu. Caption + "</TD> ";
} Else {
Stringx + = "align = center>" + thismenu. Caption + "</TD> ";
}
Stringx + = "";
}
Stringx + = "<TD width = *> </TD> </tr> </table> ";

For (VAR x = 0; x <mmenus. length; X ++ ){
Thismenu = mmenus [x];
If (x = 0 | x = 4 ){
Stringx + = '<Div id = mmenudiv' + x + 'style = "visiable: none"> </div> ';
} Else {
Stringx + = '<Div id = mmenudiv' + x +
'Style = "cursor: '+ mcursor +'; position: absolute; '+
'Width: '+ mmenuitemwidth + 'px; Z-index:' + (x + 100 );
If (mmenuinbordercolor! = Mmenuoutbordercolor & msubedge = "0 "){
Stringx + = '; border-left: 1px solid' + mmidoutcolor +
'; Border-top: 1px solid' + mmidoutcolor ;}
Stringx + = '; border-Right: 1px solid' + mmenuinbordercolor +
'; Border-bottom: 1px solid' + mmenuinbordercolor +'; visibility: hidden "onselectstart =" event. returnvalue = false "> \ n' +
'<Table width = "100%" border = "0" Height = "100%" align = "center" cellpadding = "0" cellspacing = "2"' +
'Style = "'+ mfonts + 'border-left: 1px solid' + mmenuoutbordercolor;
If (mmenuinbordercolor! = Mmenuoutbordercolor & msubedge = "0 "){
Stringx + = '; border-Right: 1px solid' + mmidincolor +
'; Border-bottom: 1px solid' + mmidincolor ;}
Stringx + = '; border-top: 1px solid' + mmenuoutbordercolor +
'; Padding: 4px "bgcolor =' + mmenucolor + '> \ N'
For (VAR I = 0; I <thismenu. Items. length; I ++ ){
VaR thismenuitem = thismenu. items [I];
VaR imgsize = "";
If (thismenuitem. sizex! = "0" | thismenuitem. sizey! = "0") imgsize = "width =" + thismenuitem. sizex + "Height =" + thismenuitem. sizey;
VaR ifspace = "";
If (thismenu. Caption! = "") Ifspace = "";
If (! Thismenuitem. isline ){
Stringx + = "<tr> <TD class = coolbutton style = 'border:" + mitemedge + "PX solid" + mmenucolor +
"'Width = 100% Height = 15px onmouseover = \" mmenuitem_over ("+ x +", "+ I +
"); \" Onmouseout = mmenuitem_out () onmousedown = mmenuitem_down () onmouseup = ";
Stringx + = "mmenuitem_up (); mexec (" + x + "," + I + ");";
If (thismenuitem. Pos = "0 "){
Stringx + = "> </tr> ";
} Else if (thismenuitem. Pos = "1 "){
Stringx + = ">" + thismenuitem. caption + ifspace + " </TD> </tr> ";
} Else if (thismenuitem. Pos = "2 "){
Stringx + = "background = '" + thismenuitem. IMG + "'>" + thismenuitem. Caption + "</TD> </tr> ";
} Else {
Stringx + = ">" + thismenuitem. Caption + "</TD> </tr> ";
}
} Else {
Stringx + = '<tr> <TD Height = "1" background = "hr.gif" onmousemove = "cleartimeout (mpoptimer ); "> </TD> </tr> \ n ';
}
} Stringx + = '</table> \ n </div>'
}
 
}

Document. Write ("<Div align = 'left'>" + stringx + "</div> ");
}

Mpmenu1 = new mmenu ('site resource ', 'HTTP: // www.jzzy.net/', 'self ','','','','');
Mpmenu2 = new mmenu ('excellent download', '/Web. asp', 'Self ','','','','');
Mpmenu2.additem (New mmenuitem ('dreamweaver resource', '/Dreamweaver/index. ASP ', 'Self', false ,'','','','',''));
Mpmenu2.additem (New mmenuitem ('fireworks resource', '/fireworks/index. ASP ', 'Self', false ,'','','','',''));
Mpmenu2.additem (New mmenuitem ('Flash resource', '/flash/index. ASP ', 'Self', false ,'','','','',''));
Mpmenu2.additem (New mmenuitem ('photoshop filter', '/Photoshop/index. ASP ', 'Self', false ,'','','','',''));
Mpmenu3 = new mmenu ('free request', '/free/index. asp', 'Self ','','','','');
Mpmenu3.additem (New mmenuitem ('free counter request', 'HTTP: // 61.134.4.132: 1200/free/count/index. ASP ', 'Self', false ,'','','','',''));
Mpmenu3.additem (New mmenuitem ('free message board requests', '/free/guestbook/index. ASP ', 'Self', false ,'','','','',''));
Mpmenu3.additem (New mmenuitem ('free online survey request', '/free/vote/index. ASP ', 'Self', false ,'','','','',''));
Mpmenu4 = new mmenu ('site source code ','/technic. asp ', 'Self ','','','','');
Mpmenu4.additem (New mmenuitem ('script collection ','/script/index. ASP ', 'Self', false ,'','','','',''));
Mpmenu4.additem (New mmenuitem ('html special effect ','/html/index. ASP ', 'Self', false ,'','','','',''));
Mpmenu4.additem (New mmenuitem ('asp source code download', '/asp/index. ASP ', 'Self', false ,'','','','',''));
Mpmenu4.additem (New mmenuitem ('xml aspect ','/XML/index. ASP ', 'Self', false ,'','','','',''));
Mpmenu4 = new mmenu ('winsky. TK ', 'HTTP: // winsky.51.net', 'Self ','','','','');
Mwritetodocument ();
</SCRIPT>