<% if Session("login")="" or Session("login") = False then %> <table border=0 width=100% height=65% cellspacing=5 cellpadding=5> <tr> <td width=80% align=center> <p>Você não tem permissão para acessar esta página. <br> Identifique-se, usando seu login e sua senha. <p><% if session("login") <> "" then %> <center> <b>Inclua filmes agora!</b> <br> <a href="logout.asp">Logout</a><br> </center> <% else %> <form method=post action=validalogin.asp> <input type=hidden name=enviando value=sim> <table border=0 align="center"> <tr> <td>Login </td> <td><input type=text name=login size=15></td></tr> <tr> <td>Senha </td> <td><input type=password name=senha size=15></td></tr> <tr> <td colspan=2 align=center><input type="submit" value="Login"></td></tr> </table> </form> <%end if%></td></tr> </table> </table> <%Response.End End if%> <% db = "/locadados/db/locadados" 'caminho pro db %> <% Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(db) 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 %> <html> <head> <title>Alterando Filmes</title> <link href="css.css" rel="stylesheet" type="text/css"> </head> <body> <div align="center"> <div align="center"> <center> <table width="100%" border="0" cellpadding="0" cellspacing="3"> <tr align="center" valign="bottom"> <td><a href="enviar.asp"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="22"> <param name="movie" value="imagens/button9.swf"> <param name="quality" value="high"> <embed src="imagens/button9.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="22" ></embed> </object> </a></td> <td><a href="enviar.asp"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="22"> <param name="BGCOLOR" value=""> <param name="movie" value="imagens/button1.swf"> <param name="quality" value="high"> <embed src="imagens/button1.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="22"></embed> </object> </a></td> <td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="22"> <param name="movie" value="imagens/button2.swf"> <param name="quality" value="high"> <embed src="imagens/button2.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="22" ></embed> </object></td> <td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="22"> <param name="movie" value="imagens/button3.swf"> <param name="quality" value="high"> <embed src="imagens/button3.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="22" ></embed> </object></td> </tr> </table> </center> </div> <p><BR> <span class="titulo">Selecione o filme que deseja alterar. </span></p> </div> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center" class="subtitulo">ID</td> <td width="95%" class="subtitulo">Título do Filme </td> </tr> </table> <span class="subtitulo"> <% AbreConexao SQL = "SELECT * FROM filmes ORDER BY id" Set rs = Conexao.Execute(SQL) While not rs.EOF %> </span> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"><span class="subtitulo"><%=rs("id")%></span></td> <td width="95%"><span class="subtitulo">» </span><a href="deletar.asp?id=<%=rs("id")%>" class="texto"><%=Rs("titulo")%></a></td> </tr> </table> <% rs.MoveNext Wend rs.close FechaConexao Set rs = nothing %> </center> </body> </html>
Dúvidas Sobre Paginação
Started By jarrier_paulo, 05/04/2007, 23:49
1 reply to this topic
#1
Posted 05/04/2007, 23:49
Tenho esta página chamada editar.asp, só que não sei como fazer para listar apenas 50 registros por vez, alguém conseguiria me dar um help?
#2
Posted 06/04/2007, 01:46
Aí cara, dá uma olhada nessa pseudo classe que fiz em Asp
http://www.codigofon...-banco-de-dados
Se não conseguir usá-la, pode basear-se nela pra criar sua própria paginação!
Qualquer coisa manda uma MP ou posta aí!
[]'s
http://www.codigofon...-banco-de-dados
Se não conseguir usá-la, pode basear-se nela pra criar sua própria paginação!
Qualquer coisa manda uma MP ou posta aí!
[]'s
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)