Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

kel teixeira

[Resolvido] Como paginar este sistema?

Por , em ASP Clássico

Recommended Posts

kel teixeira    0

kel teixeira
Postado

Encontrei este sistema de noticias, mas o unico defeito dele é que n tem paginação.

Como criar isso?

 

Já tentei alguns scripts para paginação, mas n funcionaram.

 

conectar.asp

<%
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 
%>

ver.asp

<% Response.Buffer = True %>
<!--#include file="conectar.asp"-->

<%
AbreConexao
SQL = "SELECT * FROM noticias ORDER BY id DESC"
Set rs = Conexao.Execute(SQL)
While not rs.EOF
%>
<body text="#FFFFFF" bgcolor="#000000">
  <table border="0" cellpadding="3" cellspacing="0" width="85%" bordercolorlight="#FFFFFF" style="border-collapse: collapse">
	<tr>
	  <td bgcolor="#BE2F60"><font size="1"><%=RS("data")%><br><b>»  <%=Rs("assunto")%></b></font></td>
	</tr>
	<tr>
		<td><font size="1"><%=Rs("noticia")%></font></td>
	</tr>
	  <tr>
		<td><hr noshade color="#BE2F60" size="1"></td>
	</tr>
	  <tr>
		<td></td>
	</tr>
	  </table>
<% rs.MoveNext
Wend
rs.close
FechaConexao
Set rs = nothing %>

Vou colocar tb o código do 'ultimos.asp', onde mostram os títulos das 5 últimas noticias.

 

ultimos.asp

<!--#include file="conectar.asp"-->
<%
intRecsPerPage = ultimos
AbreConexao

set rs=Server.CreateObject("ADODB.Recordset")
sSQL="SELECT * FROM noticias ORDER BY id DESC"
rs.Open sSQL, Conexao,3,3

rs.PageSize=intRecsPerPage
for intRecord=1 to rs.PageSize 

If Len(rs("assunto")) < 25 Then
Resumo = rs("assunto")
Else
Resumo = Mid(rs("assunto"),1,30) & "..."
End If
%>

<body text="#FFFFFF" bgcolor="#303437" link="#28FFF1" vlink="#28FFF1" alink="#BE2F60" topmargin="10">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
	<td width="100%" bgcolor="#BE2F60" height="20"><font face="Verdana" size="1">» <a href="noticia.asp?id=<%=rs("id")%>"><%=Resumo%></a></font></td>
  </tr>
  <tr>
	<td width="100%" bgcolor="#303437">
	<font size="1" face="Verdana" color="#303437">--</font></td>
  </tr>
</table>
	<%
  rs.MoveNext
  If rs.EOF then
	Exit For
  End if
next
rs.Close
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

Cara é o que mais tem no laboratório de script:

tenta esse aqui que crie tbm:

http://imasters.com.br/artigo/11163/as...n_do_wordpress/

Compartilhar este post

Link para o post
Compartilhar em outros sites

kel teixeira    0

kel teixeira
Postado

Vlw pela dica Ted!

 

encontrei esse, q n utiliza MySQL, mas n hora de add meu conteudo, ele n aceita dá erro no Response.Write.

 

<% 
Set Conn = Server.CreateObject("AdoDb.Connection") 
Conn.provider="Microsoft.Jet.OLEDB.4.0" 
Conn.connectionstring=Server.Mappath("db /news.mdb") 
Conn.open 

Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 10

SQL = "select * FROM noticias ORDER BY id DESC" 
RS.Open SQL,Conn,3,3

IF RS.EOF then 
   Response.Write "nenhum registro encontrado"
   Response.End 'paramos o programa
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

RS.AbsolutePage=intpagina

intrec=0

