Foros del Web - Ver Mensaje Individual

CORE · #2 (**permalink**) 07/03/2003, 11:44

Hola de nuevo

Aqui esta el codigo

Código:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">  
#divUpControl{
	position:absolute;
	width:160px;
	left:9px;
	top:34px;
	z-index:1;
	text-align: right;
	height: 19px;
} 
#divDownControl{
	position:absolute;
	width:159px;
	left:10px;
	top:247px;
	z-index:1;
	text-align: right;
	height: 19px;
} 
#divContainer{position:absolute; width:157px; height:200px; overflow:hidden; top:51px; left:10; clip:rect(0,320,240,0); visibility:visible} 
#divContent{
	position:absolute;
	top:-18px;
	left:0px;
	width: 142px;
	height: 1064px;
} 
</style>
<script language="JavaScript">// begin absolutely positioned scrollable area object scripts 
/*
Extension developed by David G. Miles (www.z3roadster.net/dreamweaver)
Original Scrollable Area code developed by Thomas Brattli 
To add more shock to your site, visit www.DHTML Shock.com
*/

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>
</head>

<body bgcolor="999999" onLoad="InitialiseScrollableArea()">
<!-- begin absolutely positioned scrollable area object--> 
<div id="divUpControl"> <a href="javascript:;" onMouseOver="PerformScroll(-7)" onMouseOut="CeaseScroll()"><img src="select.gif" width="17" height="17" border="0"></a></div>
<div id="divDownControl"> <a href="javascript:;" onMouseOver="PerformScroll(7)" onMouseOut="CeaseScroll()"><img src="select.gif" width="17" height="17" border="0"></a></div>
<div id="divContainer"> 
  <div id="divContent">
    <table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td> <b>Scroll Area Content Start</b> <p> Lorem ipsum dolor sit amet, 
            consectetur adipscing elit, sed diam nonnumy eiusmod tempor incidunt 
            ut labore et dolore magna aliquam erat volupat.</p>
          <p>Et harumd dereud facilis est er expedit distinct. Nam liber a tempor 
            cum soluta nobis eligend optio comque nihil quod a impedit anim id 
            quod maxim placeat facer possim omnis es voluptas assumenda est, omnis 
            dolor repellend. Temporem autem quinsud et aur office debit aut tum 
            rerum necesit atib saepe eveniet ut er repudiand sint et molestia 
            non este recusand.</p>
          <p>Lorem ipsum dolor sit amet, consectetur adipscing elit, sed diam 
            nonnumy eiusmod tempor incidunt ut labore et dolore magna aliquam 
            erat volupat.</p>
          <p>Et harumd dereud facilis est er expedit distinct. Nam liber a tempor 
            cum soluta nobis eligend optio comque nihil quod a impedit anim id 
            quod maxim placeat facer possim omnis es voluptas assumenda est, omnis 
            dolor repellend. Temporem autem quinsud et aur office debit aut tum 
            rerum necesit atib saepe eveniet ut er repudiand sint et molestia 
            non este recusand.</p>
          <b>Scroll Area Content End</b> </td>
      </tr>
    </table>
  </div>
</div>
<!-- end absolutely positioned scrollable area object --> 
</body>
</html>