Forum'da ara:
Ara


« Önceki başlık :: Sonraki başlık »  
Yazar Mesaj
Mesaj15.07.2009, 13:30 (UTC)    
Mesaj konusu: Klasik Bir Menü Kodu

Kod:
<head>

<SCRIPT LANGUAGE="VBScript">

Sub Header_onclick()

If MainHeader.style.display = "" then

MainHeader.style.display = "none"

Else 

MainHeader.style.display = ""

End If

End Sub

 

Sub Header_onmouseover()

Header.style.color= "#FF3300"

End Sub

 

Sub Header_onmouseout()

Header.style.color= "#000000"

End Sub

 

Sub Head1_onclick()

If TOC1.style.display = "" then

TOC1.style.display = "none"

Else 

TOC1.style.display = ""

End If

End Sub

 

Sub Head1_onmouseover()

Head1.style.color= "#FF3300"

End Sub

 

Sub Head1_onmouseout()

Head1.style.color= "#000000"

End Sub

 

Sub Head2_onclick()

If TOC2.style.display = "" then

TOC2.style.display = "none"

Else 

TOC2.style.display = ""

End If

End Sub

 

Sub Head2_onmouseover()

Head2.style.color= "#FF3300"

End Sub

 

Sub Head2_onmouseout()

Head2.style.color= "#000000"

End Sub

 

Sub Head3_onclick()

If TOC3.style.display = "" then

TOC3.style.display = "none"

Else 

TOC3.style.display = ""

End If

End Sub

 

Sub Head3_onmouseover()

Head3.style.color= "#FF3300"

End Sub

 

Sub Head3_onmouseout()

Head3.style.color= "#000000"

End Sub

 

Sub Head4_onclick()

If TOC4.style.display = "" then

TOC4.style.display = "none"

Else 

TOC4.style.display = ""

End If

End Sub

 

Sub Head4_onmouseover()

Head4.style.color= "#FF3300"

End Sub

 

Sub Head4_onmouseout()

Head4.style.color= "#000000"

End Sub

 

</SCRIPT>

 

 

</head>

<body>

 

<FONT FACE="Verdana" SIZE=2>

<IV ID="Header">

<CENTER>

<H2>

M E N Ü

</H2>

</CENTER>

</DIV>

 

<IV ID="MainHeader" STYLE="display:none">

<UL>

<IV ID="Head1">

<FONT SIZE=3>

<B>ÜCRETSİZ HİZMETLER</B><BR>

</FONT>

<FONT SIZE=2>

Siteniz için tamamı ücretsiz webmaster kaynakları... (1)

</FONT>

</DIV>

<P>

<IV ID="TOC1" STYLE="display:none">

<FONT SIZE=2>

<UL>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">İstatistikli Sayaç</A>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">Ziyaretçi Defteri</A>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">Forum</A>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">Maillist</A>

</UL>

</FONT>

</DIV>

<P>

<IV ID="Head2">

<FONT SIZE=3>

<B>MELODİLER</B><BR>

<FONT SIZE=2>

Nokia-Ericsson-Panasonic-Alcatel-Siemens. (2)

</FONT>

</DIV>

<P>

<IV ID="TOC2" STYLE="display:none">

<FONT SIZE=2>

<UL>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">Nokia</A>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">Ericsson</A>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">Panasonic</A>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">Alcatel</A>

</UL>

</FONT>

</DIV>

<P>

<IV ID="Head3">

<FONT SIZE=3>

<B>ONLINE OYUNLAR</B><BR>

<FONT SIZE=2>

Oynarken çok eğleneceğiniz oyunlar. (3)

</FONT>

</DIV>

<IV ID="TOC3" STYLE="display:none">

<FONT SIZE=2><br>

<UL>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">King-Fu</A>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">Mario</A>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">Tetris</A>

<LI TYPE=DISC><A HREF="http://www.gezginler.net/">Bilardo</A>

</UL>

</FONT>

</DIV>

______________


Reklamın Mekanı Sizi Ele Güne Reklam Ederiz √ Smile Smile
Önceki mesajları göster:   


Powered by phpBB © 2001, 2005 phpBB Group
Türkçe Çeviri: phpBB Türkiye & Erdem Çorapçıoğlu