Taget fra
http://www.bratta.com --------------
<html>
<head>
<title>Cross-browser Dynamic HTML Scripts - ScrollText</title>
<meta name="Author" content="Thomas Brattli (webmaster@bratta.com)">
<meta name="KeyWords" content="Dynamic HTML Script">
<meta name="Description" content="">
<style type="text/css">
TD{font-family:arial,helvetica; font-size:12px}
BODY{background-color:white; font-family:arial,helvetica; font-size:12px}
A{color:Navy; text-decoration:none}
A:hover{color:red; text-decoration:underline}
A:visited:{color:#808080}
H3{font-size:20px; font-weight:bold;}
SPAN.clHead{font-size:20px; font-weight:bold;}
.clBg{background-color:Silver; padding:2px; font-size:20px; font-weight:bold; color:Navy}
TD.clInfo{font-family:arial,helvetica; font-size:12px; color:#333333}
DIV{font-family:arial,helvetica; font-size:12px}
P{font-family:arial,helvetica; font-size:12px}
PRE{font-family:Courier new; font-size:11px; color:red}
CODE{font-family:Courier new; font-size:12px; color:red}
.clSmall{font-size:11px}
</style>
<style type="text/css">
#divUp{position:absolute; left:170; top:190}
#divDown{position:absolute; left:170; top:380}
#divCont{position:absolute; width:300; height:150; overflow:hidden; top:220; left:170; clip:rect(0,300,150,0); visibility:hidden}
#divText{position:absolute; top:0; left:0}
</style>
<script>
//checking for frames # ## ##########################
if(self.name==top.name){
location.href="../scripts.asp?url=scripts/scripts.asp?id=3&ac=23&order=created"
}
</script>
<script type="text/javascript" language="JavaScript">
/********************************************************************************
Copyright (C) 1999 Thomas Brattli
This script is made by and copyrighted to Thomas Brattli at
www.bratta.comVisit for more great scripts. This may be used freely as long as this msg is intact!
I will also appriciate any links you could give me.
********************************************************************************/
//Default browsercheck, added to all scripts!
function checkBrowser(){
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 checkBrowser()
/*****************
You set the width and height of the divs inside the style tag, you only have to
change the divCont, Remeber to set the clip the same as the width and height.
You can remove the divUp and divDown layers if you want.
This script should also work if you make the divCont position:relative.
Then you should be able to place this inside a table or something. Just remember
that Netscape crash very easily with relative positioned divs and tables.
Updated with a fix for error if moving over layer before pageload.
****************/
//If you want it to move faster you can set this lower:
var speed=50
//Sets variables to keep track of what's happening
var loop, timer
//Object constructor
function makeObj(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=goUp;this.down=goDown;
this.moveIt=moveIt; this.x; this.y;
this.obj = obj + "Object"
eval(this.obj + "=this")
return this
}
function moveIt(x,y){
this.x=x;this.y=y
this.css.left=this.x
this.css.top=this.y
}
//Makes the object go up
function goDown(move){
if(this.y>-this.scrollHeight+oCont.clipHeight){
this.moveIt(0,this.y-move)
if(loop) setTimeout(this.obj+".down("+move+")",speed)
}
}
//Makes the object go down
function goUp(move){
if(this.y<0){
this.moveIt(0,this.y-move)
if(loop) setTimeout(this.obj+".up("+move+")",speed)
}
}
//Calls the scrolling functions. Also checks whether the page is loaded or not.
function scroll(speed){
if(loaded){
loop=true;
if(speed>0) oScroll.down(speed)
else oScroll.up(speed)
}
}
//Stops the scrolling (called on mouseout)
function noScroll(){
loop=false
if(timer) clearTimeout(timer)
}
//Makes the object
var loaded;
function scrollInit(){
oCont=new makeObj('divCont')
oScroll=new makeObj('divText','divCont')
oScroll.moveIt(0,0)
oCont.css.visibility='visible'
loaded=true;
}
//Call the init on page load
onload=scrollInit;
</script>
</HEAD>
<BODY bgcolor="White">
<table width="90%" align="center"><tr><td class="clSmall"><form method="post" name="frmNews" action="
http://www.listbot.com/cgi-bin/subscriber">Get updated when this site is!<br><input type=hidden name="list_id" value="experience_dhtml"><input type=hidden name="Act" value="subscribe_list"><input type=text name="e_mail" value="Your Email" size="13"><br><a href="#" onclick="document.frmNews.submit(); return false">Join Newsletter</a> - <a href="../newsletter/index.asp">More info</a></form></td><td align="right"><A target="_blank" HREF="
http://ad.doubleclick.net/jump/bratta.adventure/1409;cat=1409;lan=01;typ=01;ref=01;pos=01;kw=Scripts;sz=468x60;ord=354822?"><IMG SRC="
http://ad.doubleclick.net/ad/bratta.adventure/1409;cat=1409;lan=01;typ=01;ref=01;pos=01;kw=Scripts;sz=468x60;ord=354822?" border=0 height="60" width="468"></A><br> <br></td></tr></table><div id="divUp">
<a href="#" onmouseover="scroll(-2)" onmouseout="noScroll()">[slow]</a>
<a href="#" onmouseover="scroll(-7)" onmouseout="noScroll()">[medium]</a>
<a href="#" onmouseover="scroll(-10)" onmouseout="noScroll()">[fast]</a>
</div>
<div id="divDown">
<a href="#" onmouseover="scroll(2)" onmouseout="noScroll()">[slow]</a>
<a href="#" onmouseover="scroll(7)" onmouseout="noScroll()">[medium]</a>
<a href="#" onmouseover="scroll(10)" onmouseout="noScroll()">[fast]</a>
</div>
<div id="divCont">
<div id="divText">
<p>News: <br>
www.bratta.com/dhtml - Have you ever experienced DHTML is now updated
with more script, demos and how to's then ever. Visit now!
Also added: The DHTML Scriptomania, a new and better interface
to browser the scripts, demos and how to's.</p>
<p>
test text test text test text test text test text test text<br><br>
test text test text test text test text test text test text<br>
test text test text test text test text test text test text<br>
test text test text test text test text test text test text<br>
test text test text test text test text test text test text<br></p>
<p>
test text test text test text test text test text test text<br>
test text test text test text test text test text test text<br>
test text test text test text test text test text test text<br><br>
test text test text test text test text test text test text<br>
test text test text test text test text test text test text - END</p>
</div>
</div>
<table width="90%" align="center" cellpadding="5">
<tr>
<td valign="TOP">
<h3>DHTML Script - ScrollText</h3>
<p>This script makes you scroll you text manually, up or down at different speeds. This script now also checks how far it can scroll and can't be scrolled longer then to "the bottom". Updated with a small fix for a bug that happened when someone tried to mouseover the links before the script had loaded.</p>
</td>
<td width="180" valign="TOP">
<table width="180" border="0" cellspacing="0" cellpadding="5" bgcolor="Silver">
<tr>
<td class="clInfo"><b>ScrollText</b><br></td>
<td nowrap class="clInfo"><a href="source.asp?id=3&sourced=12207"> [view source] </a></td>
</tr>
<tr>
<td class="clInfo">Created:</td>
<td class="clInfo">11/1/99</td>
</tr>
<tr>
<td class="clInfo">Last updated:</td>
<td class="clInfo">10/12/99 </td>
</tr>
<tr>
<td class="clInfo">Sourced:</td>
<td class="clInfo">12207</td>
</tr>
<tr>
<td valign="TOP" class="clInfo">Works in:</td>
<td class="clInfo">NN4 IE4 IE5</td>
</tr>
<tr>
<td class="clInfo">Rating:</td>
<td class="clInfo">8.28 (Votes: 225)</td>
</tr>
<tr>
<td valign="TOP" class="clInfo">Rate:</td>
<td class="clInfo">
<script>
function goForm(){
form=document.forms.frmRate
win=window.open("","votewindow","toolbars=no,width=200,height=200")
win.location.href="rate.asp?id="+form.id.value
+"&sname="+form.sname.value
+"&rate="+form.rate[form.rate.selectedIndex].value
}
</script>
<form action="rate.asp" name="frmRate">
<input type="hidden" name="id" value="3">
<input type="hidden" name="sname" value="ScrollText">
<select name="rate">
<option value="9">9</option>
<option value="8">8</option>
<option value="7">7</option>
<option value="6">6</option>
<option value="5">5</option>
<option value="4">4</option>
<option value="3">3</option>
<option value="2">2</option>
<option value="1">1</option>
</select>
<a href="rate.asp" onclick="goForm(); return false">[rate]</a></form>
</td>
</tr>
<tr>
<td align="left" valign="TOP" class="clInfo">
<a href="scripts.asp?id=2&ac=22&order=created">« Previous</a><br>
Stylechange
</td>
<td align="right" class="clInfo">
<a href="scripts.asp?id=4&ac=24&order=created">Next »</a><br>
NewsScroll
</td>
</tr>
</table>
</td>
</tr>
</table><br><br>
<script>
if(document.all)document.styleSheets(0).addRule("TD.clInfo", "font-size:11px");
</script>
</BODY>
</HTML>
skulle virke
Andreas