veja neste...
http://forum.wmonlin...ct=Search&f=113================
<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<LINK href="../css.css" type=text/css rel=stylesheet>
<title><%=Request.QueryString("Titulo")%></title>
</head>
<body>
<table cellpadding="0" cellspacing="0" width="637" height="100%">
<!-- MSTableType="layout" -->
<tr>
<td valign="top" bgcolor="#FFCF00">
<center><b><%=Request.QueryString("Titulo")%></b></center><br><br>
<%
Caminho = Request.QueryString("FotoLog")
'Sistema de ThumbNails usando FSO
Dim strPicArray
Dim iLoop, limite, pagina, totalarq, i
Dim vlMaximo, vlMinimo, anterior
Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta
'Número de colunas
picsInRow = 3
' Pasta de onde buscará as fotos
thumbFilePath = "../FotoLog/"&caminho&"/"
' Cria o link para as fotos
imageFilePath = "../FotoLog/"&caminho&"/"
' Pasta de onde buscará as fotos
strPhysicalPath="../FotoLog/"&caminho&"/"
Set fso = CreateObject("Scripting.FileSystemObject")
set mainfolder = Fso.GetFolder(Server.MapPath(strPhysicalPath))
Set ObjPasta = Fso.GetFolder(Server.MapPath(strPhysicalPath))
Set filecollection = mainfolder.Files
limite = 9 ' limite de registros por página
totalarq = ObjPasta.files.count ' total de arquivos encontrados
ReDim thumb((totalarq-1))
Dim y
y = 0
' guardamos cada arquivo dentro de um array
For Each ObjArq in ObjPasta.Files
thumb(y) = objArq.Name
y = y + 1
Next
pagina = Request("pag")
IF pagina = "" Then
IF limite < UBound(thumb) Then
vlMinimo = 0
vlMaximo = (limite-1)
Else
vlMinimo = LBound(thumb)
vlMaximo = UBound(thumb)
End IF
pagina = 1
anterior = ""
Else
vlMinimo = (pagina*(limite-1))+(pagina)
vlMaximo = ((limite-1)*(pagina+1))+((pagina)*1)
IF vlMaximo > UBound(thumb) Then vlMaximo = UBound(thumb)
pagina = pagina + 1
anterior = pagina - 2
IF anterior = 0 Then anterior = ""
End IF
Response.Write "<div align='center'>"
Response.Write "<center>"
response.write "<table border='0' cellpadding='4' bordercolor='#003300'>"
intTotPics = 0
For Each file In filecollection
intTotPics = intTotPics + 1
Next
Redim strPicArray(2,intTotPics)
x = 0
For Each file in filecollection
strPicArray(0,x) = file.Name
x = x + 1
Next
' Esta linha lê a pasta e coloca as imagens dentro da tabela
For x = vlMinimo to vlMaximo
Response.Write "<td align='center'>"
if right(strPicArray(0,x),2) = "db" then
else
Response.Write "<a href='"&thumbFilePath & strPicArray(0,x)&"' target='"&Request.QueryString("FotoLog")&"'><img src='" & thumbFilePath & strPicArray(0,x) & "' width='60' height='50' border='0'></a>"
end if
Response.Write "<br></td>"
intPicNo = intPicNo + 1
If intPicNo=picsInRow Then
Response.write "</tr><tr>"
intPicNo = 0
End If
Next
%>
<%
Response.Write "</tr></table>"
Response.Write "</div></center>"
%>
</td>
<td height="201"> </td>
<td valign="top" width="404" rowspan="2">
<IFRAME SRC="FotoAberta.asp?FotoLog=<%=Request.QueryString("FotoLog")%>" name="<%=Request.QueryString("FotoLog")%>" width="380" height="100%" scrolling="no" border="0" frameborder="0"></iframe>
</td>
</tr>
<tr>
<td valign="top" align="center" width="215" bgcolor="#FFCF00" height="100%">
<%
' barra de navegação.
FOR X=-1 TO (y/limite-1)
If Pagina = x+2 Then%>
<B>[ <%=X+2%> ] </B>
<% Else
response.write " <A HREF='?pag="&X+1&"&FotoLog="&Request.QueryString("FotoLog")&"&Titulo="&Request.QueryString("Titulo")&"'>"&X+2&"</A>"
End If
NEXT%>
</td>
<td height="32" width="18"> </td>
</tr>
</table>
</body>
</html>
eu uso este, para mostrar as fotos de uma pasta, e paginar os registros... agora te vira com o resto....
Edição feita por: Luis Otávio, 23/09/2005, 02:04.
Figura1.gif 26.11KB
2 downloads
