Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] Galeria de foto dinâmica

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Uma simples galeria de foto dinâmica . Nenhum banco de dados necessário. Somente um arquivo. Lê as pastas e as subpasta e cria a galeria de foto e navegação.

 

<%
'########################################
'# Galeria deFoto 1.0
'########################################

Dim numimagem, espaçamentovisual, preenchimentoimagem, tablarimagem, fontelink, Tamtexto, corfontvínculo
Dim corfontpadrão, fontpadrão, Tamdfontpadrão, corfundo
Dim navitablarga, espaçamentonavi, naviest, navilarguramol, navimolcor, navicor

'########################################
'# variáveis
'########################################

'# Número de imagens lado a lado
numimagem = 3

'# tabela
navitablarga = 250
'#espaçamento de célula
espaçamentonavi = 2
'# células enchimento
naviest = 2
'# largura da moldura
navilarguramol = 2
'# cor da moldura
navimolcor = "#FFFFFF"
'# Cor de fundo das células
navicor = "#666666"

'# largura álbum
tablarimagem = 500
'# espaçamento de célula
espaçamentovisual = 2
'# células enchimento
preenchimentoimagem = 3

'# Cor de fundo
corfundo = "#000097"

'# fonte padrão
fontpadrão = "Tahoma,Verdana,Arial"
'# Tamanho da fonte padrão
Tamdfontpadrão = 12 'in Pixel
'# Cor da fonte padrão
standardschriftfarbe = "#FFFFFF"

'# Fonte dos links de navegação
fontelink = "Tahoma,Verdana,Arial"
'# Tamanho da fonte dos links de navegação
Tamtexto = 12 'em Pixel
'# Cor da fonte dos links de navegação
corfontvínculo = "#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: <% = fontpadrão %>; font-size: <% = Tamdfontpadrão %>px; color: <% = standardschriftfarbe %>}
a {  font-family: <% = fontelink %>; font-size: <% = Tamdfontpadrão %>px; color: <% = standardschriftfarbe %>}
a:hover {  font-family: <% = fontelink %>; font-size: <% = Tamdfontpadrão %>px; color: <% = standardschriftfarbe %>}
a:visited {  font-family: <% = fontelink %>; font-size: <% = Tamdfontpadrão %>px; color: <% = standardschriftfarbe %>}
-->
</style>
</head>

<body bgcolor="<% = corfundo %>">
<p>Aqui poderia ser o seu texto.</p>
<p> configurações de layout (cores, fontes, etc.) entre em contato
  HTML código sob a seção "variáveis antes de definir".</p>
<%
'########################################
'# Apartir daqui, mudar o que achar necessário!
'########################################
Dim bildpfad, bildcount

' Leia a pasta atual
strCurFolder = Request.QueryString("level")

If len(strCurFolder) = 0 Then
   strPath = "."
   bildpfad = ""
Else
   strPath = strCurFolder

   ' Editar caminho da imagem
   bildpfad = RIGHT(strPath, len(strPath) - 2)
End If

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

' Criar links de navegação
%>
<table width="<% = navitablarga %>" align="center" cellpadding="<% = naviest %>" cellspacing="<% = espaçamentonavi %>" bordercolor="<% = navimolcor %>" border="<% = navilarguramol %>">
 <%
for each strFolder in objFolder.SubFolders
   ' versteckte Ordner ausschließen
   If left(strFolder.Name, 1) <> "-" Then
%>
 <tr>

   <td bgcolor="<% = navicor %>" 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="<% = tablarimagem %>" border="0" align="center" cellspacing="<% = espaçamentovisual %>" cellpadding="<% = preenchimentoimagem %>">
   <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 %>"></td>
<%
   End If

   If bildcount = numimagem Then
%>
   </tr>
   <tr>
<%
   bildcount = 0
   End If

   bildcount = bildcount + 1
next
%>
   </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