Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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"></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>' 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 %>">
<% <tr>
<td bgcolor="<% = navicor %>" align="center"><a href="album.asp?level=<% = strPath %>\<% = Server.URLEncode(strFolder.Name) %>">
<% = strFolder.Name %>
</a><br>
</td>
</tr></table>
<br>
<table width="<% = tablarimagem %>" border="0" align="center" cellspacing="<% = espaçamentovisual %>" cellpadding="<% = preenchimentoimagem %>">
<tr>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 = bildcount + 1
next
%>
</tr>
</table>
</body>
</html>Carregando comentários...