While intrec < RS.PageSize and not RS.EOF 
'------------------- AQUI VEM TUDO O QUE SERÁ PAGINADO -----------------------
   response.write ("  <table border="0" cellpadding="3" cellspacing="0" width="85%" bordercolorlight="#FFFFFF" style="border-collapse: collapse">
	<tr>
	  <td bgcolor="#BE2F60"><font size="1"><%=RS("data")%><br><b>»  <%=Rs("assunto")%></b></font></td>
	</tr>
	<tr>
		<td><font size="1"><%=Rs("noticia")%></font></td>
	</tr>
	  <tr>
		<td><hr noshade color="#BE2F60" size="1"></td>
	</tr>
	  <tr>
		<td></td>
	</tr>
	  </table>")
'---------------------------------------------------------------------------------------------
   RS.MoveNext

   intrec=intrec+1 
   IF RS.EOF then 
	  response.write " " 
   END IF
Wend 

IF intpagina > 1 then 
%> 
   <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> 
<% 
END IF
IF strcomp(intpagina,RS.PageCount) <> 0 then 
%> 
   <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a> 
<% 
END IF
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual erro que da no response.write?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Posta o link da paginação que você pegou, pois esse response.write seu está estranho. Dever ser algo assim, sem response.write. Ex:

'------------------- AQUI VEM TUDO O QUE SERÁ PAGINADO -----------------------
%>
   <table border="0" cellpadding="3" cellspacing="0" width="85%" bordercolorlight="#FFFFFF" style="border-collapse: collapse">
	<tr>
	  <td bgcolor="#BE2F60"><font size="1"><%=RS("data")%><br><b>»  <%=Rs("assunto")%></b></font></td>
	</tr>
	<tr>
		<td><font size="1"><%=Rs("noticia")%></font></td>
	</tr>
	  <tr>
		<td><hr noshade color="#BE2F60" size="1"></td>
	</tr>
	  <tr>
		<td></td>
	</tr>
	  </table>
<%
'---------------------------------------------------------------------------------------------

Compartilhar este post

Link para o post
Compartilhar em outros sites

kel teixeira    0

kel teixeira
Postado

Vlw Hargon! Realmente, eu tirei o Response.write, fechei e abri o asp.

 

<% 
Set Conn = Server.CreateObject("AdoDb.Connection") 
Conn.provider="Microsoft.Jet.OLEDB.4.0" 
Conn.connectionstring=Server.Mappath("db/news.mdb") 
Conn.open 

Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 10

SQL = "select * FROM noticias ORDER BY id DESC" 
RS.Open SQL,Conn,3,3

IF RS.EOF then 
   Response.Write "nenhum registro encontrado"
   Response.End 'paramos o programa
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

RS.AbsolutePage=intpagina

intrec=0

While intrec < RS.PageSize and not RS.EOF 
'------------------- AQUI VEM TUDO O QUE SERÁ PAGINADO -----------------------
%><table border="0" cellpadding="3" cellspacing="0" width="85%" bordercolorlight="#FFFFFF" style="border-collapse: collapse">
	<tr>
	  <td bgcolor="#BE2F60"><font size="1"><%=RS("data")%><br><b>»  <%=Rs("assunto")%></b></font></td>
	</tr>
	<tr>
		<td bgcolor="#42474A"><font size="1"><%=Rs("noticia")%></font></td>
	</tr>
	  <tr>
		<td><hr noshade color="#BE2F60" size="1"></td>
	</tr>
	  <tr>
		<td></td>
	</tr>
	  </table>
	  <%
'---------------------------------------------------------------------------------------------
   RS.MoveNext

   intrec=intrec+1 
   IF RS.EOF then 
	  response.write " " 
   END IF
Wend 

IF intpagina > 1 then 
%><p align="center"><font size="1"><a href="default.asp?pagina=<%=intpagina-1%>">Anterior</a></font>
<% 
END IF
IF strcomp(intpagina,RS.PageCount) <> 0 then 
%><font size="1"><a href="default.asp?pagina=<%=intpagina + 1%>">Próxima</a></font></p>
<% 
END IF
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

kel teixeira    0

kel teixeira
Postado

Tudo ok pessoal!

Vlw pela ajuda, é por isso que eu sempre recorro ao Forúm Imasters.

 

Uma pergunta final, para colocar a numeração de páginas, teria que modificar o sistema?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito