fso paging

15 svar · 313 visningar · startad av antar 23 feb. 2003

antarMedlem sedan dec. 2001289 inlägg

Frågan23 feb. 2003 10:37#1

gif bilder visas men paging funkar inte?

Pagesize = 7 
Sidor = (Mapp.Files.Count-1)/Pagesize + 1 

If Request.QueryString("sida") = "" then 
sidan = 1 
Else 
sidan = cint(Request.QueryString("sida")) 
end if 

If Sidan = "" Then Sidan = 1 
If Sidan > Sidor Then Sidan = Sidor 
Start = Pagesize*(Sidan-1) + 1 
Slut = Start + Pagesize - 1 
If Slut > Mapp.Files.Count Then Slut = Mapp.Files.Count 
i = 1
For each file in Mapp.Files
if i >= start and right(file.Name,9) = ".gif" then %>
<img border="0" src="bilder/<%=file.Name%>" style="border:1px solid #000000;" width="64" height="60"></a>
<% end if
if i = slut then exit for
i = i + 1 
Next

For i = 1 To Sidor 
If i = Sidan Then 
Else 
End If 
Next%>

antarMedlem sedan dec. 2001289 inlägg

23 feb. 2003 18:26#2

hallå nån som kan hjälpa?

PatrikBMedlem sedan mars 20002 836 inlägg

23 feb. 2003 18:52#3

På vilket sätt funkar inte pagingen???

Detta parti kod:

For i = 1 To Sidor 
If i = Sidan Then 
Else 
End If 
Next%>

skriver inte ut ett jota, vare sig i är uppfyllt eller inte.

cya,
PatrikB

antarMedlem sedan dec. 2001289 inlägg

23 feb. 2003 19:30#4

jag la till and right(file.Name,9) = ".gif" then och då funkar inte paging det visas bara 3 bilder!

solbulleMedlem sedan mars 20015 287 inlägg

23 feb. 2003 19:57#5

På vilket sätt fungerar inte din paging?
Eventuell länk till annan sida är var?

antarMedlem sedan dec. 2001289 inlägg

23 feb. 2003 20:01#6

<a href="bilder.asp?<%=sidan-1%>">föregående</a> <a href="bilder.asp?<%=sidan+1%>">nästa</a>

antarMedlem sedan dec. 2001289 inlägg

23 feb. 2003 20:03#7

om jag tar bort and right(file.Name,9) = ".gif" then så funkar den perfekt!

antarMedlem sedan dec. 2001289 inlägg

23 feb. 2003 22:08#8

nån som vet?

PoffeMedlem sedan apr. 20022 743 inlägg

23 feb. 2003 22:12#9

testa

right(file.Name,4)

som det är nu tar den ut de 9 sista tecken i filnamnet och det finns ingen möjlighet för dessa 9 tecken att vara lika med ".gif"

solbulleMedlem sedan mars 20015 287 inlägg

23 feb. 2003 22:43#10

Poffe: Hur fan stavar du till .giiiiiiif egentligen? ? :e

Missade den. :)

antarMedlem sedan dec. 2001289 inlägg

23 feb. 2003 23:13#11

det spelar ingen roll skrev fel
jag har ju
if not right(file.Name,4) = ".gif" then
response.write bla bla
end if

men jag måste lägga in if right(file.Name,9) = ".gif" then i paging scriptet också? vart ska jag lägga in den?

solbulleMedlem sedan mars 20015 287 inlägg

24 feb. 2003 00:23#12

Ska inte länken se ut så här:

<a href="bilder.asp?sida=<%=sidan-1%>">föregående</a> <a href="bilder.asp?sida=<%=sidan+1%>">nästa</a>

PoffeMedlem sedan apr. 20022 743 inlägg

24 feb. 2003 00:33#13

solbulle skrev:

Poffe: Hur fan stavar du till .giiiiiiif egentligen? ? :e

Missade den. :)

:q que?

antarMedlem sedan dec. 2001289 inlägg

24 feb. 2003 10:25#14

det e ingen fel på länkarna allt funkar! när jag lägger till
and right(file.Name,9) = "liten.gif" så måste jag lägga in koden i paging scriptet för att inte räkna fel och bara räkna .gif
<%
For each file in Mapp.Files
if i >= start and right(file.Name,4) = ".gif" then %>
'bild
<% end if
if i = slut then exit for
i = i + 1
Next

For i = 1 To Sidor
Next%>

antarMedlem sedan dec. 2001289 inlägg

24 feb. 2003 18:18#15

x( hehe

solbulleMedlem sedan mars 20015 287 inlägg

24 feb. 2003 19:25#16

Hur var det nu egentligen? Fungerar det nu eller?

Visa det kompletta scriptet annars.