Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


I paging, nummer till bokstav

Postades av 2004-08-31 18:54:23 - Joacim Kindvall, i forum asp - allmänt, Tråden har 0 Kommentarer och lästs av 445 personer

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.
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%>
Upp en nivå
<%End If%>
</td><td width="128"><b>Filnamn</b></td><td width="96"><b>Filstorlek</b></td>
<td align="right" width="29">&nbsp;</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">&nbsp;</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">&nbsp;</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

Nyligen

  • 21:28 Chicken Road Casino Game
  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 931
27 965
271 780
470
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies