webForumDet fria alternativet

Pausing up-down Scroller + ASP hur?

11 svar · 512 visningar · startad av SGuncel

SGuncelMedlem sedan jan. 2007218 inlägg
#1

Hej!

Jag tänker använda denna koden för att visa mina 10 senaste live meddelande från databasen och kommer använda i ASP.
Problemet är hur jag ska göra?

pausecontent2[0] måste vara från 0 till 9 för att fungera, men vet ej hur jag ska lösa det i ASP.
Nån som är snäll och hjälper mig?

Här har jag tagit scriptet ifrån: http://www.dynamicdrive.com/dynamicindex2/crosstick.htm

<script type="text/javascript">

/*Example message arrays for the two demo scrollers*/
var pausecontent2=new Array()
pausecontent2[0]='<a href="http://www.news.com">News.com: Technology and business reports</a>'
pausecontent2[1]='<a href="http://www.cnn.com">CNN: Headline and breaking news 24/7</a>'
pausecontent2[2]='<a href="http://news.bbc.co.uk">BBC News: UK and international news</a>'

</script>

<script type="text/javascript">

/***********************************************
* Pausing up-down scroller- © Dynamic Drive ([url]www.dynamicdrive.com[/url])
* This notice MUST stay intact for legal use
* Visit [url]http://www.dynamicdrive.com/[/url] for this script and 100s more.
***********************************************/

function pausescroller(content, divId, divClass, delay){
this.content=content //message array content
this.tickerid=divId //ID of ticker div to display information
this.delay=delay //Delay between msg change, in miliseconds.
this.mouseoverBol=0 //Boolean to indicate whether mouse is currently over scroller (and pause it if it is)
this.hiddendivpointer=1 //index of message array for hidden div
document.write('<div id="'+divId+'" class="'+divClass+'" style="position: relative; overflow: hidden"><div class="innerDiv" style="position: absolute; width: 100%" id="'+divId+'1">'+content[0]+'</div><div class="innerDiv" style="position: absolute; width: 100%; visibility: hidden" id="'+divId+'2">'+content[1]+'</div></div>')
var scrollerinstance=this
if (window.addEventListener) //run onload in DOM2 browsers
window.addEventListener("load", function(){scrollerinstance.initialize()}, false)
else if (window.attachEvent) //run onload in IE5.5+
window.attachEvent("onload", function(){scrollerinstance.initialize()})
else if (document.getElementById) //if legacy DOM browsers, just start scroller after 0.5 sec
setTimeout(function(){scrollerinstance.initialize()}, 500)
}

// -------------------------------------------------------------------
// initialize()- Initialize scroller method.
// -Get div objects, set initial positions, start up down animation
// -------------------------------------------------------------------

pausescroller.prototype.initialize=function(){
this.tickerdiv=document.getElementById(this.tickerid)
this.visiblediv=document.getElementById(this.tickerid+"1")
this.hiddendiv=document.getElementById(this.tickerid+"2")
this.visibledivtop=parseInt(pausescroller.getCSSpadding(this.tickerdiv))
//set width of inner DIVs to outer DIV's width minus padding (padding assumed to be top padding x 2)
this.visiblediv.style.width=this.hiddendiv.style.width=this.tickerdiv.offsetWidth-(this.visibledivtop*2)+"px"
this.getinline(this.visiblediv, this.hiddendiv)
this.hiddendiv.style.visibility="visible"
var scrollerinstance=this
document.getElementById(this.tickerid).onmouseover=function(){scrollerinstance.mouseoverBol=1}
document.getElementById(this.tickerid).onmouseout=function(){scrollerinstance.mouseoverBol=0}
if (window.attachEvent) //Clean up loose references in IE
window.attachEvent("onunload", function(){scrollerinstance.tickerdiv.onmouseover=scrollerinstance.tickerdiv.onmouseout=null})
setTimeout(function(){scrollerinstance.animateup()}, this.delay)
}

