hur får jag det här och slumpa bild varje 10 min??
<%
strSQLimg = "SELECT [id], username, bild, kon, alder FROM members WHERE NOT bild = 'Bilder\Medlemmar\ingen.gif' ORDER BY datum desc"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("database/members.mdb")
Set objRSimg = objConn.Execute(strSQLimg)
If Not objRSimg.EOF Then
varArray = objRSimg.GetRows()
End If
Set objRSimg = Nothing
objConn.Close
Set objConn = nothing
Set objArray = New clsArray
With objArray
.ArrayType = 2
.Positions = 4
.SetArray varArray
'## -- get randomly data as array --
varImages = .Random(6)
End With
Set objArray = Nothing
'## -- show random images --
If IsArray(varImages) Then
For N = 0 TO UBound(varImages,2)
newage = DateDiff ("d", varImages(4,N), Now)
newage = newage - (newage Mod 365)
newage = newage / 365
response.write "<a href=""krypin.asp?checkid=" & varImages(0,N) & """><img src=""" & varImages(2,N) & """ alt=""" & varImages(1,N) & " "& left(varImages(3,N),1)& newage &""" border = ""0"" width= ""69"" height= ""89""></a>"
Next
end if
%>
Du måste reloada sidan.
Om du har denna "sida" i en egen frame så är det ju lätt att göra genom META taggen
<%
Response.AddHeader "REFRESH", "600,URL=minreloadsida.asp"
strSQLimg = "SELECT [id], username, bild, kon, alder FROM members WHERE NOT bild = 'Bilder\Medlemmar\ingen.gif' ORDER BY datum desc"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("database/members.mdb")
Set objRSimg = objConn.Execute(strSQLimg)
If Not objRSimg.EOF Then
varArray = objRSimg.GetRows()
End If
Set objRSimg = Nothing
objConn.Close
Set objConn = nothing
Set objArray = New clsArray
With objArray
.ArrayType = 2
.Positions = 4
.SetArray varArray
'## -- get randomly data as array --
varImages = .Random(6)
End With
Set objArray = Nothing
'## -- show random images --
If IsArray(varImages) Then
For N = 0 TO UBound(varImages,2)
newage = DateDiff ("d", varImages(4,N), Now)
newage = newage - (newage Mod 365)
newage = newage / 365
response.write "<a href=""krypin.asp?checkid=" & varImages(0,N) & """><img src=""" & varImages(2,N) & """ alt=""" & varImages(1,N) & " "& left(varImages(3,N),1)& newage &""" border = ""0"" width= ""69"" height= ""89""></a>"
Next
end if
%>
Du kan även lösa det med javascript antar ajg, eftersom det exekverar hos klienten
Du läser in alla bilder på sidan i asp, men lägger dem i ett javascript. Sen har du ett javascript som ändrar bilden var 10 min, då behövs ingen reload.
Fråga på Javascript forumet så får du nog exakt hjälp
Javascriptlösningen funkar om det är ett fåtal bilder.
Som jag fattar det så kan det bli en hel del bilder och då är inte javascriptlösningen ett alternativ, enligt min åsikt eftersom varje bild måste reloadas först .... hemska tanke om det finns 100-talet bilder att preloada först.
borde iof gå med RemoteScripting, fast då får någon med de kunskaperna rycka in
Jo, fast då måste du ladda om hela sidan och det kanske besökaren inte tycker är speciellt trevligt. Det andra alternativet är att försöka att fixa det med remotescripting fast då får som sagt ngn annan rycka in och förklara hur det funkar
[r]
Med I-Frame kanske det funkar bättre, fast alla browser har inte stöd för det.
Ett annat alternativ är att med hjälp av javascript "läsa in" andra filer och lägga in det materialet i ett lager.
Bara att fråga hur man gör i javascript forumet eller läs mer på tex: www.dansteinman.com/dynduo/
[/r]
cya,
PatrikB
382 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91