Avatar billede arvin Nybegynder
09. november 2003 - 09:52 Der er 5 kommentarer og
1 løsning

Finde det rigtigte billede med paging

Hej Eksperter!

Jeg har på en side listet nogle billeder, se nedenstående:
----------------------------------------------------------
<%
Set RS_pic = Server.CreateObject("ADODB.RecordSet")
RS_pic.open "Select * From [billeder] where film_id = " & rs("id") & " Order by id", Conn_crew, 1, 3
Do while not RS_pic.eof
%>
<a href="popup_picture_movie.asp?id=<%=RS("id")%>">
<img src="../www/pictures/thumbs/<%=RS_pic("filnavn")%>" border="0"></a>
<%
RS_pic.movenext
loop
%>
----------------------------------------------------------

Når man trykker på et af billederne kommer det op i et popup vindue, der så fungerer som et paging site.
Se evt:
http://film.msn.dk/pgs/docs/reviewItem_dk.asp?icn=74326&pi=51516
Trykker man på et af billederne viser den i pop-up'en det billede man har trykket på, samtidig med at paging stadig fungerer.
Det kan jeg ikke helt få til at virke!
Når jeg trykker på et billede viser den altig billede nummer et.

Paging koden er her:
----------------------------------------------------------
<!-- #include file="databaseopkald.inc" -->
<!-- #include file="adovbs.inc" -->

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "Select * From [billeder] where film_id = " & request("id") & " Order by id", Conn_crew, 1, 3


If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 1
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Billede " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
%>
<img src="../www/pictures/<%=RS("filnavn")%>" border="0">
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=popup_picture_movie.asp?id=" & request("id") & "&page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=popup_picture_movie.asp?id=" & request("id") & "&page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
Response.Write "&gt;&gt;"
End If
%>
----------------------------------------------------------

Håber I kan hjælpe!!!

//Arvin
Avatar billede keysersoze Ekspert
09. november 2003 - 10:00 #1
kan du komme med et link til hvor din kode virker så vi kan se hvad du mangler?
Avatar billede arvin Nybegynder
09. november 2003 - 10:07 #2
Avatar billede keysersoze Ekspert
09. november 2003 - 10:21 #3
i det loop hvor du lister billederne på hovedsiden der ville jeg lave en ekstra parameter der hedder "page" - i stedet for så kun at have fx "ID" 1415 med på billedet ville jeg også have "page" på sådan så linket på billede nummer 1 hedder;

popup_picture_movie.asp?id=1415&page=1

og på billede 2 ville linket komme til at hedde

popup_picture_movie.asp?id=1415&page=2

etc
Avatar billede arvin Nybegynder
09. november 2003 - 10:24 #4
Skal jeg så lave en slags count? Eller?
Avatar billede arvin Nybegynder
09. november 2003 - 10:25 #5
<%
        Do while not RS_pic.eof
        i = 1
        %>
        <a href="popup_picture_movie.asp?id=<%=RS("id")%>&page=<%=i%>">
        <img src="../www/pictures/thumbs/<%=RS_pic("filnavn")%>" border="0"></a>&nbsp;
        <%
        RS_pic.movenext
        loop
        i = i + 1
        %>
Avatar billede arvin Nybegynder
09. november 2003 - 10:27 #6
Wuhuu - Fandt ud af det:
<%
        i = 1
        Do while not RS_pic.eof
        %>
        <a href="popup_picture_movie.asp?id=<%=RS("id")%>&page=<%=i%>">
        <img src="../www/pictures/thumbs/<%=RS_pic("filnavn")%>" border="0"></a>&nbsp;
        <%
        i = i + 1
        RS_pic.movenext
        loop
        %>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester