Leker lite med ett nyhetssystem som finns här på Pellesoft: http://www.pellesoft.se/communicate/userprogram/program.aspx?tid=15 Det finns ju en del i koden som går att städa upp... En del av koden är till exempel helt onödig...Problem med layer
Systemet presenterar data i en scroll och "klipper" efter 80 tecken.
Skulle vilja öka värdet på antal tecken som presenteras. Hur?
Eftersom jag inte har en aning om var i koden dessa parametrar ligger klipper jag in hela sidan:
---------------------------------------
<script LANGUAGE="javascript">
function openNewsAdd () {
var wNewsAdd = open("news_add.asp" ,"Visitkort","scrollbars=0,resizable,left=10,top=10,height=250,width=300");
document.isUnloading = false;
}
</script>
<table border="0" width="100" height="100">
<tr>
<td width="100" height="90">
<script language="JavaScript1.2">
<!-- Dimensions of the scroll box, height, length etc. --->
var scrollerwidth=100;
var scrollerheight=90;
var scrollerbgcolor='#FFFFFF';
//configure the below variable to change the contents of the scroller
var messages=new Array();
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT Format(dteDate,'dd-mmm hh:mm') AS dteDateConv, * FROM tblNews WHERE blnShow = TRUE ORDER BY intOrder, dteDate", Connection, 1
rad=0
if RS.EOF then
response.write "messages[0]=" & Chr(34) & Chr(34) & ";" & vbCrLf
response.write "messages[1]=" & Chr(34) & Chr(34) & ";" & vbCrLf
end if
While not RS.EOF
newsText=Server.HTMLEncode(RS("strNews")) '& Server.HTMLEncode("<b>")
newsText=Replace(newsText, Server.HTMLEncode("<b>"), "<b>")
newsText=Replace(newsText, Server.HTMLEncode("</b>"), "</b>")
newsText=Replace(newsText, vbCrLf, "<br>")
if Len(RS("strLink"))>0 then
response.write "messages[" & rad & "]=" & Chr(34) & "<font face='Verdana' size='1'><b>" & RS("dteDateConv") & "</b><br>" & newsText & "</font>" & Chr(34) & ";" & vbCrLf
else
response.write "messages[" & rad & "]=" & Chr(34) & "<font face='Verdana' size='1'><b>" & RS("dteDateConv") & "</b><br>" & newsText & "</font>" & Chr(34) & ";" & vbCrLf
end if
RS.movenext
rad=rad+1
WEND
if rad=1 then
response.write "messages[1]=" & Chr(34) & Chr(34) & ";" & vbCrLf
end if
response.write "messages[" & rad & "]=" & Chr(34) & Chr(34) & ";" & vbCrLf
RS.Close
Connection.Close
Set RS=Nothing
Set Connection=Nothing
%>
<!--- *********************** THER IS ONLY ONE THING EDITABLE BELOW THIS LINE *********************** -->
<!-- to set the speed of the scroller, change all the values maked 2000, (2000 flows, 100 no pause, press F3 and search for <!-- editable --> --->
if (messages.length>1)
i=2;
else
i=0;
function move1(whichlayer){
tlayer=eval(whichlayer);
if (tlayer.top>0&&tlayer.top<=1){
tlayer.top=0;
setTimeout("move1(tlayer)",2500); <!-- editable -->
setTimeout("move2(document.main.document.second)",2500);<!-- editable -->
return;
}
if (tlayer.top>=tlayer.document.height*-1){
tlayer.top-=1;
setTimeout("move1(tlayer)",20);
} else{
tlayer.top=scrollerheight;
tlayer.document.write(messages[i]);
tlayer.document.close();
if (i==messages.length-1)
i=0;
else
i++;
}
}
function move2(whichlayer){
tlayer2=eval(whichlayer);
if (tlayer2.top>0&&tlayer2.top<=1){
tlayer2.top=0;
setTimeout("move2(tlayer2)",2500);<!-- editable -->
setTimeout("move1(document.main.document.first)",2500);<!-- editable -->
return;
}
if (tlayer2.top>=tlayer2.document.height*-1){
tlayer2.top-=1;
setTimeout("move2(tlayer2)",20);
} else {
tlayer2.top=scrollerheight;
tlayer2.document.write(messages[i]);
tlayer2.document.close();
if (i==messages.length-1)
i=0;
else
i++;
}
}
function move3(whichdiv) {
tdiv=eval(whichdiv);
if (tdiv.style.pixelTop>0&&tdiv.style.pixelTop<=1){
tdiv.style.pixelTop=0;
setTimeout("move3(tdiv)",2500);<!-- editable -->
setTimeout("move4(second2)",2500);<!-- editable -->
return;
}
if (tdiv.style.pixelTop>=tdiv.offsetHeight*-1) {
tdiv.style.pixelTop-=1;
setTimeout("move3(tdiv)",20);
} else {
tdiv.style.pixelTop=scrollerheight;
tdiv.innerHTML=messages[i];
if (i==messages.length-1)
i=0;
else
i++;
}
}
function move4(whichdiv){
tdiv2=eval(whichdiv);
if (tdiv2.style.pixelTop>0&&tdiv2.style.pixelTop<=1){
tdiv2.style.pixelTop=0;
setTimeout("move4(tdiv2)",2500);<!-- editable -->
setTimeout("move3(first2)",2500);<!-- editable -->
return;
}
if (tdiv2.style.pixelTop>=tdiv2.offsetHeight*-1){
tdiv2.style.pixelTop-=1;
setTimeout("move4(second2)",20);
} else {
tdiv2.style.pixelTop=scrollerheight;
tdiv2.innerHTML=messages[i];
if (i==messages.length-1)
i=0;
else
i++;
}
}
function startscroll(){
if (document.all){
move3(first2);
second2.style.top=scrollerheight;
} else if (document.layers){
move1(document.main.document.first);
document.main.document.second.top=scrollerheight+5;
document.main.document.second.visibility='show';
}
}
window.onload=startscroll
</script>
<ilayer id="main" width=&{scrollerwidth}; height=&{scrollerheight}; bgColor=&{scrollerbgcolor};>
<layer id="first" left=0 top=1 width=&{scrollerwidth};>
<script language="JavaScript1.2">
if (document.layers)
document.write(messages[0]);
</script>
</layer>
<layer id="second" left=0 top=0 width=&{scrollerwidth}; visibility=hide>
<script language="JavaScript1.2">
if (document.layers)
document.write(messages[1]);
</script>
</layer>
</ilayer>
<script language="JavaScript1.2">
if (document.all){
document.writeln('<span id="main2" style="position:relative;width:'+scrollerwidth+';height:'+scrollerheight+';overflow:hiden;background-color:'+scrollerbgcolor+'">');
document.writeln('<div style="position:absolute;width:'+scrollerwidth+';height:'+scrollerheight+';clip:rect(0 '+scrollerwidth+' '+scrollerheight+' 0);left:0;top:0">');
document.writeln('<div id="first2" style="position:absolute;width:'+scrollerwidth+';left:0;top:1;">');
document.write(messages[0]);
document.writeln('</div>');
document.writeln('<div id="second2" style="position:absolute;width:'+scrollerwidth+';left:0;top:0">');
document.write(messages[1]);
document.writeln('</div>');
document.writeln('</div>');
document.writeln('</span>');
}
</script>
</td>
</tr>
<tr>
<td width="100" height="10"><p align=right>Skapa nyhet</p>
</td>
</tr>
</table>
---------------------------------------Sv: Problem med layer
Jag kan inte se att det finns någonting i koden som kortar av någon text. På vilket sätt klipps texten av? Är du säker på att den inte kortas av när den lagras i databasen?