// -------------------------------------------------------------------
// animateup()- Move the two inner divs of the scroller up and in sync
// -------------------------------------------------------------------

pausescroller.prototype.animateup=function(){
var scrollerinstance=this
if (parseInt(this.hiddendiv.style.top)>(this.visibledivtop+5)){
this.visiblediv.style.top=parseInt(this.visiblediv.style.top)-5+"px"
this.hiddendiv.style.top=parseInt(this.hiddendiv.style.top)-5+"px"
setTimeout(function(){scrollerinstance.animateup()}, 50)
}
else{
this.getinline(this.hiddendiv, this.visiblediv)
this.swapdivs()
setTimeout(function(){scrollerinstance.setmessage()}, this.delay)
}
}

// -------------------------------------------------------------------
// swapdivs()- Swap between which is the visible and which is the hidden div
// -------------------------------------------------------------------

pausescroller.prototype.swapdivs=function(){
var tempcontainer=this.visiblediv
this.visiblediv=this.hiddendiv
this.hiddendiv=tempcontainer
}

pausescroller.prototype.getinline=function(div1, div2){
div1.style.top=this.visibledivtop+"px"
div2.style.top=Math.max(div1.parentNode.offsetHeight, div1.offsetHeight)+"px"
}

// -------------------------------------------------------------------
// setmessage()- Populate the hidden div with the next message before it's visible
// -------------------------------------------------------------------

pausescroller.prototype.setmessage=function(){
var scrollerinstance=this
if (this.mouseoverBol==1) //if mouse is currently over scoller, do nothing (pause it)
setTimeout(function(){scrollerinstance.setmessage()}, 100)
else{
var i=this.hiddendivpointer
var ceiling=this.content.length
this.hiddendivpointer=(i+1>ceiling-1)? 0 : i+1
this.hiddendiv.innerHTML=this.content[this.hiddendivpointer]
this.animateup()
}
}

pausescroller.getCSSpadding=function(tickerobj){ //get CSS padding value, if any
if (tickerobj.currentStyle)
return tickerobj.currentStyle["paddingTop"]
else if (window.getComputedStyle) //if DOM2
return window.getComputedStyle(tickerobj, "").getPropertyValue("padding-top")
else
return 0
}

</script>
voigtann1Medlem sedan juni 20018 810 inlägg
#2
<% Do Until RS.EOF Or i = 9

Response.Write "pausecontent2[" & i & "]='" & Replace(rs("Innehåll"),"'","\'") & "'"
i = i + 1
Rs.MoveNext
Loop
%>
SGuncelMedlem sedan jan. 2007218 inlägg
#3

Får detta felet:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/Main/Topp.asp, line 29

<%
	Set ObjRS = ObjConn.Execute("Select * From BC ORDER BY BCTime desc LIMIT 5")
	Do until ObjRS.Eof
	
	Do Until RS.EOF Or i = 9
%>
<script type="text/javascript">
/*Example message arrays for the two demo scrollers*/
var pausecontent2=new Array()
Response.Write "pausecontent2[" & i & "]='<span style="font-weight:bold"><a href="../UsrProfile/Profil.asp?UsrID=" & Replace(ObjRS("UsrID"),"'","\'") & "" target="Start">" & Replace(ObjRS("UsrTLAlias"),"'","\'") & "</a>:</span> " & Replace(byt(ObjRS("UsrTLAlias")),"'","\'") & "'
</script>
<% 
	ObjRS.MoveNext 
	Loop 
	ObjRS.Close : Set ObjRS = nothing

	i = i + 1
	Rs.MoveNext
	Loop
%>

Felet ligger här:

Do Until RS.EOF Or i = 9
@ndersMedlem sedan juni 200026 914 inlägg
#4

Eftersom du har skapat ditt recordsetobjekt med namnet ObjRS är det det du ska använda därefter, inte bara RS.

