Novo problema com FSO

jrcardozo · Agosto 21, 2007

simples, só pegar o codigo pronto que o salgado te passou e modificar para listar as subpastas e não os arquivos

Maria claudia · Agosto 21, 2007

não é tão simpes assim pois essa pagina asp que mostra os diretorios, ela mesma também gera uma galeria de fotos.

Ex. o código abaixo lista os dir, e quando a pessoa clica no diretorio listado ela gera uma pagina que mostra o conteudo do diretorio em forma de galeria. (as fotos dos dir não precisão está em ordem apenas os dir).

ASP

<%

'########################################

'# AutoFotoAlbum 1.0

'#

'# © 2001 WoschNet, Osterhofen

'# www.woschnet.com

'########################################

'########################################

'# Variablen definieren

'########################################

'# 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> 

jrcardozo · Agosto 21, 2007

só montar a galeria em cima do codigo do salgado. Primeiro você lista as pastas em ordem desejada. Quando clica nela vai pra galeria(que será o mesmo código só que ordenando pelos arquivos e vendo se existe subpastas)

Maria claudia · Agosto 23, 2007

jonathandj tentei fazer essa junção dos dois códigos mas não to conseguindo não sei muito de asp, sou iniciante você poderia dá o ponta é inicial para eu poder ver onde devo colocar o código que gera a galeria?

jrcardozo · Agosto 23, 2007

alterando isso você ordena pela data de ultima modificação dos arquivos

ASP

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 

Maria claudia · Agosto 27, 2007

Valeu mas ainda não consegui ta dando esse erro

Microsoft VBScript compilation error '800a0400'

Expected statement

Abaixo o código que eu montei com suas dicas

ASP

------------------------------

<%

'# 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 = "JPG" or bildExtension = "jpg" or bildExtension = "JPG" Then

Rs.AddNew

        Rs.Fields("nome").Value = bild.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 

%>

                <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> 

Maria claudia · Setembro 6, 2007

Oi Pessoal ainda to bantendo cabeça com isso

tentei desse jeito mas ainda não deu

alguem pode da uma ajudinha?

segue o código

ASP

<%

'# 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>

<!--

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>

<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

</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 = "JPG" or bildExtension = "jpg" or bildExtension = "JPG" Then

Rs.AddNew

Rs.Fields("nome").Value = bild.Name

Rs.Fields("data").Value = Arquivo.DateLastModified

End If

'Da maior data para a menor!

Rs.Sort = "data desc" ' DESC para descentende e ASC para ascendente

%>

<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

</body>

</html>

Entrar

Arquivado

Novo problema com FSO

Recommended Posts

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Maria claudia 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Maria claudia 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Maria claudia 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Maria claudia 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Javascript - Calcular Valores Monetário em Tempo Real

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante