Fso - Lista Dir E Abre Página Galeria De Fotos Mas Os

Agosto 15, 2007

Oi pessoal to com mais uma bronca com FSO, peguei esse código na net e modifiquei ele para uma galeria , mas não consigo fazer essa pagina de galeria de fotos listar os diretorio em ordem de postagem. Quanto a exibição das fotos pode ficar sem ordem mesmo.

peguei um tutorial mas não consegui resolver esse caso.

abaixo o código.

<%
'# Anzahl der Bilder nebeneinander
bildzahl = 2

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

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

'# Hintergrundfarbe
hintergrundfarbe = "#000097"

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

'# 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>Galeria de Fotos </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">

<div align="center"><table>
<tr>
	<td>
<%
'########################################
'# 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="left"><li><strong><a href="album.asp?level=<% = strPath %>\<% = Server.URLEncode(strFolder.Name) %>" target="_blank">
      <% = strFolder.Name %>
      </a></strong><br>
    </td>
	</tr>
<%
	End If
next
%>
</table>

<table width="700" bgcolor="silver" border="0" align="center" cellspacing="<% = bildspacing %>" cellpadding="<% = bildpadding %>">
	<tr>
<%
' Bilder anzeigen die im gewählten Ordner liegen
bildcount = 1

For each bild in objFolder.Files

	bildExtension = right(bild.Name, 3)
	If bildExtension = "gif" or bildExtension = "JPG" or bildExtension = "png" Then
%>
		<td align="center" width="700" bgcolor="silver" valign="top"><img src="<% = bildpfad %>/<% = bild.Name %>" width="350" border="4">

<%
	End If

	If bildcount = bildzahl Then
%>

</td>

	</tr>



</table>

</td>
</tr>
</table>
<%
bildcount = 1
End If


	bildcount = bildcount + 1
next
%></div>


</body>
</html>

Para ajudar vocês estou postando esse código que um amigo me ajudou ele está 100% certinho, lista o conteudo do dir para download em ordem usando FSO , mas mesmo com essas explicação não consegui fazer o código acima ficar em ordem.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
    <title>Untitled</title>
</head>

<STYLE type=text/css>
BODY 
{ 
	font-family: verdana;
	font-size: 12px;
	color: #4D4B4D;
	scrollbar-face-color: #DEE3E7;
	scrollbar-highlight-color: #FFFFFF;
	scrollbar-shadow-color: #DEE3E7;
	scrollbar-3dlight-color: #D1D7DC;
	scrollbar-arrow-color: #006699;
	scrollbar-track-color: #EFEFEF;
	scrollbar-darkshadow-color: #98AAB1;
}

BODY {
	BACKGROUND-REPEAT: repeat-y
}
TD {
	FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}
P {
	FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}
LI {
	FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}

A {
	text-decoration: none;
	color: #4D4B4D;
}

A:Hover {
	text-decoration: none;
	color: #4D4B4D;
}

IMG {
	border-color: #4D4B4D;
}

A:Visited {
	text-decoration: none;
	color: #4D4B4D;
}

A:Active {
	text-decoration: none;
	color: #4D4B4D;
}
}

INPUT {
	BACKGROUND-COLOR: #FFFFFF; BORDER-BOTTOM-COLOR: #DCDCDC; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #DCDCDC; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #DCDCDC; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #DCDCDC; BORDER-TOP-WIDTH: 1px; COLOR: #106394; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px
}
</STYLE>  
<body>
<table>
<tr>
	<td>
<%
'Primeiro vamos abrir um objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Agora pegamos a pasta com as imagens!
Set objPasta = objFSO.GetFolder(Server.Mappath("../musica")) 'AQUI - você deve colocar apenas uma parte do caminho da pasta que quer listar. Me baseando em seu script seria apenas essa parte que entra ali no Server.MapPath "doidera\wwwroot\pegar\"

'Vamos criar um recordset agora!
'Ele que vai ter o trabalho de ordenar os arquivos!
Set Rs = Server.CreateObject("ADODB.RecordSet")

'Vamos adicionar 2 campos nesse recordset!
'O método Append recebe 3 parâmetros:
'Nome do campo, Tipo, Tamanho (opcional)
'O tipo pertence à um DataTypeEnum, e você pode conferir os tipos em
Rs.Fields.Append "nome", 200, 255
Rs.Fields.Append "data", 7

'Vamos abrir o Recordset!
Rs.Open

'Temos que percorrer agora todos os arquivos e jogar na nossa tabela virtual!
For Each Arquivo In ObjPasta.Files
    If Right(Arquivo.name,4) = ".wma" OR Right(Arquivo.name,4) = ".wmv" Then
        Rs.AddNew
        Rs.Fields("nome").Value = Arquivo.Name
        Rs.Fields("data").Value = Arquivo.DateLastModified
    End If
Next

'Todos os arquivos no recordset, agora vamos ordená-lo!
'Da maior data para a menor!
Rs.Sort = "data desc" ' DESC para descentende e ASC para ascendente

'Pronto! Agora temos os arquivos todos em ordem em nosso recordset! Vamos exibi-los!
Rs.MoveFirst
While Not Rs.EoF
    'Response.Write "<img src=""images/" & rs.fields("nome").value & """><br>"
    Response.Write "<strong><a href="""& rs.fields("nome").value &""">"& rs.fields("nome").value &"</a><br></strong>"
    Response.Write "Data de Modificação: " & rs.fields("data").value
    Response.Write "<p>"

    Rs.MoveNext
Wend

'Fechando os objetos!
Rs.Close
Set Rs = Nothing

Set objPasta = Nothing
Set objFSO = Nothing
%></td>
</tr>
</table>

</body>
</html>

bareta · Agosto 15, 2007

porque você não refaz o codigo inteiro?

Agosto 15, 2007

Como assim ele está inteiro o primeiro código é o de fotos que eu quero e o segundo é apenas um tutorial que peguei mas não consegui.

Agosto 15, 2007

Tentei FAzer mas não consegui, sou iniciante em asp por isso estou aqui pedindo uma ajuda.

Entrar

Fso - Lista Dir E Abre Página Galeria De Fotos Mas Os

Pergunta

Guest --Maria Cláudia --

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

Guest --Maria Claudia --

Link para o comentário

Compartilhar em outros sites

Guest --Maria Claudia --

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades