<% 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
jarrier_paulo
-
- Usuários
-
- 158 posts
Apreendendo e contribuindo com a melhor performance.
- Sexo:Masculino
- Localidade:Natal
- Interesses:Encontrar respostas para minhas dúvidas, e tentar ajudar as pessoas com suas dúvidas.
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
Sollos
-
- Usuários
-
- 61 posts
Normal
- Sexo:Masculino
- Localidade:NI/RJ
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
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)
