Estou fazendo um site de cobertura de festas,tenho uma versão temporária rodando e estou acabando a versão nova(completa) do site,
bom na minha galeria de fotos eu queria usar FSO para listar as fotos,isso eu consegui só que o porem é o seguinte:
Fazer a paginação destas fotos,o código está funcionando beleza ele mostra tudo certinho e como eu não sou nato no Asp nem um pouco mesmo
eu venho aqui para pedir a ajuda de quem realmente entende do assunto.
Vou explicar como é o script e logo abaicho eu posto ele,na galeria eu teria 2 caminhos um para as imagens menores e ouro para as maiores que iriam abrir
com Mootools o código é este:
<%
'Variaveis quer serão secessárias
DIM FSO,strCaminho,strPrincipal,strArquivos,strCaminho2
'Variavel que recebe as miniaturas
strCaminho = "eventos/nome da pasta/miniaturas/"
'Variavel que recebe o caminho das imagens maiores
strCaminho2 = "eventos/nome da pasta/normais/"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set strPrincipal = FSO.GetFolder(server.MapPath(strCaminho))
Pergunta
Guest Ronaldo Spilmann
Boa noite senhores(as).
Estou fazendo um site de cobertura de festas,tenho uma versão temporária rodando e estou acabando a versão nova(completa) do site,
bom na minha galeria de fotos eu queria usar FSO para listar as fotos,isso eu consegui só que o porem é o seguinte:
Fazer a paginação destas fotos,o código está funcionando beleza ele mostra tudo certinho e como eu não sou nato no Asp nem um pouco mesmo
eu venho aqui para pedir a ajuda de quem realmente entende do assunto.
Vou explicar como é o script e logo abaicho eu posto ele,na galeria eu teria 2 caminhos um para as imagens menores e ouro para as maiores que iriam abrir
com Mootools o código é este:
<%
'Variaveis quer serão secessárias
DIM FSO,strCaminho,strPrincipal,strArquivos,strCaminho2
'Variavel que recebe as miniaturas
strCaminho = "eventos/nome da pasta/miniaturas/"
'Variavel que recebe o caminho das imagens maiores
strCaminho2 = "eventos/nome da pasta/normais/"
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%>
<tr>
<td height="202" valign="top" id="escolha" style="border: 1px dashed #cccccc;"><div id="topo">
<div id="imagens" style="width: 755px; margin:10px; border:solid 1px #CCC; padding:5px;">
<div id="example">
<!-- Mostra as fotos -->
<%Dim strArq
For EACH strArq IN strArquivos
If strArq.name = "Thumbs.db" Then %>
<%else%>
<!-- CAMINHOS DAS FOTOS -->
<a href="<%=strCaminho2&strArq.name%>" rel="lightbox[mando]" >
<img src="<%=strCaminho&strArq.name%>" border="0" /> </a>
<%End If%>
<%NEXT%>
<%End If%>
Ta ai galera por favor quem puder me ajudar serei muito grato!!! :rolleyes:
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.