Pegar Imagens De Subdiretório! Como?

Julho 1, 2004

tenho esse código ai... que mostra todas as imagens (jpg, etc) do diretório em que a página asp está.. .... mas eu queria direcionar esse caminho para um subdiretório.... não to sabendo aonde modificar....

o código ta ai......

abrasssssssssssss

<%

' PhotoAlbum

Dim CurFile, PopFileShowSub, ShowPic, PictureNo
Dim strPathInfo, strPhysicalPath


Dim intTotPics, intPicsPerRow, intPicsPerPage, intTotPages, intPage, strPicArray()
intPicsPerRow  = 4
intPicsPerPage = 12

intPage = CInt(Request.QueryString("Page"))
If intPage = 0 Then
	intPage = 1
End If


CurFile = "album.asp"
PopFile = "mostrar_img.asp"
%>
<script language="JavaScript">
<!--
function jumppage(sel) 
{
  var i = sel.selectedIndex
  self.location.href = sel.options[i].value
}
// -->
</script>
<script language="JavaScript">
function openGalleryWindow(url) {
	if (document.all)
  var xMax = screen.width, yMax = screen.height;
	else
  if (document.layers)
  	var xMax = window.outerWidth, yMax = window.outerHeight;
  else
  	var xMax = 800, yMax=600;
	var xOffset = (xMax - 200)/2, yOffset = (yMax - 200)/2;
	var xOffset = 100, yOffset = 100;

	popupWin = window.open(url,'new_page','width=700,height=535,screenX='+xOffset+',screenY='+yOffset+', top='+yOffset+',left='+xOffset+',scrollbars=auto,toolbars=no,menubar=no,resizable=yes')
}

</script><head>
<title>HK NELORE - Fotos</title>
<link href="../estilo.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body bgcolor="#009933">
<center>
<table width="600" id="AutoNumber1">
<tr>

<td align="center" width="25%">
  <form action=<%=PopFile%> method="POST">
          <table width="100%" align="center" cellpadding="5">
            <tr> 
              <td height="44"><img src="../fotos.gif"></td>
              <td>Fotos / Diret&oacute;rio: &nbsp; 
                <select name="go" onChange="jumppage(this);" size=1>
                  <% 
  ShowSub = request("ShowSub")
  ShowPic = request("ShowPic")
  strPathInfo = Request.ServerVariables("PATH_INFO")
  strPhysicalPath = Server.MapPath(strPathInfo)

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.GetFile(strPhysicalPath)
  Set objFolder = objFile.ParentFolder
  Set objFolderContents = objFolder.Files
  For each Folder in objFolder.SubFolders
  	If Left(Folder.Name,1)<>"_" Then
    Response.write "<option "
    If ShowSub=Folder.Name Then
    	Response.Write "selected "
    End if
    Response.Write"value='" & CurFile & "?ShowSub="
    Response.Write(Replace(Folder.Name, " ", "%20"))
    response.write "'>"
    Response.Write(Folder.Name & "</option>")
    If ShowSub <= " " Then
      ShowSub = Folder.Name
  End if
  	End if
  Next 
  Set objFSO = Nothing
  %>
                </select> </td>
            </tr>
            <tr> 
              <td height="44" colspan="2"><table width="100%">
                  <tr> 
                    <td><strong><u>Veja aqui fotos de machos e f&ecirc;meas Nelore 
                      da m&eacute;dia do Plantel. Clique na<br>
                      foto para v&ecirc;-la em tamanho maior.</u></strong></td>
                  </tr>
                </table></td>
            </tr>
          </table>
        </form>
  </td>
</tr>
</table>
<%
If ShowPic > " " then
  ShowPic = Replace(ShowPic, " ", "%20")
  Response.Write "<a href='JavaScript:history.go(-1)'><img src='" & ShowPic & "'><BR><BR><font face=""Tahoma"" size=""1""><b>Voltar</b></a>"
