[asp] aanmaken 2e pagina in fotoarchief

[Verwijderd]

Hallo,

Op n pagina die ik aan het maken ben heb ik een reeks fotos gezet. Maar om de laadsnelheid van de pagina te vergroten heb ik maar 10 fotos per pagina gezet.

Nu heb ik dat op een erg uitgebreide manier gedaan. Namelijk zo:

code:

L = request.querystring("page")

If L = 1 then

P = 0

Do until P = 10

P = P + 1

response.write("<TR><TD><a href='images/rhodos/" & (p) & ".jpg' target='new'>[img]'images/rhodos/"[/img]</A></TD></TR><TR><TD><a href='#top'  class='menu20'>top</a></TD></TR>")

Loop



%>
<TR><TD>
<a href=index.asp?pageid=2&foto=1&page=2>next</A>
</TD></TR>

<%

else 

If L = 2 then

P = 10

Do until P = 20

P = P + 1

response.write("<TR><TD><a href='images/rhodos/" & (p) & ".jpg' target='new'>[img]'images/rhodos/"[/img]</A></TD></TR><TR><TD><a href='#top'  class='menu20'>top</a></TD></TR>")

Loop

%>

en zo door totdat (het zijn 48 fotos ofzo) er Do until P = 48 staat.

Ik moet nu dus handmatig precies invoeren hoeveel fotos ik heb enzo.
Weet niet iemand hoe dit sneller kan?

Alvast bedankt.


Groetjes...

[Verwijderd]

Het is gebruikelijk om in zo'n geval een generieke fotopagina te schrijven die de gegevens over (en soms de foto's zelf ook) uit een database haalt.

Als een database geen optie is zou je een pagina kunnen schrijven die via een config filetje wat je include z'n parameters krijgt, en tot slot zou je misschien met het filesystem object zelf door de foto's kunnen bladeren en html genereren voor de foto's die je tegen komt.

[Verwijderd]

Je zou toch het aantal jpg bestanden kunnen bepalen en vervolgens aan de hand van de querystring bepalen welke foto's er weergegeven moeten worden.

Ik bedoel, als je met je querystring 10 krijgt, laat dan foto's 10 t/m 20 zien enz. Niet vergeten om een aantal checks in te voeren om input te controleren.

Maar goed, het bepalen van het aantal jpg bestanden lijkt me niet echt snel. Dus qua snelheid zal het er niet beter van worden, maar dan is het wel dynamisch.

[4of9]

ik heb ooit zo'n zelfde scriptje gemaakt, mischien heb je hier iets aan.

code:

OPTION EXPLICIT

Dim iNext, i, iPageCount
Dim parsetime
Dim cur, Current
Dim x, c, y, nr
Dim totalpages

parsetime = TIMER

Const PageJump = 5

iNext = Request.Querystring("next")
cur = Cint(Request.Querystring("cur"))

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objFolder
Set objFolder = objFSO.GetFolder("jouwpadnaarfolder")

i = 0
Dim objFile
Dim strImage()
For Each objFile in objFolder.Files
    Redim Preserve strImage(i)
    strImage(i) = objFile.Name
    i = i+1
Next

iPageCount = i

If iNext = "" Then
    Current = 0
Else
    Current = iNext
End If

 For x = Current To Current + PageJump - 1
    If x > Ubound(strImage) Then exit For
    Response.Write "<a href=""" & strImage(x) & """>"
    Response.Write "[img]"""[/img]"
    Response.Write "</a>&nbsp;"
Next

Response.Write "<br>"

    totalpages = int((iPageCount + PageJump - 1) / PageJump)

If cur = "" Then
    cur = 1
End If

c = 1
For y = 1 to totalpages

If y = cur Then
    Response.Write y & "&nbsp;"
Else
    Response.Write "<a href=""image.asp?next=" & nr & "&cur=" & c & """>" & y & "</a>&nbsp;"
End If
    nr = nr + PageJump
    c = c + 1
Next

Response.Write "<br><br><hr>Debug info:<br><br>"
Response.Write "Images per Pagina: " & PageJump & "<br>"
Response.Write "Totaal aantal Pagina's: " & totalpages & "<br>"
Response.Write "Current first image: " & Current & "<br>"
Response.Write "Totaal aantal Images: " & iPageCount & "<br>"
Response.Write "Laagste Index: " & Lbound(strImage) & "<br>"
Response.Write "Hoogste Index: " & Ubound(strImage) & "<br>"
Response.Write "Huidige pagina: " & cur & "<br><br>"

If parseTime <> "" then
    Response.Write "Pagina gegenereerd in " & (TIMER - parseTime) & "&nbsp;seconden :)" 
End If

[ Voor 69% gewijzigd door 4of9 op 26-06-2004 16:54 ]