Ir para conteúdo
Fórum Script Brasil
  • 0

Pop-up Em Asp


Pernudo

Pergunta

Olá pessoal, estou precisando de uma ajuda, eu peguei um script pronto de fotos (Chacal Albun) e não estou conseguindo acertar algumas coisas nele..

a são linkadas para uma nova janela e eu queria q fossem em pop-up... mas não consegui acertar isso...

e eu queria colocar um numero maximo de imagens por paginas.... tipo se eu colocar 100 fotos elas vao aparecer em uma unica pagina eu queria que aparecessem no maximo 20 fotos em uma foto...sera q alguém pode me ajudar com isso??? alguém conhece algum outro script de albun de fotos??pode ser com upload...pois o chacal não é... por favor coloquem o link aqui pra mim... obrigado pessoal.. vo colocar a pagina q não consigo alterar.... abracos..

<!--#include file="conectar.asp"-->

<html>

<head>

<title> Fotos </title>

<body bgcolor="#ffffff">

<% AbreConexao

idcat=request.querystring("idcat")

idalbum=request.querystring("idalbum")

cat=request.querystring("cat")

album=request.querystring("album")

'/////COMECA AS CATEGORIAS

If idcat = "" Then

Set rsCats = Conexao.Execute("SELECT * FROM categorias ORDER BY nome")

If rsCats.EOF Then

Response.Write "<font size=1>Nenhuma categoria encontrada!</font>"

Else

While not rsCats.EOF

Response.Write "<font size=1><a href=""default.asp?idcat="&rsCats("id")&"&cat="&rsCats("nome")&""">"&rsCats("nome")&"</a><BR></font>"

rsCats.Movenext

Wend

End If

'/////COMECA OS ALBUNS

Else

If idalbum = "" Then

Response.Write "<font size=1><B>"&cat&"</font></B><BR><BR>"

Set rsAlbum = Conexao.Execute("SELECT * FROM album WHERE idcat="&idcat&" ORDER BY nome")

If rsAlbum.EOF Then

Response.Write "<font size=1>Nenhum album encontrado!</font>"

Else

While not rsAlbum.EOF

Response.Write "<font size=1><a href=""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """>" & rsAlbum("nome") & "<BR></font>"

rsAlbum.Movenext

Wend

End If

'/////COMECA AS FOTOS

Else

Response.Write "<font size=1><B>"& cat &" > "& album & "</font></b><BR><BR>"

Set rsFotos = Conexao.Execute("SELECT * FROM fotos WHERE idalbum="&idalbum&"")

If rsFotos.EOF Then

Response.Write "<font size=1>Nenhuma foto encontrada!</font>"

Else

Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">"

contar = 0

Do while not rsFotos.eof

If contar = 5 Then

Response.Write "<tr>"

End If

If contar <> 5 Then

Response.Write "<TR>"

End If

imagem=rsFotos("imagem")

If RsFotos.eof then exit do

Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""80"" height=""60"" border=0 src="""&imagem&"""></a></td>"

contar = contar +1

rsFotos.MoveNext

If RsFotos.eof then exit do

imagem=rsFotos("imagem")

Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""80"" height=""60"" border=0 src="""&imagem&"""></a></td>"

contar = contar + 1

rsFotos.MoveNext

If RsFotos.eof then exit do

imagem=rsFotos("imagem")

Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""80"" height=""60"" border=0 src="""&imagem&"""></a></td>"

contar = contar + 1

rsFotos.MoveNext

If RsFotos.eof then exit do

imagem=rsFotos("imagem")

Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""80"" height=""60"" border=0 src="""&imagem&"""></a></td>"

contar = contar + 1

rsFotos.MoveNext

Loop

Response.Write "</tr></table></div>"

End if

End If

End If %></font>

</body>

</html>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Meu, sinceramente acho os scripts do chacal muito bons, porém muito básicos.

Eu os aconselho mesmo para aqueles que precisam de uma referência para estudos.

Quero deixar claro que não estou desmerecendo o programador, afinal não duvido da sua capacidade, apenas expondo meu ponto de vista.

Tem um album online para download muito bom, aliás, um dos melhores que já ví por ai.

Algumas funcionalidades que ele inclui:

* thumbs

* area restrita para administração

* Uploads de imagens sem precisar instalar componentes

* visualizacao das imagens

* envio para amigos, etc...

muito bom mesmo, e o melhor???? É 100% GRÁTIS.

Segue o link:

http://www.b-cp.com/igallery/default.asp

Abraços.

ph34r.gif

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...