<% dim AnzahlDateien ' --- Zuweisen der Pfadangabe Dim f_path f_path = Server.MapPath("./big") ' --- Erstellen eines FSO-Objekts Set objFileSys = Server.CreateObject("Scripting.FileSystemObject") ' --- Erstellen des Folder-Objekts für den angegeben Pfad Set objFolder = objFileSys.GetFolder(f_path) ' --- Erstellen der Files-Auflistung des Verzeichnisses Set objFiles = objFolder.Files ' --- Ausgabe der Anzahl der Dateien 'Response.Write "Anzahl Dateien: " & objFiles.Count & "
" AnzahlDateien = objFiles.Count ' --- Zerstören der Files-Auflistung Set objFiles = Nothing ' --- Erstellen der SubFolders-Auflistung des Verzeichnisses Set objSubFolders = objFolder.SubFolders ' --- Ausgabe der Anzahl der Unterverzeichnisse 'Response.Write "Anzahl Unterverzeichnisse: " & objSubFolders.Count & "
" ' --- Zerstören der SubFolders-Auflistung Set objSubFolders = Nothing ' --- Zerstören des Folder-Objekts Set objFolder = Nothing ' --- Zerstören des FSO-Objekts Set objFileSys = Nothing %> <% 'Datenbank dim conn, rs, sql, cnt, seite cnt = 0 seite = 0 dim action action = Request.QueryString("action") dim mybild, dataMyBild, partyid mybild = Request.QueryString("id") partyid = Request.QueryString("pid") dim pages pages = fix(mybild / 30) dim strVirtPfadSelbst, PosistionLetzterSlash dim fotosite strVirtPfadSelbst = Request.ServerVariables("SCRIPT_NAME") 'Hinteren Teil abschneiden "/pix.asp" PosistionLetzterSlash = InStrRev(strVirtPfadSelbst,"/") strVirtPfadSelbst = LEFT (strVirtPfadSelbst,PosistionLetzterSlash-1) 'Response.Write "Position = " & PosistionLetzterSlash & "
" 'Response.Write "LEFT = " & strVirtPfadSelbst & "
" 'PictureSite bestimmen PosistionLetzterSlash = InStrRev(strVirtPfadSelbst,"/") fotosite = RIGHT (strVirtPfadSelbst,len(strVirtPfadSelbst)-PosistionLetzterSlash) fotosite = fotosite & ".de" 'Response.Write "Position = " & PosistionLetzterSlash & "
" 'Response.Write "RIGHT = " & fotosite & "
" 'Datum bestimmen bei djportal PosistionLetzterSlash = InStrRev(strVirtPfadSelbst,"/") strVirtPfadSelbst = LEFT (strVirtPfadSelbst,PosistionLetzterSlash-1) strVirtPfadSelbst = RIGHT (strVirtPfadSelbst,10) 'Response.Write "Position = " & PosistionLetzterSlash & "
" 'Response.Write "LEFT = " & strVirtPfadSelbst & "
" strVirtPfadSelbst = replace (strVirtPfadSelbst, "-", "_") ' Bestimmen der Partydetails dim homepage, maxpictures partydatum = "Fernverkehr Zedtwitz am " & strVirtPfadSelbst maxpictures = AnzahlDateien homepage = fotosite IF action = "bigpix" THEN 'BESTIMMEN DER BILDERZIFFER MIT NULLEN AM ANFANG IF mybild > 9 THEN IF mybild > 99 THEN dataMyBild = mybild ELSE dataMyBild = "0" & mybild END IF ELSE dataMyBild = "00" & mybild END IF 'dataMyBild = "dc_" & strVirtPfadSelbst & "_" & dataMyBild '************************************************************ '* Anpassen der Bildergroessen '************************************************************ function GetBytes(flnm, offset, bytes) Dim objFSO Dim objFTemp Dim objTextStream Dim lngSize on error resume next Set objFSO = CreateObject("Scripting.FileSystemObject") ' First, we get the filesize Set objFTemp = objFSO.GetFile(flnm) lngSize = objFTemp.Size set objFTemp = nothing fsoForReading = 1 Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading) if offset > 0 then strBuff = objTextStream.Read(offset - 1) end if if bytes = -1 then ' Get All! GetBytes = objTextStream.Read(lngSize) 'ReadAll else GetBytes = objTextStream.Read(bytes) end if objTextStream.Close set objTextStream = nothing set objFSO = nothing end function function lngConvert(strTemp) lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256))) end function function lngConvert2(strTemp) lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256))) end function function gfxSpex(flnm, width, height, depth, strImageType) dim strPNG dim strGIF dim strBMP dim strType strType = "" strImageType = "(unknown)" gfxSpex = False strPNG = chr(137) & chr(80) & chr(78) strGIF = "GIF" strBMP = chr(66) & chr(77) strType = GetBytes(flnm, 0, 3) if strType = strGIF then ' is GIF strImageType = "GIF" Width = lngConvert(GetBytes(flnm, 7, 2)) Height = lngConvert(GetBytes(flnm, 9, 2)) Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1) gfxSpex = True elseif left(strType, 2) = strBMP then ' is BMP strImageType = "BMP" Width = lngConvert(GetBytes(flnm, 19, 2)) Height = lngConvert(GetBytes(flnm, 23, 2)) Depth = 2 ^ (asc(GetBytes(flnm, 29, 1))) gfxSpex = True elseif strType = strPNG then ' Is PNG strImageType = "PNG" Width = lngConvert2(GetBytes(flnm, 19, 2)) Height = lngConvert2(GetBytes(flnm, 23, 2)) Depth = getBytes(flnm, 25, 2) select case asc(right(Depth,1)) case 0 Depth = 2 ^ (asc(left(Depth, 1))) gfxSpex = True case 2 Depth = 2 ^ (asc(left(Depth, 1)) * 3) gfxSpex = True case 3 Depth = 2 ^ (asc(left(Depth, 1))) '8 gfxSpex = True case 4 Depth = 2 ^ (asc(left(Depth, 1)) * 2) gfxSpex = True case 6 Depth = 2 ^ (asc(left(Depth, 1)) * 4) gfxSpex = True case else Depth = -1 end select else strBuff = GetBytes(flnm, 0, -1) ' Get all bytes from file lngSize = len(strBuff) flgFound = 0 strTarget = chr(255) & chr(216) & chr(255) flgFound = instr(strBuff, strTarget) if flgFound = 0 then exit function end if strImageType = "JPG" lngPos = flgFound + 2 ExitLoop = false do while ExitLoop = False and lngPos < lngSize do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize lngPos = lngPos + 1 loop if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2)) lngPos = lngPos + lngMarkerSize + 1 else ExitLoop = True end if loop ' if ExitLoop = False then Width = -1 Height = -1 Depth = -1 else Height = lngConvert2(mid(strBuff, lngPos + 4, 2)) Width = lngConvert2(mid(strBuff, lngPos + 6, 2)) Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8) gfxSpex = True end if end if end function dim strPhysical, absDateiPfad Set objFSO = CreateObject("Scripting.FileSystemObject") strPhysical = Server.MapPath("./big") Set objF = objFSO.GetFolder(strPhysical) absDateiPfad = objF & "\" & dataMyBild & ".jpg" if gfxSpex(absDateiPfad , w, h, c, strType) = true then 'response.write w & " x " & h & " " & c & " colors" else 'response.write "Nixxx " end if set objFC = nothing set objF = nothing set objFSO = nothing %>
<% IF mybild > 1 THEN %> zurück  <% ELSE %> Anfang  <% END IF %> <% IF cint(mybild) < cint(maxpictures) THEN %> weiter  <% ELSE %> Ende  <% END IF %> <% 'w = weite 'h = hoehe dim waagrecht 'WENN die Weite > Hoehe -> waagrecht IF w>h THEN waagrecht = true ELSE waagrecht = false END IF %>

src="<% Response.Write "big/" & dataMyBild & ".jpg" %>">

Bild: <%=mybild %> / <%=AnzahlDateien %> - Fernverkehr Zedtwitz am <% =strVirtPfadSelbst%>

<% ELSE %>
Fernverkehr Zedtwitz - <% =partydatum %> made by <% =fotosite %>
<% dim tdCnt tdCnt = 1 for cnt = 1 to maxpictures 'BESTIMMEN DER BILDERZIFFER MIT NULLEN AM ANFANG IF cnt > 9 THEN IF cnt > 99 THEN dataMyBild = cnt ELSE dataMyBild = "0" & cnt END IF ELSE dataMyBild = "00" & cnt END IF 'dataMyBild = "dc_" & strVirtPfadSelbst & "_" & dataMyBild %> <% IF tdCnt = 4 THEN %> <% tdCnt = 1 ELSE tdCnt = tdCnt + 1 END IF %> <% Next %>

>">

Bild: <% =cnt %>

<% END IF %>