..:: MX Studio Fóruns ::..: Galeria de foto dinâmica - ..:: MX Studio Fóruns ::..

Jump to content

Publicidade

Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Galeria de foto dinâmica

#1 User is offline   xanburzum 

  • Group: Administrador
  • Posts: 2073
  • Joined: 04-November 08

Posted 16 January 2012 - 05:55 PM

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>

0

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Similar Topics Collapse

  Topic Forum Started By Stats Last Post Info
New Replies Combo Box Dinamica Flash & ActionScript Rally307 
  • 1 Reply
  • 1391 Views
New Replies a_Como corrigir foto embaçada ?
a_Que comando usar ? 		Photoshop & Image Ready skyphill 
  • 1 Reply
  • 2638 Views
New Replies Galeria de Imagens
controle de dimensões 		PHP superkatatau 
  • 4 Replies
  • 1223 Views
New Replies Rodolfo Lucena: Conheça o guia da foto digital Notícias Notícias 
  • 0 Replies
  • 157 Views
New Replies Fotos
Ajudem 		ColdFusion Bruno Souza 
  • 12 Replies
  • 1790 Views
New Replies GALERIA COM ARRAY
Nao consigo substituir na array load movie 		Flash & ActionScript mateus cunha 
  • 0 Replies
  • 194 Views
New Replies Galeria de fotos
O há de errado no código??? 		Flash & ActionScript Cassiano Óliver 
  • 2 Replies
  • 962 Views
New Replies Download de fotos em galeria de imagens
Como fazer? 		Flash & ActionScript fguarig 
  • 2 Replies
  • 4633 Views

Publicidade

1 User(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)