Vixxiii... Só tenho esse código porque me passaram. A única coisa que eu sei é que ele é baseado no código do Chacal Photos.
O que eu tenho é o seguinte:
Código do conect.asp:
<!--#include file="config.asp"-->
<% Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/fotos.mdb")
ConexaoAberta = FALSE
Sub AbreConexao()
if not ConexaoAberta then
Conexao.Open ConStr
ConexaoAberta = True
end if
end sub
Sub FechaConexao()
if ConexaoAberta then
Conexao.close
ConexaoAberta = False
end if
end sub %>Código do config.asp:
<%
user = "usuario" 'user administrativo
senha = "senha" 'senha administrativa
db = "db/fotos" 'caminho pro db sem .mdb, NÀO MUDE
%>
Código do Sistema:
<!--#include file="conect.asp"-->
<% 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 "Nenhuma categoria encontrada!"
Else
While not rsCats.EOF
Response.Write "<a href=""evento2.asp?idcat="&rsCats("id")&"&cat="&rsCats("nome")&""">"&rsCats("nome")&"</a><BR>"
rsCats.Movenext
Wend
End If
'/////COMECA OS ALBUNS
Else
If idalbum = "" Then
Response.Write "<font size=2><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 "Nenhum album encontrado!"
Else
While not rsAlbum.EOF
Response.Write "<a href=""evento2.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """>" & rsAlbum("nome") & "<BR>"
rsAlbum.Movenext
Wend
End If
'/////COMECA AS FOTOS
Else
Set rsFotos = Conexao.Execute("SELECT * FROM fotos WHERE idalbum="&idalbum&"")
Set RS = Server.CreateObject("Adodb.RecordSet")
RS.PageSize = 5
If RS.EOF then
Response.Write "Nenhum registro encontrado!"
Response.End
Else
If Request.QueryString("pagina")="" then
intpagina=1
Else
If Cint(Request.QueryString("pagina"))<1 then
intpagina=1
Else
If Cint(Request.QueryString("pagina"))>RS.PageCount then
intpagina=RS.PageCount
Else
intpagina=Request.QueryString("pagina")
End If
End if
End if
End if
If rsFotos.EOF Then
Response.Write "Nenhuma foto encontrada!"
Else
Response.Write "<div align=""center""><table border=0 cellpadding=3 cellspacing=1 width=""80%"">"
contar = 0
Do while cont < 20
If contar = 4 Then
Response.Write "<tr>"
End If
If contar <> 4 Then
Response.Write "<TR>"
End If
imagem1=rsFotos("imagem1")
imagem2=rsFotos("imagem2")
If RsFotos.eof then exit do
Response.Write "<td><a href=""javascript:abrejanela('http://www.seusite.com.br"&imagem1&"','640','540','no')""><img width=""92"" height=""58"" border=0 src="""&imagem2&"""></a></td>"
contar = contar +1
rsFotos.MoveNext
If RsFotos.eof then exit do
imagem1=rsFotos("imagem1")
imagem2=rsFotos("imagem2")
Response.Write "<td><a href=""javascript:abrejanela('http://www.seusite.com.br"&imagem1&"','640','540','no')""><img width=""92"" height=""58"" border=0 src="""&imagem2&"""></a></td>"
contar = contar + 1
rsFotos.MoveNext
If RsFotos.eof then exit do
imagem1=rsFotos("imagem1")
imagem2=rsFotos("imagem2")
Response.Write "<td><a href=""javascript:abrejanela('http://www.seusite.com.br"&imagem1&"','640','540','no')""><img width=""92"" height=""58"" border=0 src="""&imagem2&"""></a></td>"
contar = contar + 1
rsFotos.MoveNext
If RsFotos.eof then exit do
imagem1=rsFotos("imagem1")
imagem2=rsFotos("imagem2")
Response.Write "<td><a href=""javascript:abrejanela('http://www.seusite.com.br"&imagem1&"','640','540','no')""><img width=""92"" height=""58"" border=0 src="""&imagem2&"""></a></td>"
contar = contar + 1
rsFotos.MoveNext
Loop
Response.Write "</tr></table></div>"
End if
End If
End If %>