edit: dessutom är det bra att avsluta javascriptrader med semikolon, och kan vara vettigt att slänga in en radbrytning mellan raderna.

Response.Write "pausecontent2[" & i & "]='" & Replace(rs("Innehåll"),"'","\'") & "';" & vbcrlf
SGuncelMedlem sedan jan. 2007218 inlägg
#5

En annan sak, jag vill ha 0 med annars fungerar det inte.
Så här skrivs det ut efter allt.
Där jag har gjort fett 0 ska det finnas 0 när allt skrivs ut. Men det komemr utan 0 och 1-8 skrivs ut.

<script type="text/javascript">
/*Example message arrays for the two demo scrollers*/
var pausecontent2=new Array()
pausecontent2[[B]0[/B]]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Så, men finns några fel :)'
pausecontent2[1]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Nu börjar de hända grejjer :) '
pausecontent2[2]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Fortfarande samma fel'
pausecontent2[3]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Nu da?'
pausecontent2[4]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Nope, ååååh'
pausecontent2[5]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Funkar nya BC?'
pausecontent2[6]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=3" target="Start">Björn</a>:</span> Har glömt :('
pausecontent2[7]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=3" target="Start">Björn</a>:</span> Vart ligger min grotta där jag brukar sova?'
pausecontent2[8]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=3" target="Start">Björn</a>:</span> Har någon sett min kudde?'
</script>
@ndersMedlem sedan juni 200026 914 inlägg
#6

Initierar du i till 0 ovanför loopen?

SGuncelMedlem sedan jan. 2007218 inlägg
#7

Nej, hur ska jag göra det?

@ndersMedlem sedan juni 200026 914 inlägg
#8

eh

i = 0
SGuncelMedlem sedan jan. 2007218 inlägg
#9

Löste istället på det hära sättet. Gjorde det du sa men det fungerade inte.

<script type="text/javascript">
/*Example message arrays for the two demo scrollers*/
var pausecontent2=new Array()
pausecontent2[0]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Så, men finns några fel '
pausecontent2[01]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Nu börjar de hända grejjer  '
pausecontent2[02]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Fortfarande samma fel'
pausecontent2[03]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Nu da?'
pausecontent2[04]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Nope, ååååh'
pausecontent2[05]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=1" target="Start">Admin</a>:</span> Funkar nya BC?'
pausecontent2[06]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=3" target="Start">Björn</a>:</span> Har glömt '
pausecontent2[07]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=3" target="Start">Björn</a>:</span> Vart ligger min grotta där jag brukar sova?'
pausecontent2[08]='<span style="font-weight:bold"><a href="..Profil.asp?UsrID=3" target="Start">Björn</a>:</span> Har någon sett min kudde?'
</script>
@ndersMedlem sedan juni 200026 914 inlägg
#10

Det borde funka utmärkt med voigtanns kod med mina tillägg - det du ska inte ha hela scriptet i loopen som du gjort, utan den enda scriptdelen som ska ligga där är det som skrivs ut med response.write i voigtanns exempel.

voigtann1Medlem sedan juni 20018 810 inlägg
#11
Set ObjRS = ObjConn.Execute("Select * From BC ORDER BY BCTime desc LIMIT 5")
Dim i
i = 0
Do until ObjRS.Eof
        If i = 10 Then Exit Do
	Response.Write "pausecontent2[" & i & "]='" & Replace(rs("Innehåll"),"'","\'") & "';" & vbcrlf
	i = i + 1
	ObjRS.MoveNext
Loop
SGuncelMedlem sedan jan. 2007218 inlägg
#12

Nu har jag löst :)
Tack för all hjälp voigtann1 och @nders :)

128 ms totalt · 3 externa anrop · cache AV · v20260731051352-full.56cc9887
0 ms — hämta statistik (cache)
0 ms — hämta forumlista (cache)
125 ms — hämta tråd, inlägg och bilagor (db)