Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

rodrigo_lug

Buscar imagem em diretório por data de postagem

Por , em ASP Clássico

Recommended Posts

rodrigo_lug    0

rodrigo_lug
Postado

Fala ai pessoal, alguem pode me da uma moral

Tenho um código em asp que busca todas as fotos em diretótios do servidor por ordem alfabetica, gostaria que ele busca se por data de postagem "a última postagem seria a primeira foto a ser exibida", olha o código ai.

 

 

ASP
<html>

 

<head>

<title>Teste</title>

<style><!-- A {text-decoration:none;}

            A:hover {text-decoration:underline; color=ff8800}//-->

</style>

</head>

 

<body text="000000" link="#000080" alink="#666666" vlink="#999999" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0" marginwidth="0" marginheight="0">

 

<%

 

'Inicio do Album de fotos

'Declara as variaveis

Dim CurFile, PopFileShowSub, ShowPic, PictureNo

Dim strPathInfo, strPhysicalPath

Dim intTotPics, intPicsPerRow, intPicsPerPage, intTotPages, intPage, intPicsWidth, strPicArray()

 

'Configurações personalizadas

intPicsPerRow  = 4   'Numero de Colunas

intPicsPerPage = 24  'Numero de imagens por páginas

intPicsWidth   = 200 'Tamanha das mininhaturas das imagens

 

intPage = CInt(Request.QueryString("Pagina"))

If intPage = 0 Then

intPage = 1

End If

 

 

CurFile = "Album.asp"

PopFile = "Ver.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>

<br>

<center>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="682" id="AutoNumber1">

  <tr>

    <td align="left" width="261"><b>

    <font size="5" face="Verdana" color="#000080">Álbum de Fotos Balofotos </font></b>

    </td>

    <td align="right" width="421">

    <form action="<%=PopFile%>" method="POST">

      <font face="Verdana" size="2" color="#000080"><b>Link para fotos::</b></font><font face="Verdana" size="2" color="ff8800">

      <select name="go" onChange="jumppage(this);" size="1"><%

  'Cria o Objeto e declara os Paths

  ShowSub = request("Festa")

  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 & "?Festa="

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

    </form>

    </font></td>

  </tr>

</table>

<%

If ShowPic > " " then

  ShowPic = Replace(ShowPic, " ", "%20")

  Response.Write "<a href='java script:history.go(-1)'><img src='" & ShowPic & "'><BR><BR><font face=""verdana"" size=""1""><b>Voltar</b></a>"

Else

%>

<table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#000000" width="100%" id="AutoNumber1">

  <tr>

    <%

  'Localiza a quatidade de pastas que tem imagens  

  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

 

 

 

  'Conta a quatidade de imagens nos sub diretórios

  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

 

'Calcula a quatidade de imagens que tem no diretorio

If (intTotPics/intPicsPerPage) = (int(intTotPics/intPicsPerPage)) Then

  intTotPages = int(intTotPics/intPicsPerPage)

Else

  intTotPages = int(intTotPics/intPicsPerPage)+1

End If

Redim strPicArray(2,intTotPics)

 

'Varre o diretorio e pegas as imagens com extenções de imagens

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

 

'Determina a paginação para imagens e mostra o total de imagens no diretorio.

If intTotPages > 1 Then

  Response.Write "<td colspan='" & intPicsPerRow & "' align='center'><font face='Verdana,Arial' size='3'>Páginas:   "

  For x = 1 to intTotPages

  If x = intPage Then

    Response.Write "</font><font face='Arial' size='2'><b>" & x & "</b></font><font face='Arial' size='2'>    "

  Else

    Response.Write "<a href='Album.asp?Pagina=" & x & "&Festa=" & ShowSub & "'>" & x & "</a>    "

  End If

  Next

  Response.Write "<br><br><center><font face='Verdana,Arial' size='3'>Total de imagens nesta página: <b>"&intTotPics&"</b> </center>"

  Response.Write "</font></td>"

  Response.Write "</tr><tr><td> </td></tr><tr>"

End If

 

'Mosta as tabelas onde serão exibidas as imagens

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=""java script:openGalleryWindow('" & PopFile & "?Imagem=" & ShowSub & "/" & ShowPic & "')"""

  Response.write "<br>"

  Response.Write("<img src='" & ShowSub & "/" & strPicArray(0,x) & "' width="& intPicsWidth &"> ")

  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>

 

</body>

 

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Amigo, dê uma pesquisada aqui mesmo no fórum, recentemente ajudamos uma usuário com duvida semelhante a sua.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito