pepss wrote in dk.edb.internet.webdesign.serverside.asp:
> "Thomas Brejner" skrev
> > Hejsa, jeg mangler lidt hjælp til paging på mit
billedesystem.
>
> måske kan du bruge
http://www.html.dk/scripts/asp/00011/
Jeg har prøvet at fikse det der script, og det virker fint ang
paging.
Men så dukker et andet problem op, jeg har sådan at den viser 5
på række og så skal den vise fem nedenunder. Men det gider den
ikke mere :(
Smider lige det mest nødvendige kode her så i har lidt at gå
efter (måske næsten hele koden)
intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
intPageSize = 20 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))
Response.Write "<font size='1' face='verdana'><p><strong>" &
intImgCount & " Billeder - </font>"
Response.Write "<font size='1' face='verdana'>viser side " &
intPage & " af " & intPageCount & ":</strong></p></font>"
For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =<
(intPageSize*intPage)) Then
Response.Write "<td><img src='" & ImageDir2 & "/" & Image.Name
& "' /></td>"
End If
t=t+1
if t = 5 then
Response.Write "</tr><tr>"
t = 0
End If
Next
strScriptName = Request.Servervariables("ScriptName")
Response.Write "<font size='1' face='verdana'><p>Gå til side
</font>"
For i = 1 To intPageCount
Response.Write "<font size='1' face='verdana'><a href=" &
strScriptName & "?page=" & i & "&id=" & Request.Querystring("id")
& " class='link' >" & i & "</a></font>"
Next
Response.Write "</p>"
Set objFS = Nothing
%>
Der er ikke det vilde orden i koden, men håber det går.
Mvh Thomas
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials