Avatar billede hrlund Nybegynder
07. januar 2002 - 16:05 Der er 6 kommentarer

Paging

Hvordan laver jeg en paging på denne? når den henter direkte fra en mappe på serveren og ikke fra database ?

<%
vPath = \"/gallery/gfx/\"
pPath = Server.MapPath( vPath )

Set fs = Server.CreateObject( \"Scripting.FileSystemObject\" )

Set myFolder = fs.GetFolder( pPath )
%>
<% For Each thing in myFolder.Files %>
  <tr>
    <td  width=\"100%\" >
      <a class=menu href=\"/gallery/gfx/<%=thing.Name%>\" target=\"vis\" ><font size=\"1\" face=\"Verdana\">&nbsp;<%=thing.Name%></font></a>
    </td>
  </tr>
<% Next %>
Avatar billede freedom Nybegynder
07. januar 2002 - 17:13 #1
jeg tror det er fordi pPath kommer ud som:
Server.MapPath( /gallery/gfx/ )  det skal kunne se sådan ud:
Server.MapPath(\"gallery/gfx/\") 
!!!! hvordan ved jeg ikke!
Avatar billede hrlund Nybegynder
08. januar 2002 - 01:02 #2
øhm du forstod vist ikke sp.

Det jeg mente var , hvis jeg havde 20 billeder, og kun vil ses 5 af gangen. Og man skal kunne blandre imellem dem.
Avatar billede tmceu Praktikant
08. januar 2002 - 02:40 #3
Jeg vil påstå at det ikke kan lade sig gøre, da der ikke eksisterer en mulighed for at filtrere indholdet af en folder og du kan derfor ikke finde ud af hvor du skal starte side 2, 3, 4 o.s.v..

Eneste mulighed jeg kan se er, at læse alle filnavne ind i et array og så lave paging ud fra det. D.v.s. at du laver en tæller til at holde styr på hvor du er i dit array. Denne tæller kan så eks. sendes med som et skjult felt i en form eller i querystring.

Jeg har desværre aldrig set min påstand modbevist.
Avatar billede cool_casper Nybegynder
08. januar 2002 - 14:33 #4
Det kan lade sig gøre med alm. ASP.. To sek....
Avatar billede cool_casper Nybegynder
08. januar 2002 - 14:38 #5
Den heer bruge jeg... Til f.eks. Acces databaser... Men du kan jo lige lave den lidt om til din FileOBject:

<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")

strSQL = \"SELECT * FROM Banner\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"demo.mdb\")

rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
  \'No of Records on each Page
  rs.PageSize = 3
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
 
  Response.Write \"<p><b>Page \" & intPage & \" of \" & intPageCount & \"</b></p>\"
  Do While Not rs.EOF And intRecCount > 0
 
    Response.Write \"<a href=\'\" & rs(\"URL\") & \"\'>\" & rs(\"Description\") & \"</a><br><br>\"
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing

Response.Write \"<p>Go to page \"
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 tmceu Praktikant
08. januar 2002 - 15:35 #6
casper >> kender du forskellen mellem databaser og FSO ? Jeg læser spørgsmålet som om vedkommende godt ved hvordan man gør det med en database.
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