Obrigado
Escrever A Página Na Paginação
Started By alessancost, 15/03/2006, 12:41
2 replies to this topic
#1
alessancost
-
- Usuários
-
- 196 posts
12 Horas
- Sexo:Não informado
Posted 15/03/2006, 12:41
Olá amigos Wm, eu fiz minha primeira paginação... muito simples... Gostaria de saber como posso fazer um campo onde o usuário digita a página que ele quer visualizar e então aperte no botão IR.
Obrigado
Obrigado
#2
maktub
-
- Usuários
-
- 140 posts
12 Horas
- Sexo:Não informado
Posted 15/03/2006, 13:05
To sem tempo para explicar, segue um exemplo bem simples, nele tem o que precisa:
abs
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Vendo Mensagem do site</title>
</head>
<body>
<%
'--------------------------------------------------------------------------
'Aqui vem todos os dados da paginacao #
'--------------------------------------------------------------------------
TamanhoDaPagina = 2
pagina = request.querystring("pagina")
if pagina = "" then
pagina = CInt("1")
else
pagina = CInt(request.querystring("pagina"))
end if
'--------------------------------------------------------------------------
vendo = "1"
Set rs = Server.CreateObject("ADODB.RecordSet")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb")
SQL = "SELECT * FROM mensagem WHERE ver = '"& vendo &"' ORDER BY id DESC"
rs.Open SQL, DSN, 3, 3
TotaldePaginas = CInt(rs.RecordCount/TamanhoDaPagina)
rs.PageSize= TamanhoDaPagina
if not rs.EOF then
rs.AbsolutePage = pagina
for x = 1 to TamanhoDaPagina
if rs.EOF then exit for%>
<div align="center">
<center>
<table border="0" width="500" cellspacing="1" cellpadding="0">
<tr>
<td width="116" valign="middle" align="right"><b>Nome:</b></td>
<td width="368" valign="top" align="left"><%=rs("nome")%></td>
</tr>
<tr>
<td width="116" valign="middle" align="right"><b>E-mail:</b></td>
<td width="368" valign="top" align="left"><%=rs("email")%></td>
</tr>
<%if rs("site") = "0" or rs("site") = "" or rs("site") = "http://" then
else%>
<tr>
<td width="116" valign="middle" align="right"><b>Site:</b></td>
<td width="368" valign="top" align="left"><a href="http://<%=rs("site")%>" target="_blank"><%=rs("site")%></a></td>
</tr>
<%end if%>
<tr>
<td width="116" valign="top" align="right"><b>Mensagem:</b></td>
<td width="368" valign="top" align="left"><%=rs("msg")%></td>
</tr>
<tr>
<td width="484" valign="top" align="right" colspan="2">
<table border="0" width="100%" cellspacing="1" cellpadding="0">
<tr>
<td width="25%" align="right"><b>Data</b>:</td>
<td width="25%" align="left"><%=rs("data")%></td>
<td width="25%" align="right"><b>Hora:</b></td>
<td width="25%" align="left"><%=rs("hora")%></td>
</tr>
<tr>
<td width="100%" align="right" colspan="4"><hr></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<%rs.MoveNext
Next
'end if do absolute page
end if%>
<br>
<div align="center">
<center>
<table border="0" width="500" cellspacing="1" cellpadding="0">
<tr>
<td width="100" valign="middle" align="right">
<%if pagina <> 1 then
response.write "<a href=""ver_livro.asp?pagina="& pagina - 1 &""">Página Anterior</a>"
end if%>
</td>
<td width="300" align="center">
<div id="pagg0">
<%for y = 1 to TotaldePaginas
if pagina <> y then
response.write " <a href=""ver_livro.asp?pagina=" & y & """>" & y & "</a>"
else
response.write " "& y &" "
end if
next%></div>
</td>
<td width="100" valign="middle" align="left">
<%if pagina < TotaldePaginas then
response.write "<a href=""ver_livro.asp?pagina="& pagina + 1 &""">Próxima Página</a>"
end if%></td>
</tr>
</table>
</center>
</div>
</body>
</html>
abs
#3
alessancost
-
- Usuários
-
- 196 posts
12 Horas
- Sexo:Não informado
Posted 15/03/2006, 13:09
Obrigado maktub
Vou estudar o código que você postou
----------------------------------
maktub, acho que você não entendeu o que estou querendo fazer. Eu não encontrei no seu código um campo onde o usuário escreveria a página que ele quer ir...
Eu já tenho uma paginação... o que quero fazer agora é criar um campo onde o usuário digita a página que ele que ir na paginação.
Grato
Use o Botão Editar para acrescentar mais informações no Post
Vou estudar o código que você postou
----------------------------------
maktub, acho que você não entendeu o que estou querendo fazer. Eu não encontrei no seu código um campo onde o usuário escreveria a página que ele quer ir...
Eu já tenho uma paginação... o que quero fazer agora é criar um campo onde o usuário digita a página que ele que ir na paginação.
Grato
Use o Botão Editar para acrescentar mais informações no Post
Edição feita por: Generation, 15/03/2006, 17:15.
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
