Jump to content
Fórum Script Brasil
  • 0

Galeria De Fotos Buscando Nas Pastas


Guest --Skywalker --
 Share

Question

Guest --Skywalker --

Fala ai galera estou precisando de uma ajuda

to com um tenho essa galeria de fotos que busca nas pastas as imagens mas eu não to conseguindo fazer com as images sejem mostradas com o nome do arquivo e sem a extensão.

segue o código

<%
'########################################
'# AutoFotoAlbum 1.0
'#
'# © 2001 WoschNet, Osterhofen
'# www.woschnet.com
'########################################

Dim bildzahl, bildspacing, bildpadding, bildtabellenbreite, linkschriftart, linkschriftgroesse, linkschriftfarbe
Dim standarschriftfarbe, standardschriftart, standardschriftgroesse, hintergrundfarbe
Dim navitabellenbreite, navispacing, navipadding, navirahmenbreite, navirahmenfarbe, navihgfarbe

'########################################
'# Variablen definieren
'########################################

'# Anzahl der Bilder nebeneinander
bildzahl = 2

'# Navibreite
navitabellenbreite = 250
'# Zellenabstand
navispacing = 2
'# Zellenauffüllung
navipadding = 2
'# Rahmenbreite
navirahmenbreite = 2
'# Rahmenfarbe
navirahmenfarbe = "#FFFFFF"
'# Farbe Zellenhintergrund
navihgfarbe = "#666666"

'# Albumbreite
bildtabellenbreite = 500
'# Zellenabstand
bildspacing = 2
'# Zellenauffüllung
bildpadding = 3

'# Hintergrundfarbe
hintergrundfarbe = "#000097"

'# Standardschriftart
standardschriftart = "Tahoma,Verdana,Arial"
'# Standardschriftgröße
standardschriftgroesse = 12 'in Pixel
'# Standardschriftfarbe
standardschriftfarbe = "#FFFFFF"

'# Schriftart des Navigations Links
linkschriftart = "Tahoma,Verdana,Arial"
'# Schriftgröße des Navigations Links
linkschriftgroesse = 12 'in Pixel
'# Schriftfarbe des Navigations Links
linkschriftfarbe = "#99CD00"

'########################################
%>
<html>
<head>
<title>Fotogalerie</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {  font-family: <% = standardschriftart %>; font-size: <% = standardschriftgroesse %>px; color: <% = standardschriftfarbe %>}
a {  font-family: <% = linkschriftart %>; font-size: <% = standardschriftgroesse %>px; color: <% = standardschriftfarbe %>}
a:hover {  font-family: <% = linkschriftart %>; font-size: <% = standardschriftgroesse %>px; color: <% = standardschriftfarbe %>}
a:visited {  font-family: <% = linkschriftart %>; font-size: <% = standardschriftgroesse %>px; color: <% = standardschriftfarbe %>}
-->
</style>
</head>

<body leftmargin="0" topmargin="0" bgcolor="<% = hintergrundfarbe %>">
<p></p>
<%
'########################################
'# Ab hier nichts mehr ändern !
'########################################
Dim bildpfad, bildcount

' aktuellen Ordner auslesen
strCurFolder = Request.QueryString("level")

If len(strCurFolder) = 0 Then
    strPath = "."
    bildpfad = ""
Else
    strPath = strCurFolder
    
    ' Bildpfad bearbeiten
    bildpfad = RIGHT(strPath, len(strPath) - 2)
End If

set objFS = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFS.GetFolder(Server.MapPath(strPath))

' Navigations Links erstellen
%>
<table width="<% = navitabellenbreite %>" align="center" cellpadding="<% = navipadding %>" cellspacing="<% = navispacing %>" bordercolor="<% = navirahmenfarbe %>" border="<% = navirahmenbreite %>">
  <%
for each strFolder in objFolder.SubFolders
    ' versteckte Ordner ausschließen
    If left(strFolder.Name, 1) <> "-" Then
%>
  <tr>
        
    <td bgcolor="<% = navihgfarbe %>" align="center"><a href="album.asp?level=<% = strPath %>\<% = Server.URLEncode(strFolder.Name) %>">
      <% = strFolder.Name %>
      </a><br>
    </td>
    </tr>
<%
    End If
next
%>
</table>
<br>
<table width="<% = bildtabellenbreite %>" border="0" align="center" cellspacing="<% = bildspacing %>" cellpadding="<% = bildpadding %>">
    <tr>
<%
' Bilder anzeigen die im gewählten Ordner liegen
bildcount = 0

For each bild in objFolder.Files

    bildExtension = right(bild.Name, 3)
    If bildExtension = "gif" or bildExtension = "jpg" or bildExtension = "png" Then
%>
        <td align="center"><img src="<% = bildpfad %>/<% = bild.Name %>" width="350" border="2"></td>
<%
    End If
    
    If bildcount = bildzahl Then
%>
    </tr>
    <tr>
<%
    bildcount = 0
    End If
    
    bildcount = bildcount + 1
next
%>
    </tr>
</table>
</body>
</html>

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...