Avatar billede n1 Nybegynder
07. marts 2004 - 13:48 Der er 1 løsning

soter efter dato og tidspunkt

jeg har en side der viser en masse billeder, men jeg vil gerne have den til at soterer dem efter den dato og tidspunkt de er blevet oprettet!

scriptet er:
<%
if Request.Querystring("sub") = "" then
Response.Redirect "default.asp"
end if

ImageDir = "/fester/" & Request.Querystring("sub") ' 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 = 16 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
  Response.Write "<a href=""#"" onclick=""showLargeImage('img.asp?img=" & ImageDir & "stor/" & Image.Name & "')"">"
  Response.Write "<img border='0' src='" & ImageDir & Image.Name & "'></a>&nbsp;"
End If
Next

strScriptName = Request.Servervariables("ScriptName")
Response.Write "<br>"
Response.Write "Gå til side "
For i = 1 To intPageCount
Response.Write "<a href=" & strScriptName & "?page=" & i & "&sub=" & Request.Querystring("sub") & ">" & i & "</a> "   
Next
Set objFS = Nothing
%>
Avatar billede eagleeye Praktikant
07. marts 2004 - 22:56 #1
FileSystemObject kan ikke sortere filerne. Så man må kode det selv. Et par eksempler, her med et array:
http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=118



Her et eksemple som bruger et recordset:
<%
Dim objFSO, objFolder, objRS, Path, subPath

subPath = "test"
Path = Server.MapPath("/"&subPath)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Path)
Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.Fields.Append "Name", adVarChar, 20
objRS.Fields.Append "Size", adInteger, 6
objRS.Fields.Append "DateLastmodified", adDate, 9
objRS.Open

For Each file in objFolder.Files
objRS.Addnew
objRS("Name") = file.Name
objRS("Size") = file.Size
objRS("DateLastmodified") = file.DateLastModified
objRS.Update 
Next

Function Pad (str, numChars)
  str = str & Space(numChars)
  Pad = Left(str, numChars)
End Function

objRS.Sort = "Name ASC, Size, DateLastmodified"
' Displays the recordset
s = ""
objRS.MoveFirst
while Not objRS.EOF
  for each fld in objRS.Fields
      s = s &"<td>"& Pad(objRS.Fields(fld.Name), 18)&"</td>"
  next
  s = s & "</tr>"
  objRS.MoveNext
wend

Response.Write s

%>
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