|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Galeria de Fotos com Banco de Dados (usando frame)
|
 |
|
|
|
Postada em 17/9/2003 por Mago_Pc
<!--Inportante comentar que no banco de dados se coloque apenas o caminho das fotos -->
<html>
<head>
<title>Galeria de Fotos</title>
</head>
<!-- Esta página receberá um valor QueryString e irá repassar para leituragaleria2.asp -->
<frameset cols="200,*" frameborder="NO" border="1" framespacing="1" rows="*">
<frame name="menu" src="leituragaleria2.asp?filme=<%=request.QueryString("filme")%>">
<% set mConexao = server.CreatEObject("ADODB.Connection")
set mRstCliente = server.CreateObject("ADODB.Recordset")
mConexao.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Dados.mdb")
mRstCliente.open "Select EndGrandes from Galeria where Nfilme like '" & request.QueryString("filme") & "'", mConexao, 1, 3
%>
<frame name="figuras" scrolling="auto" noresize src="Figuras.asp?arquivo=<%=mRstCliente(0) %>">
<%
mRstCliente.close
mConexao.close
%>
</frameset>
<noframes>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
</body></noframes>
</html>
<%
'Esta página se chama leturagaleria2.asp, ela está recebendo um valor através de uma QueryString repassada pela página acima(leituragaleria.asp), com esse valor os comandos logo abaixo irão listar vertivalmente várias figuras, quando forem clicadas mostrarão no outro frame a mesma só que ampliada
dim mFilme, mConexao, mRstCliente
mFilme=request.QueryString("filme")
set mConexao = server.createobject("adodb.connection")
set mRstCliente= server.createobject("adodb.recordset")
mConexao.open "provider = microsoft.jet.oledb.4.0;data source=" & server.MapPath(" ' O nome do seu banco de Dados ' ")
mRstCliente.open "Select EndPequenas, Nfilme, EndGrandes From Galeria Where NFilme like '" & mFilme & "'",mConexao,3,3
response.write "<html>"
response.write "<head>"
response.write "<title>Galeria de Fotos do Filme " & mRstCliente("Nfilme") &" </title>"
response.write "<head>"
response.write "<body bgcolor=#ffffff topmargin=0 leftmargin=0>"
response.write "<table width=177 border=0 cellspacing=1 cellpadding=1>"
Do while not mRstCliente.eof
response.write "<tr>"
response.write "<td><a href=""Figuras.asp?arquivo="& Server.URLEncode(mRstCliente("EndGrandes")) & """ target=""figuras""><img src="""& mRstCliente("EndPequenas") & """ border=""0""></a></td>"
response.write "</tr>"
mRstCliente.MoveNext
Loop
response.write"</table>"
response.write "</body>"
response.write "</html>"
mRstCliente.close
mConexao.close
set mRstCliente = Nothing
set mConexao = Nothing
%>
<%
' Esta Página se chama figuras.asp e mostrará todas as figuras ampliadas recebendo um valor passado pela página leituragaleria2.asp
dim mLeitorDados, mConexao, mRstCliente
mLeitorDados=request.QueryString("arquivo")
set mConexao = server.createobject("adodb.connection")
set mRstCliente= server.createobject("adodb.recordset")
mConexao.open "provider = microsoft.jet.oledb.4.0;data source=" & server.MapPath("Dados.mdb")
mRstCliente.open "Select Nfilme From Galeria Where EndGrandes like '" & mLeitorDados & "'",mConexao,3,3
response.write "<html>"
response.write "<head>"
' response.write "<title>Galeria do Filme " & mRstCliente("Nfilme") &" </title>"
response.write "<head>"
response.write "<body bgcolor=#ffffff topmargin=0 leftmargin=0>"
response.write "<p>"
response.write "<center>"
response.write "<img src='" & request.QueryString("arquivo") & "'>"
response.write "</center>"
response.write "</body>"
response.write "</html>"
mRstCliente.close
mConexao.close
set mRstCliente = Nothing
set mConexao = Nothing
%>
|
|
|
|
|
