Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Maria claudia

Galeria De Fotos Buscando Nas Pastas

Por , em ASP Clássico

Recommended Posts

Maria claudia    0

Maria claudia
Postado

Fala ai galera tô 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, linkschriftfarbeDim standarschriftfarbe, standardschriftart, standardschriftgroesse, hintergrundfarbeDim navitabellenbreite, navispacing, navipadding, navirahmenbreite, navirahmenfarbe, navihgfarbe'########################################'# Variablen definieren'########################################'# Anzahl der Bilder nebeneinanderbildzahl = 2'# Navibreitenavitabellenbreite = 250'# Zellenabstandnavispacing = 2'# Zellenauffüllungnavipadding = 2'# Rahmenbreitenavirahmenbreite = 2'# Rahmenfarbenavirahmenfarbe = "#FFFFFF"'# Farbe Zellenhintergrundnavihgfarbe = "#666666"'# Albumbreitebildtabellenbreite = 500'# Zellenabstandbildspacing = 2'# Zellenauffüllungbildpadding = 3'# Hintergrundfarbehintergrundfarbe = "#000097"'# Standardschriftartstandardschriftart = "Tahoma,Verdana,Arial"'# Standardschriftgrößestandardschriftgroesse = 12 'in Pixel'# Standardschriftfarbestandardschriftfarbe = "#FFFFFF"'# Schriftart des Navigations Linkslinkschriftart = "Tahoma,Verdana,Arial"'# Schriftgröße des Navigations Linkslinkschriftgroesse = 12 'in Pixel'# Schriftfarbe des Navigations Linkslinkschriftfarbe = "#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 auslesenstrCurFolder = Request.QueryString("level")If len(strCurFolder) = 0 ThenstrPath = "."bildpfad = ""ElsestrPath = strCurFolder' Bildpfad bearbeitenbildpfad = RIGHT(strPath, len(strPath) - 2)End Ifset 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ßenIf 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 Ifnext%></table><br><table width="<% = bildtabellenbreite %>" border="0" align="center" cellspacing="<% = bildspacing %>" cellpadding="<% = bildpadding %>"><tr><%' Bilder anzeigen die im gewählten Ordner liegenbildcount = 0For each bild in objFolder.FilesbildExtension = 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 IfIf bildcount = bildzahl Then%></tr><tr><%bildcount = 0End Ifbildcount = bildcount + 1next%></tr></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito