网页制作 
首页 > 网页制作 > 浏览文章

浮动菜单,可实现上下滚动的效果

(编辑:jimmy 日期: 2024/11/16 浏览:3 次 )

代码还可进一步精简,时间关系,这里先发上来大家再优化吧,菜单项自己再添一些。

<html>
<head>
<title>浮动菜单</title>
<style>
BODY {
 FONT-SIZE: 9pt; COLOR: #333333
}
DIV {
 FONT-SIZE: 9pt; COLOR: #333333
}
TD {
 FONT-SIZE: 9pt; COLOR: #333333
}
A:link {
 FONT-SIZE: 9pt; COLOR: #3366cc; LINE-HEIGHT: 13pt; TEXT-DECORATION: none
}
A:visited {
 FONT-SIZE: 9pt; COLOR: #3366cc; TEXT-DECORATION: none
}
A:active {
 FONT-SIZE: 9pt; TEXT-DECORATION: none
}
A:hover {
 COLOR: #0000ff; TEXT-DECORATION: none
}
</style>
<SCRIPT>var sRepeat=null;function doScrollerIE(dir, src, amount) { if (amount==null) {amount=10} if (dir=="up") {document.all[src].scrollTop-=amount} else {document.all[src].scrollTop+=amount} if (sRepeat==null) {sRepeat = setInterval("doScrollerIE('" + dir + "','" + src + "'," + amount + ")",100)} return false}window.document.onmouseout = new Function("clearInterval(sRepeat);sRepeat=null");window.document.ondragstart = new Function("return false");function msover(){{event.srcElement.style.color="000099";event.srcElement.style.backgroundColor="99ccff";event.srcElement.style.cursor = "hand";}}function msout(){{event.srcElement.style.color="";event.srcElement.style.backgroundColor="";event.srcElement.style.cursor = "auto";}}function markover(){{event.srcElement.style.color="990000";event.srcElement.style.cursor = "hand";}}function markout(){{event.srcElement.style.color="000000";event.srcElement.style.cursor = "auto";}}function toggle( targetId ){{target = document.all( targetId );if (target.style.display == "none"){target.style.display = "";} else {target.style.display = "none";}}}</SCRIPT>
</head>
<body>
<table border=0>
<TR><TD onMouseOver="this.style.backgroundColor  = '990000';" onMouseOut="this.style.backgroundColor = '000099';" align=right BGCOLOR=#000099><A CLASS=scroll ONMOUSEOVER="return doScrollerIE('up','s1',10)" ONMOUSEOUT="clearInterval(sRepeat)" HREF="#"><font color=white>向下滚动</A></TD></TR>          
<TR><TD BGCOLOR=99ccff><DIV ID=s1 CLASS=sc1 STYLE="width: 121; height: 125; overflow: hidden; background: #99ccff;">          
<A CLASS=scr HREF="">天方夜潭</A><BR>
<A CLASS=scr HREF="">红楼梦</A><BR>
<A CLASS=scr HREF="">水浒传</A><BR>
<A CLASS=scr HREF="">仲夏夜</A><BR>
<A CLASS=scr HREF="">聊天室ver2.3</A><BR>
<A CLASS=scr HREF="">江水滩</A><BR>
<A CLASS=scr HREF="">麻烦了</A><BR>
<A CLASS=scr HREF="">新中国</A><BR>
<A CLASS=scr HREF="">摊上大事儿</A><BR> 
<A CLASS=scr HREF="">京东花园</A><BR>
<A CLASS=scr HREF="">天堂</A><BR>
<A CLASS=scr HREF="">HTML5</A><BR> 
<A CLASS=scr HREF="">明月星空</A><BR>
<A CLASS=scr HREF="">白酒品牌</A><BR>
<A CLASS=scr HREF="">中华武术</A><BR>      
</DIV></TD></TR>          
<TR><TD align=right onMouseOver="this.style.backgroundColor  = '990000';" onMouseOut="this.style.backgroundColor = '000099';" BGCOLOR=#000099><A CLASS=scroll ONMOUSEOVER="return doScrollerIE('down','s1',10)" ONMOUSEOUT="clearInterval(sRepeat)" HREF="#"><font color=white>向上滚动</A></TD></TR> </table>
</body>
</html>

上一篇:在FireFox中导入导出Cookies与收藏夹的解决办法
下一篇:如何用JavaScript获取/计算页面元素的offset
一句话新闻
微软与英特尔等合作伙伴联合定义“AI PC”:键盘需配有Copilot物理按键
几个月来,英特尔、微软、AMD和其它厂商都在共同推动“AI PC”的想法,朝着更多的AI功能迈进。在近日,英特尔在台北举行的开发者活动中,也宣布了关于AI PC加速计划、新的PC开发者计划和独立硬件供应商计划。
在此次发布会上,英特尔还发布了全新的全新的酷睿Ultra Meteor Lake NUC开发套件,以及联合微软等合作伙伴联合定义“AI PC”的定义标准。