Jump to content
Fórum Script Brasil
  • 0

Pop-up Em Asp


Pernudo
 Share

Question

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 to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.7k
    • Total Posts
      648.5k
×
×
  • Create New...