ทำ LINK ให้เลือกว่าจะให้ตัวอักษรขึ้นหรือลง

ทำ LINK ให้เลือกว่าจะให้ตัวอักษรขึ้นหรือลง

นำ CODE ด้านล่างไปไว้ที่ <head> ครับ

<style type="text/css"> #divUpControl{position:absolute; width:320; left:10; top:10; z-index:1; text-align: right} #divDownControl{position:absolute; width:320; left:10; top:270; z-index:1; text-align: right} #divContainer{position:absolute; width:320; height:240; overflow:hidden; top:30; left:10; clip:rect(0,320,240,0); visibility:hidden} #divContent{position:absolute; top:0; left:0} </style> <script language="JavaScript">// begin absolutely positioned scrollable area object scripts // Extension developed by David G. Miles // Original Scrollable Area code developed by Thomas Brattli function verifyCompatibleBrowser(){ this.ver=navigator.appVersion this.dom=document.getElementById?1:0 this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0; this.ie4=(document.all && !this.dom)?1:0; this.ns5=(this.dom && parseInt(this.ver) >= 5) ?1:0; this.ns4=(document.layers && !this.dom)?1:0; this.bw=(this.ie5 || this.ie4 || this.ns4 || this.ns5) return this } bw=new verifyCompatibleBrowser() var speed=50 var loop, timer function ConstructObject(obj,nest){ nest=(!nest) ? '':'document.'+nest+'.' this.el=bw.dom?document.getElementById(obj):bw.ie4?document.all[obj]:bw.ns4?eval(nest+'document.'+obj):0; this.css=bw.dom?document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?eval(nest+'document.'+obj):0; this.scrollHeight=bw.ns4?this.css.document.height:this.el.offsetHeight this.clipHeight=bw.ns4?this.css.clip.height:this.el.offsetHeight this.up=MoveAreaUp;this.down=MoveAreaDown; this.MoveArea=MoveArea; this.x; this.y; this.obj = obj + "Object" eval(this.obj + "=this") return this } function MoveArea(x,y){ this.x=x;this.y=y this.css.left=this.x this.css.top=this.y } function MoveAreaDown(move){ if(this.y>-this.scrollHeight+objContainer.clipHeight){ this.MoveArea(0,this.y-move) if(loop) setTimeout(this.obj+".down("+move+")",speed) } } function MoveAreaUp(move){ if(this.y<0){ this.MoveArea(0,this.y-move) if(loop) setTimeout(this.obj+".up("+move+")",speed) } } function PerformScroll(speed){ if(initialised){ loop=true; if(speed>0) objScroller.down(speed) else objScroller.up(speed) } } function CeaseScroll(){ loop=false if(timer) clearTimeout(timer) } var initialised; function InitialiseScrollableArea(){ objContainer=new ConstructObject('divContainer') objScroller=new ConstructObject('divContent','divContainer') objScroller.MoveArea(0,0) objContainer.css.visibility='visible' initialised=true; } // end absolutely positioned scrollable area object scripts </script> <script language="JavaScript">  </script>

นำ CODE ด้านล่างไปไว้ที่ <body> ครับ

<div id="divUpControl" style="left: 230px; top: 55px"> <a href="javascript:;" onMouseOver="PerformScroll(-7)" onMouseOut="CeaseScroll()"><font face="MS Sans Serif, Microsoft Sans Serif">[เลื่อนขึ้น]</font></a> </div>  <div id="divDownControl" style="left: 230px; top: 210px"> <a href="javascript:;" onMouseOver="PerformScroll(7)" onMouseOut="CeaseScroll()"><font face="MS Sans Serif, Microsoft Sans Serif">[เลื่อนลง]</font></a> </div>  <div id="divContainer" style="width: 320px; height: 89px; left: 230px; top: 90px; background-color: #66CCFF; layer-background-color: #66CCFF; border: 1px none #000000"> <div id="divContent"> <font face="MS Sans Serif" size="1">เป็นแบบที่เห็นครับ พอกดปุ่ม "เลื่อนขึ้น" ก็จะขึ้นมา</font> <p><font face="MS Sans Serif" size="1">แต่พอกดปุ่ม "เลื่อนลง" ก็จะเลื่อนลงไป</font></p> <p><font face="MS Sans Serif" size="1">ลองดูนะครับ</font> <p> <p> <p> </div> </div>

เพิ่ม onLoad="InitialiseScrollableArea()" เข้าไปใน <body> ครับ เป็นแบบด้านล่างนี้ครับ