Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Problem med layer

Postades av 2005-03-15 22:25:52 - Mats Kongstad, i forum javascript/dhtml, Tråden har 1 Kommentarer och lästs av 567 personer

Leker lite med ett nyhetssystem som finns här på Pellesoft: http://www.pellesoft.se/communicate/userprogram/program.aspx?tid=15

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


Svara

Sv: Problem med layer

Postades av 2005-03-15 22:50:01 - Göran Andersson

Det finns ju en del i koden som går att städa upp... En del av koden är till exempel helt onödig...

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?


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 721
27 958
271 751
5 660
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies