06. marts 2004 - 08:48Der er
7 kommentarer og 1 løsning
asp paging uden database
Kan man bruge asp-paging uden DB? Jeg har 10 link på en side, hvor jeg skal kunne definere hvert link til én af de 10 asp sider jeg har i mappen /files.
Mener du noget i denne stil: <% ImageDir = "/" ' Mappen med filerne Set objFS = CreateObject("Scripting.FileSystemObject") Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir)) Set objFiles = objFolder.Files
intPage = Request.Querystring("page") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If
intPageSize = 10 ' Antal filer på hver side intImgCount = objFiles.Count intPageCount = -Int(-(intImgCount/intPageSize))
Response.Write "<p><strong>" & intImgCount & " Billeder - " Response.Write "viser side " & intPage & " af " & intPageCount & ":</strong></p>" For Each File In objFiles intFile = intFile +1 If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then If Left(File.Name,1)<>"_" Then Response.Write "<a href=""" & Replace(File.Name, " ", "%20") & """>" Response.Write File.Name & "</a><br>" End if
End If Next
strScriptName = Request.Servervariables("ScriptName") Response.Write "<p>Gå til side " For i = 1 To intPageCount Response.Write "<a href=" & strScriptName & "?page=" & i & ">" & i & "</a> " Next Response.Write "</p>" Set objFS = Nothing %>
Ja er her.. Men du skal bare kalde filen med filnavn.asp, så virker det..
hvis du kalder med filnavn.asp?page=2 så er du på side 2. links: 11-20
Synes godt om
Ny brugerNybegynder
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.