Else
%>
  <table width="500" id="AutoNumber1">
  <tr>
  <%
  strPhysicalPath = Server.MapPath(".\" & ShowSub)
  If ShowSub > " " then
    ShowSub = Replace(ShowSub, " ", "%20")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files



  'Get the number of pictures in the subdirectory 
  intTotPics = 0
    For Each objFileItem in objFolderContents
  If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
  	intTotPics = intTotPics + 1
  End if
    Next

	'Get the total number of pages in the subdirectory 
	If (intTotPics/intPicsPerPage) = (int(intTotPics/intPicsPerPage)) Then
  intTotPages = int(intTotPics/intPicsPerPage)
	Else
  intTotPages = int(intTotPics/intPicsPerPage)+1
	End If
	Redim strPicArray(2,intTotPics)

	'Store picture file names in an array
	x = 0
	For Each objFileItem in objFolderContents
  If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
  	strPicArray(0,x) = objFileItem.Name
  	strPicArray(1,x) = Cstr(int(x/intPicsPerPage)+1)
  	x = x + 1
  End if
	Next

	'Determine if there are multiple pages and if so, display page numbers.
	If intTotPages > 1 Then
  Response.Write "<td colspan='" & intPicsPerRow & "' align='center'><font face='Tahoma,Verdana,Arial' size='1'>Página:&nbsp;&nbsp;&nbsp;"
  For x = 1 to intTotPages
  	If x = intPage Then
    Response.Write "</font><font face='Tahoma' size='2'>" & x & "</font><font face='Tahoma' size='1'>&nbsp;&nbsp;&nbsp;&nbsp;"
  	Else
    Response.Write "<a href='album.asp?Page=" & x & "&ShowSub=" & ShowSub & "'>" & x & "</a>&nbsp;&nbsp;&nbsp;&nbsp;"
  	End If
  Next
  Response.Write "</font></td>"
  Response.Write "</tr><tr><td>&nbsp;</td></tr><tr>"
	End If


	For x = 0 to UBound(strPicArray,2)-1
	If CInt(strPicArray(1,x)) = intPage Then
     ShowPic = Replace(strPicArray(0,x), " ", "%20")
      Response.write "<td align='center' width='25%'><a href=""Javascript:openGalleryWindow('" & PopFile & "?ShowPic=" & ShowSub & "/" & ShowPic & "')"""
   Response.write "<br>"
     Response.write "<br>"
     Response.write "<br>"
   Response.Write("<img src='" & ShowSub & "/" & strPicArray(0,x) & "' border=0 width=130> ")
   Response.Write("<br><font color=""" & strBaseFontColor & """><b>" & Mid(strPicArray(0,x),1,Len(strPicArray(0,x))-4) & "</b></font>")
   Response.write "</a></td>" & vbcrlf

   PictureNo = PictureNo + 1
   If PictureNo=intPicsPerRow Then
    Response.write "</tr><tr>"
    PictureNo = 0
   End if
	End If
	Next



    Set objFSO = Nothing
  End if
  %>
  </tr>
  </table>
  <%
End if
%></center>
</html>

Editado Julho 2, 2004 por dark0

bareta · Julho 2, 2004

como assim?????

Julho 2, 2004

como assim?????

no diretorio que esse código estiver....... ele vai listar em forma de thumbnail todas as imagens (jpg, etc) que estiverem nesse mesmo diretório!!!!

só que eu queria que listasse as imagens de um outro diretório só

que não sei modificar ai no código para isso!

abrasssssss

bareta · Julho 2, 2004

tenta alterar uma destas linhas, pelo que conheço acho que são elas que indicam a pasta ai...

 strPhysicalPath = Server.MapPath(strPathInfo)

strPhysicalPath = Server.MapPath(".\" & ShowSub)

Julho 2, 2004

tenta alterar uma destas linhas, pelo que conheço acho que são elas que indicam a pasta ai...
 strPhysicalPath = Server.MapPath(strPathInfo)
strPhysicalPath = Server.MapPath(".\" & ShowSub)

cara.... nem rolou .... nem deu certo...... as

duas linhas.... mudo ... mas ai da erro.

sabe mais algo?

abrass

dark0 · Julho 2, 2004

Eu editei seu primeiro post, por causa da 'deformação' no layout do tópico.

apenas coloquei um espaço na linha 'gigante' que tinha lá.

o seu codigo foi feito para listar as imagens do diretorio atual (segundo o que dá pra entender no seu codigo).

tente colocar esse codigo no diretorio que você quer mostrar as imagens, e rodar o codigo de lá, pra testar.

ate mais

Julho 2, 2004

Eu editei seu primeiro post, por causa da 'deformação' no layout do tópico.
apenas coloquei um espaço na linha 'gigante' que tinha lá.
o seu codigo foi feito para listar as imagens do diretorio atual (segundo o que dá pra entender no seu codigo).
tente colocar esse codigo no diretorio que você quer mostrar as imagens, e rodar o codigo de lá, pra testar.
ate mais

valeu!

mas é aí que tá.... não posso colocar esse código lá

porque há um 'sistem de upload/manager de arquivos'

em que o usuário ira apagar e enviar fotos.... e ele pode

apagar o arquivo .asp por distração!

se alguém tiver alguma ideia ?

abrasssssssss

dark0 · Julho 2, 2004

hmm.. como esta sua estrutura de sites?

dá um response.write nessa variavel: strPhysicalPath

ela guarda o caminho do diretorio atual..

sabendo ele, da pra ter uma ideia..

você tem que pegar esse caminho, e no codigo, colocar ele inteiro nessa variavel, e mudar pro diretorio que você quer mostrar

t+

Entrar

Pegar Imagens De Subdiretório! Como?

Pergunta

Guest PearlJam

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

Guest PearlJam

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Guest PearlJam

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Guest PearlJam

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades