Galera, é o seguinte eu tenho esse código ai e quero que as fotos não todas uma embaixo da outra ou todas uma do lado da outra, eu queria que elas ficassem digamos kda linha 4, não sei muito bem o que fazer, se alguém quiser ajudar eu agradeço.
Falow
<%@Language="VBScript"%>
<%Option Explicit
Response.Expires = 0%>
<html>
<head>
<style type="text/css">
<!--
.unnamed1 {
text-decoration: none;
border: none;
}
-->
</style>
</head>
<body>
<table width="100%">
<tr>
<td >
<div align="center"><font color="#FFFF00" face="Arial, Helvetica, sans-serif"><strong>-----=====*****
Galeria de Fotos *****=====-----</strong></font></div></td></tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%DIM FSO, strCaminho, strPrincipal, strArquivos, xx, strCaminho2
strCaminho = "pequenas/"
strCaminho2 = "grandes/"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set strPrincipal = FSO.GetFolder(server.mappath(strCaminho))
Set strArquivos = strprincipal.Files
IF strArquivos.count=0 then%>
<td> Não existem imagens disponiveis </td>
<%else%>
<%DIM strArq
FOR EACH strArq IN strArquivos
if strArq.name="Thumbs.db" then%>
<%else%>
</tr>
<tr>
<td > <a href="<%=strCaminho2&strArq.name%>" target="blank"><img src="<%=strCaminho&strArq.name%>" class="unnamed1"></a></td>
<%end if%>
<%NEXT%>
<%end if%>
</tr>
</table>
<table>
<tr>
<td><iframe name="foto" frameborder="0" longdesc="0" scrolling="no" width="400" height="500" allowtransparency="true" ></iframe></td>
</tr>
</table>
</html>
Paginar Fotos
Started By japasc, 09/12/2004, 14:15
5 replies to this topic
#1
japasc
-
- Usuários
-
- 58 posts
Turista
- Sexo:Não informado
- Localidade:Taió
Posted 09/12/2004, 14:15
Não importa onde vc vá, vc sempre estará lá!!!
* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3
* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3
#2
WeeD
-
- Usuários
-
- 166 posts
12 Horas
- Sexo:Não informado
Posted 09/12/2004, 23:42
<%
SQL = "SELECT NOME_TABELA FROM CAMPO"
RS.Open SQL, conexao,3,3
%>
<table>
<tr>
<%
n = 1
c = 5
'c, é aqui que vc controla o numero de colunas
Do while not RS.Eof
%>
<td width="20%"><%=RS("titulo")%></td>
'<%=RS("titulo")%> é aonde mostra um dado do banco de codigos, você pode por o que quiser aqui
<%
n = n + 1
RS.Movenext
If n > c then
response.write "</tr><tr>"
n = 1
End If
Loop
%>
</table>bom só adaptar ao seu código.
còé ?
#3
japasc
-
- Usuários
-
- 58 posts
Turista
- Sexo:Não informado
- Localidade:Taió
Posted 11/12/2004, 12:32
Mais tipow, as fotos naum estão num banco estão numa pasta, ai naum da pra usar sql neh, ou dá?<% SQL = "SELECT NOME_TABELA FROM CAMPO" RS.Open SQL, conexao,3,3 %> <table> <tr> <% n = 1 c = 5 'c, é aqui que vc controla o numero de colunas Do while not RS.Eof %> <td width="20%"><%=RS("titulo")%></td> '<%=RS("titulo")%> é aonde mostra um dado do banco de codigos, você pode por o que quiser aqui <% n = n + 1 RS.Movenext If n > c then response.write "</tr><tr>" n = 1 End If Loop %> </table>
bom só adaptar ao seu código.
Não importa onde vc vá, vc sempre estará lá!!!
* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3
* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3
#4
Luis Otávio
-
- Usuários
-
- 3113 posts
Super Veterano
- Sexo:Masculino
- Localidade:Porto Alegre
-
Interesses:- Desenvolvimento de aplicações Web com linguagem server-side PHP.
- Desenvolvimento de aplicações Web com linguagem cliente-side JavaScript, conhecedor e utilizador da biblioteca jQUERY e todas suas características.
- Otimização de Desempenho aplicados a performance de banco de dados Mysql.
- Otimização de Desempenho para servidores Web utilizando-se como Webserver NGINX em conjunto com Varnish.
- Sólidos conhecimentos no CMS WordPress para novas implementações, manutenção, criação e otimização de Plugins.
- Práticas de atendimento, relacionamento e suporte ao cliente. Trabalhando voltado ao público desde o lançamento da empresa iPORTO.COM, criando laços e vínculos com os mais de Mil clientes da empresa e os braços do grupo.
Posted 13/12/2004, 22:51
agora te vira boneco...
<%
'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 = "img/"&caminho&"/"
' Cria o link para as fotos
imageFilePath = "img/"&caminho&"/"
' Pasta de onde buscará as fotos
strPhysicalPath="img/"&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'>"
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
%>
<%
principal = "mostra.asp?imagem="
url = imageFilePath
recuperar = "&recuperar="
%>
<%
' Esta linha lê a pasta e coloca as imagens dentro da tabela
For x = vlMinimo to vlMaximo
Response.Write "<td align='center'>"
Response.Write "<a href='"& principal & url & strPicArray(0,x) & recuperar & url & " 'target='mostra'><img src='" & thumbFilePath & strPicArray(0,x) & "' width='60' height='50' border='0'></a>"
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>"
%>
<%FOR X=-1 TO (y/limite-1)
If Pagina = x+2 Then%>
<B>(<%=X+1%>) </B>
<% Else%>
<A HREF="index.asp?pag=<%=X+1%>&caminho=<%=caminho%>"><%=X+1%></A>
<% End If
NEXT%>
* Otávio Nogueira
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
#5
japasc
-
- Usuários
-
- 58 posts
Turista
- Sexo:Não informado
- Localidade:Taió
Posted 14/12/2004, 11:17
Falow Kra, brigadaum!!!
Não importa onde vc vá, vc sempre estará lá!!!
* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3
* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3
#6
japasc
-
- Usuários
-
- 58 posts
Turista
- Sexo:Não informado
- Localidade:Taió
Posted 14/12/2004, 13:09
Seguinte o script funciona, eu não consegui configurar ainda o link da foto e o link para a proxima pag...
Não importa onde vc vá, vc sempre estará lá!!!
* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3
* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
