Hello.
Und zwar hab ich da sone Pseudo-Medienverwaltung
(Pseudo deshalb weil der User damit nix anstellen
kann, listet nur Bilder mit den Attributen dazu
auf die in einem Ordner liegen).
Folgende Struktur:
SUB
FSO generieren
-- Recordset generieren
--- Recordset �ffnen
---- Schleife beginnen
----- Recordset f�llen
------ Ausgabe
---- Schleife schlie�en
--- Recordset schlie�en
/SUB
Das funktioniert auch alles, ist ja auch kein Act.
Jetzt will ich aber eine Bl�tterfunktion einbauen die
ich hier schon als fertige, hausinterne function dahabe.
Problem 1: Das Ding ist scheinbar f�r DB-Anwendungen ent-
wickelt worden.
Problem 2: Ich komme mit den Schleifen nicht klar, bzw.
habe ich echt keinen Plan mehr wo genau ich das einf�gen
muss, habe schon alle m�glichen Varianten durch.
Hier mal ein paar Snipplets:
main.asp:
SUB SchreibeDaten
' Create FSO, beginne Funktion SchreibeDaten
Bildpfad = Server.MapPath(path)
SET FolderObject = CreateObject("Scripting.FileSystemObject")
SET ListFolder = FolderObject.GetFolder(Bildpfad)
' Erstelle Recordset, definiere Datenstruktur
Set objRS = CreateObject("ADODB.Recordset")
objRS.Fields.Append "Bildname", adChar, 64
objRS.Fields.Append "Bildpfad", adChar, 64
objRS.Fields.Append "Bildadded", adChar, 64
objRS.Fields.Append "Bildgroesse", adChar, 64
objRS.Fields.Append "Bildtyp", adChar, 64
' �ffne Recordset
objRS.Open
' Schleife einleiten
FOR EACH FileName IN ListFolder.Files
' Korrekte Kilobytezahl ermitteln und runden
DIM Groesse, GrKB
Groesse = FileName.Size / 1024
GrKB = ROUND(Groesse,0)
' Mache aus phys. nen relativen Pfad
DIM Bildpfad, Root, relBildpfad, KBildpfad
Bildpfad = FileName.Path
Root = path
relBildpfad = Right(Path, Len(Path) - Instr(Path,
Root) + Len(Root))
KBildpfad = "." & relBildpfad & "/" & FileName.Name
' Recordset f�llen
objRS.AddNew
objRS("Bildname") = FileName.Name
objRS("Bildpfad") = KBildpfad
objRS("Bildadded") = FileName.DateCreated
objRS("Bildgroesse") = GrKb
objRS("Bildtyp") = FileName.Type
DIM Picturename : Picturename = objRS("Bildname")
DIM Picturepath : Picturepath = objRS("Bildpfad")
DIM Picadded : Picadded = objRS("Bildadded")
DIM Picturesize : Picturesize = objRS("Bildgroesse")
DIM Pictype : Pictype = objRS("Bildtyp")
.............. komplette Ausgabe ..............
' Schleife: gehe zum n�chsten Datensatz
NEXT
' Recordset schlie�en
objRS.Close
Set objRS = Nothing
' function schlie�en
END SUB
Die Bl�tterfunction steht inner pager.asp, zum Einf�gen soll ich
folgenden Code verwenden :)
objRS.Open sql
call ini(objRS) ' Aufruf der Function mit �bergabe des RS objects
if objRS.RecordCount > 0 then
k = (mPageNo - 1) * mPageSize
objRS.move(k)
j = 0
FOR i = k To mRecordCount -1
'Hier nun die zu loopenden Datensatzdarstellung
......
With Response
.Write "<tr> " & vbCrLf
.Write "<td><a href=haendler.asp"&
getSearchParam("h_id")&">"&h_name&"</a></td>" & vbCrLf
.Write "</tr>" & vbCrLf
End With
......
.....
objRS.MoveNext
' Z�hler, um das Erreichen von mPageSize zu checken
' (letzte Seite in der darzustellenden Seitengruppe)
j = j + 1
IF j = mPageSize then
Exit For
End If
Next
'Aufruf der Function 'Pager' und gleichzeitige Ausgabe der zur�ckgegebenen
Navigation
Response.Write pager
else
.... keine Datens�tze
...
end if
Ich hoffe auf eure Hilfe ;o)
Aus N�rnberg gr��t freundlich, \ | /
Thomas Bandt (0^0)
-----------------------------o00--( )--00o--
Onlinedevelopment - PULSAR interactive media
E-Mail: [EMAIL PROTECTED] Online: http://www.pim.de
--------------------------------------------
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
