Avatar billede psyclown Nybegynder
25. september 2002 - 22:50 Der er 8 kommentarer og
1 løsning

numererer kommentarer og paging

Jeg vil først lige henvise til http://www.eksperten.dk/spm/261651 da der står lidt om hvad dette handler om.

Som der står i overskriften har jeg prøvet at lave paging i et kommentar system, hvor jeg har nuemereret kommentarerne, men der er et lille problem.
Når jeg vil gå til side 2 af de kommentarer der er lavet, så starter den forfra med at tælle recordsne, altså når jeg går til side 2, så starter den på #1 igen.

Er der en der har en løsning på det ?

På forhånd tak!
Avatar billede eagleeye Praktikant
25. september 2002 - 22:55 #1
Hvis du bruger dette kode som du har accepteret:

CommentNum = 0

Do While Not rsComments.EOF
  response.write "kommentarer nr. #" & CommentNum
  rsComments.MoveNext
  CommentNum = CommentNum + 1
Loop
%>



Så skal du rette denne linie:
CommentNum = 0

Til, hvor noPrPage er antal af kommentar pr side, og page er den side du er kommet til den føreste side skal havde page=0 og side 2 page=1.
CommentNum = noPrPage * page
Avatar billede psyclown Nybegynder
25. september 2002 - 23:03 #2
min linie står som følgende lige nu:
CommentNum = 1 og ikke 0
for hvis jeg sætter CommentNum = 0 så skriver den #0, #-1, #-2 osv.
Avatar billede eagleeye Praktikant
25. september 2002 - 23:08 #3
Så rettes denne:

CommentNum = noPrPage * page

Til:

CommentNum = noPrPage * page + 1
Avatar billede eagleeye Praktikant
25. september 2002 - 23:10 #4
Princippet er at den skal udregne hvilken nummer som er først. Eks hvis noPrPage = 5.:

På første side skal dette:
CommentNum = noPrPage * page + 1 
Give 1.:  5 * 0 + 1

På den anden side skal dette:
CommentNum = noPrPage * page + 1 
Give 6.:  5 * 1 + 1
Avatar billede psyclown Nybegynder
25. september 2002 - 23:38 #5
Det lyder jo alt sammen meget simpelt, men jeg kan ikke lige tjekke om det er rigtigt nu, så du må lige vente med svar til jeg kommer hjem. Håber det er okay..
Avatar billede psyclown Nybegynder
26. september 2002 - 02:10 #6
Det virker ikke rigtigt som det skal, her er hvad jeg har:

<%
  SiteNum = Request("SiteNum")
  If isNumeric(SiteNum) = False or SiteNum < 1 Then
    SiteNum = 1
  End If

  Set conntemp = Server.CreateObject("ADoDB.Connection")
  conntemp.open DSN
  Set rsListReplies = server.createobject("ADoDB.recordset")
  SQLREPLIES = "SELECT * FROM F_Replies WHERE (TID = " & Request("TID") & ") ORDER BY F_R_DATE ASC"
  rsListReplies.open SQLREPLIES, conntemp, 3

  rsListReplies.PageSize = 10
  rsListReplies.AbsolutePage = SiteNum
  ReplyRecCount = rsListReplies.PageSize
  ReplyPageCount = rsListReplies.PageCount
  ReplyNum = Cint(rsListReplies.RecordCount)
  ReplyNum = ReplyPageCount * SiteNum + 1

  Do While Not rsListReplies.EOF And ReplyRecCount > 0
%>
Indhold
<%
  rsListReplies.MoveNext
  ReplyRecCount = ReplyRecCount - 1
  ReplyNum = ReplyNum + 1
  Loop
%>
Avatar billede psyclown Nybegynder
26. september 2002 - 02:11 #7
Det der er så til et forum jeg er ved at lave og ikke til det nyheds system, men det er jo det samme
Avatar billede eagleeye Praktikant
26. september 2002 - 11:10 #8
nu ved jeg ikke helt hvad Det virker ikke rigtig som det skal! betyder men så vidt jeg kan se skal denne linie:

ReplyNum = ReplyPageCount * SiteNum + 1

Rettes til:

ReplyNum = 10 * (SiteNum-1) + 1
Avatar billede psyclown Nybegynder
26. september 2002 - 15:41 #9
Nu virker det jo perfekt...mange tak for hjælpen, så lærte jeg også noget nyt i dag :)
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