Ir para conteúdo

POWERED BY:

Arquivado

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

Maria claudia

Sistema de Noticias com resumo como faço?

Por , em ASP Clássico

Recommended Posts

Maria claudia    0

Maria claudia
Postado

Olá pessoa tenho um sistema de notícias que funciona da seguinte maneiratem o titulo e quando cliac no titulo chama a materia mas eu queria coloca um breve resumo da materia abaixo do titulo na pagina de chamana.esse codigo aqui e da pagina ultimas.asp que mostra os titulos das materiasgostaria de colocar um resumo de 3 linhas nele tem como Obrigadinha..<!--#include file="conectar.asp"--><%'***********************************************************************'** Sistema de Notícias **'***********************************************************************%><html><head><title>Destaques</title><link rel="stylesheet" type="text/css" href="estilo.css"></head><STYLE type=text/css>BODY { font-family: verdana; font-size: 12px; color: #ffffff; scrollbar-face-color: #ffffff; scrollbar-highlight-color: #ffffff; scrollbar-shadow-color: #ffffff; scrollbar-3dlight-color: #ffffff; scrollbar-arrow-color: #000000; scrollbar-track-color: #ffffff; scrollbar-darkshadow-color: #ffffff;}BODY { BACKGROUND-REPEAT: repeat-y}TD { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px}P { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px}LI { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px}A { text-decoration: none; color: #29497B;}A:Hover { text-decoration: none; color: #29497B;}IMG { border-color: #29497B;}A:Visited { text-decoration: none; color: #29497B;}A:Active { text-decoration: none; color: #29497B;}}INPUT { BACKGROUND-COLOR: #FFFFFF; BORDER-BOTTOM-COLOR: #DCDCDC; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #DCDCDC; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #DCDCDC; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #DCDCDC; BORDER-TOP-WIDTH: 1px; COLOR: #106394; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px}</STYLE><body leftmargin="0" topmargin="0" bgcolor="white"> <table width="350" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="350" cellpadding="2" cellspacing="0"> <tr> <td height="2"><font face="Verdana" color="black"><%intRecsPerPage = ultimosAbreConexaoset rs=Server.CreateObject("ADODB.Recordset")sSQL="SELECT * FROM noticias ORDER BY id DESC"rs.Open sSQL, Conexao,3,3rs.PageSize=intRecsPerPagefor intRecord=1 to rs.PageSize If Len(rs("assunto")) < 25 ThenResumo = rs("assunto")ElseResumo = Mid(rs("assunto"),1,140) & "..."End If%> <a href="noticia.asp?id=<%=rs("id")%>" target='_parent'><%=Resumo%></a><br> <br> <% rs.MoveNext If rs.EOF then Exit For End ifnextrs.Close%></font> </td></tr></table><br><br><br><br><br><br><br><br><br><br><br><br><br></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

vagner.net    0

vagner.net
Postado

Você quer um RESUMO ou simplesmente um trecho da introdução do texto?

 

No caso do resumo você deverá definir um campo do seu banco de dados para armazenar uma sintese pré-definida.

 

Se for utilizar apenas um trecho sem a necessidade de exibir as principais a idéias contidas no texto, é só você definir uma quantidade de carcteres e procurar a posição do primeiro espaço após esse valor, nesse ponto você concatena reticências.

 

OK..!!?? T+...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

eu uso essa aqui...

 

http://forum.imasters.com.br/index.php?showtopic=8338

 

Está no laboratirio de scripts do iMasters.. clica ai.. eh chamada a função 3 pontinhos...

eu uso ela.. eh simples e você escolhe a quantidade de scripts que você quer no resumo e ele nao corta palavras...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Maria claudia    0

Maria claudia
Postado

EU gostaria que fosse apenas umas três linhas do texto ai ficaria assim:

 

Tiulo - Teste Teste Teste Teste Teste Teste

resumo> bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla

bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla

bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla

Leia mais

 

Entenderão o blabla bla seria uma três linhas do texto completo.

 

Ai quando a pessoa clicar no leia mais vira o texto na outra página completo.

 

 

 

Algum pode dá uma luz??

 

Você quer um RESUMO ou simplesmente um trecho da introdução do texto?

 

No caso do resumo você deverá definir um campo do seu banco de dados para armazenar uma sintese pré-definida.

 

Se for utilizar apenas um trecho sem a necessidade de exibir as principais a idéias contidas no texto, é só você definir uma quantidade de carcteres e procurar a posição do primeiro espaço após esse valor, nesse ponto você concatena reticências.

 

OK..!!?? T+...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Maria claudia    0

Maria claudia
Postado

ainda não consegui

 

coloquei o código assim mas não deu

Lembrando que sou iniciante em asp

 

 

 

 

 

<!--#include file="conectar.asp"-->

<%

'***********************************************************************

'** Sistema de Notícias **

'***********************************************************************

%>

<%

Function resumindo(txt,vCrt)

vX = Mid(txt, 1, vCrt)

if NOT Len(txt) <= vCrt then

resumindo = vX &"..."

else

resumindo = vX

end if

end function

%>

<html>

<head>

<title>Agenda</title>

<link rel="stylesheet" type="text/css" href="estilo.css">

</head>

 

 

<STYLE type=text/css>

BODY

{

font-family: verdana;

font-size: 12px;

color: #ffffff;

scrollbar-face-color: #D6DFE7;

scrollbar-highlight-color: #D6DFE7;

scrollbar-shadow-color: #D6DFE7;

scrollbar-3dlight-color: #D6DFE7;

scrollbar-arrow-color: #000000;

scrollbar-track-color: #D6DFE7;

scrollbar-darkshadow-color: #D6DFE7;

}

 

BODY {

BACKGROUND-REPEAT: repeat-y

}

TD {

FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px

}

P {

FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px

}

LI {

FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px

}

 

A {

text-decoration: none;

color: #29497B;

}

 

A:Hover {

text-decoration: none;

color: #29497B;

}

 

IMG {

border-color: #29497B;

}

 

A:Visited {

text-decoration: none;

color: #29497B;

}

 

A:Active {

text-decoration: none;

color: #29497B;

}

}

 

INPUT {

BACKGROUND-COLOR: #FFFFFF; BORDER-BOTTOM-COLOR: #DCDCDC; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #DCDCDC; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #DCDCDC; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #DCDCDC; BORDER-TOP-WIDTH: 1px; COLOR: #106394; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px

}

</STYLE>

<body leftmargin="0" topmargin="0" bgcolor="#D6DFE7">

 

 

 

<table width="170" border="0" cellspacing="0" cellpadding="0">

<tr>

<td>

<table width="180" cellpadding="2" cellspacing="2">

 

<tr>

<td height="2">

<font face="Verdana" color="black" size="1">

<%

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,140) & "..."

End If

%>

 

<%=resumindo("texto ou variavel", 200) %>

<img src="../img/li.gif" border="0" alt=""> <a href="noticia.asp?id=<%=rs("id")%>" target='_parent'><%=Resumo%></a><br> <br>

 

 

<%

rs.MoveNext

If rs.EOF then

Exit For

End if

next

rs.Close

%>

</font>

</td>

</tr>

</table><br>

<br>

<br>

<br>

<br>

<br>

<br>

<br>

<br>

<br>

<br>

<br>

<br>

 

 

 

</body>

</html>

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