Har följande sida där man kan se alla bilder i en mapp med paging. Nu ser man bara antal sidor med bilder. Kan man enkelt ändra koden för att lägga dit bokstäver istället, så man hittar rätt fortare.I paging, nummer till bokstav
Tex. min bild heter svart.jpg Då börjar man leta långt ner i listan istället för att gå direkt på bokstaven s. Här följer min kod.
<%'##########################################################################################################
'--------------------------------------------------INSTÄLLNINGAR-----------------------------------------------------------------------------------------------
'############################################################################################################
MappNamn = "images/cover" &Request.Querystring("dir") ' Mappen som bilderna ligger i "images/cover"
AntalPerSida = 10 ' Antal bilder per sida
'############################################################################################################
'-------------------------------------------------LISTAR ALLA FILERNA SOM FINNS I MAPPEN------------------------------------------------------------------
'############################################################################################################
Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))%>
<table border="0" width="474">
<tr>
<td colspan="4" width="330"><font size="2"><b>Listar alla filer i <i><%=MappNamn%></i> mappen.</b></font></td>
</tr>
<tr>
<td colspan="4" width="330"><hr></td>
</tr>
<tr>
<td width="65">
<%If Request.Querystring("dir") <> "" Then%>
<%End If%>
</td><td width="128"><b>Filnamn</b></td><td width="96"><b>Filstorlek</b></td>
<td align="right" width="29"> </td>
</tr>
<tr>
<td colspan="4" width="330"><hr></td>
</tr>
<%PS = AntalPerSida
If Mapp.Files.Count Mod PS Then
Sidor = Mapp.Files.Count \ PS + 1
Else
Sidor = Mapp.Files.Count \ PS
End If
Sida = Request.QueryString("sida")
If Sida = "" Then
Sida = 1
End If
Start = (Sida - 1) * PS
Slut = Start + PS
If Mapp.Files.Count = 0 Then%>
<tr>
<td width="65"> </td><td colspan="3" width="261">Inga filer!</td>
</tr>
<%Else
Set MyDrive = Mapp.Subfolders
For Each Folder in MyDrive%>
<tr>
<td width="65"><img src="bilder/mapp.gif"></td><td width="128">\<%=Folder.Name%>"><%=Folder.Name%></td>
<td width="96"><b>Mapp</b></td><td width="29"> </td>
</tr>
<%Next
For Each File In Mapp.Files
'Totalt = Totalt + File.Size
bild = InStrRev(LCase(File.Name), "." )
If bild < 1 Then bild = "" Else bild = Mid(LCase(File.Name),bild+1)
If X < Start Then
ElseIf X < Slut Then%>
<tr>
<td width="65"><img src="bilder/<%=bild%>.gif"></td>
<td width="128"><%=File.Name%>
<%=Round(File.Size/1000, 1)%> kb
<%For i = 1 To Sidor
If i = CInt(Sida) Then
Response.Write "" & i & ""
Else
Response.Write " " & i & " "
End If
Next%>
</td>
</tr>
<%End If%>
<tr>
<td colspan="4" width="330"><hr></td>
</tr>
<tr>
<td colspan="4" width="330"><b><%=Mapp.Files.Count%></b> filer i denna <b><%'=Mapp.SubFolders.Count%></b> mapp</table>
Svara