Avatar billede okidoky Nybegynder
26. april 2006 - 10:16 Der er 9 kommentarer og
1 løsning

Side counter ?

Hej... vil meget gerne vide hvordan jeg til denne side laver en counter så den kun tæller f.eks. 10 billeder pr side ? har prøvet forgæves.... jeg har en paging site nederst.

<!--#include file="conn.asp"-->
<%

set img = server.CreateObject("ADODB.Recordset")
img.Open "Select * from tbl_img", conn
%>
<table width="530" border="0" cellspacing="10" cellpadding="0">
 
<%
t = 1
while Not img.EOF


    if t = 1 then
    response.Write "<tr>"
    end if
   
   
    response.Write "<td><img src='image/players/" & img("billede") & "' width=130 border=1 /></td>"
   
    if t = 3 then
    t = 0
    response.Write "</tr>"
    end if

    t = t + 1

img.movenext
wend

%>
</table>


<---------------------paging.asp------------------>

<!--#include file="forbindelse.asp" -->
<%
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 sider", database ,1

If Not (rs.BOF Or rs.EOF) Then

  rs.PageSize = 2
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
 
  Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
   
  Do While Not rs.EOF And intRecCount > 0
 
    Response.Write "<b>" & rs("overskrift") & "</b><br>"
    Response.Write rs("tekst") & "<br><br>"
    intRecCount = intRecCount - 1
 
  rs.MoveNext
  Loop
 
End If

rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=paging.asp?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=paging.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>
Avatar billede eagleeye Praktikant
26. april 2006 - 10:26 #1
Prøv at rette din kode til:


<!--#include file="conn.asp"-->
<%
intPage = Request("page")

If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

set img = server.CreateObject("ADODB.Recordset")
img.Open "Select * from tbl_img", conn
%>
<table width="530" border="0" cellspacing="10" cellpadding="0">
<%
If Not (img.BOF Or img.EOF) Then

  img.PageSize = 10  'Angiv hvor mangle du ønsker pr. side
  img.AbsolutePage = intPage
  intRecCount = img.PageSize
  intPageCount = img.PageCount

  t = 1
  Do While Not img.EOF And intRecCount > 0

    if t = 1 then
    response.Write "<tr>"
    end if
   
   
    response.Write "<td><img src='image/players/" & img("billede") & "' width=130 border=1 /></td>"
   
    if t = 3 then
    t = 0
    response.Write "</tr>"
    end if

    t = t + 1
    intRecCount = intRecCount - 1
    img.movenext
  loop
end if
%>
</table>
<%
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=paging.asp?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=paging.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>
Avatar billede ldanielsen Nybegynder
26. april 2006 - 10:28 #2
i stedet for:
Do While Not rs.EOF And intRecCount > 0

prøv med:
do while Rec.AbsolutePage = intPageNumber
Avatar billede ldanielsen Nybegynder
26. april 2006 - 10:30 #3
Undskyld:
do while rs.AbsolutePage = intPage
Avatar billede okidoky Nybegynder
26. april 2006 - 10:40 #4
tak til jer begge .. men har løst den :

<!--#include file="conn.asp"-->
<%

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


set img = server.CreateObject("ADODB.Recordset")
img.Open "Select * from tbl_img", conn
%>
<table width="530" border="0" cellspacing="10" cellpadding="0">
 
<%
    If Not (img.BOF Or img.EOF) Then
    img.PageSize = 21
    img.AbsolutePage = intPage
    intRecCount = img.PageSize
    intPageCount = img.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
   



t = 1
Do While Not img.EOF And intRecCount > 0


    if t = 1 then
    response.Write "<tr>"
    end if
   
   
    response.Write "<td><a href='index.asp?page=fotogalleri&stor=" & img("id") & "'><img src='image/players/" & img("billede") & "' width=130 border=1 /></a></td>"
    intRecCount = intRecCount - 1
   
    if t = 3 then
    t = 0
    response.Write "</tr>"
    end if

    t = t + 1
   
img.movenext
Loop
%>
</table>

<%
End If

if request("fotogalleri") = "stor" then

response.Write "<img src='image/players/" & img("billede") & "' width=400 border=1 />"

end if

img.Close
Set img = Nothing



Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=ga.asp?page=fotogalleri&vis=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=ga.asp?page=fotogalleri&vis=" & 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=ga.asp?page=fotogalleri&vis=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>
Avatar billede eagleeye Praktikant
26. april 2006 - 11:16 #5
Ja og det er det samme som jeg har vist :)
Avatar billede okidoky Nybegynder
26. april 2006 - 13:03 #6
hvis du kan hjælpe mig med et lille script. for du point.... samme script, skal bare gøre sådan at når jeg trykker på et billede skal den vises i et popup vindue i rigtigt størrelse? :)

onClick="window.open('view_img.asp','','width=800,height=600');return false;"
Avatar billede eagleeye Praktikant
26. april 2006 - 13:32 #7
Der er umiddelbart et par metoder tag et kig på dette links kode som åber et pop windue som reziser det så det passer med billedet. Då skal tilpasse onClick til det som er vist:

http://roenving.users.whitehat.dk/index.html?/WD1ResizeTilBillede.html




Alternativ er at ligge det kode som resizer inde i den fil som du åbner  view_img.asp og det kommer til at se ud i stil med dette:


<html>
<head>
<style>
    body {margin:0px;}
</style>
<script>
function tilpas() {
  imgb = document.body.clientWidth;
  imgh = document.body.clientHeight;
  imgb = document.images[0].width - imgb +2;
  imgh = document.images[0].height - imgh +0;
  window.resizeBy( imgb, imgh );
  self.focus();
};
</script>
</head>
<body onload="tilpas();">
<img src="<%= Request.QueryString("Billede") %>">
</body>
</html>
Avatar billede okidoky Nybegynder
26. april 2006 - 13:47 #8
den vil ikke hente Request.QueryString("Billede") ,, hvorfor mon det?
Avatar billede eagleeye Praktikant
26. april 2006 - 13:49 #9
hvordan ser linket?

Det skal være i stil med:

onClick="window.open('view_img.asp?billede=billede.jpg','','width=800,height=600');return false;"
Avatar billede okidoky Nybegynder
26. april 2006 - 13:51 #10
1000 tak Eagleeye :)... det var det mange tak for hjælpen
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