Ir para conteúdo

POWERED BY:

Arquivado

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

RGXRJ

Destacando palavras-chave pré-definidas

Por , em ASP Clássico

Recommended Posts

RGXRJ    0

RGXRJ
Postado

Salve galera, beleza?

 

Criei um sistema de notícias com o Dreamweaver e o mesmo está funcionando perfeitamente. As notícias são exibidas para os meus clientes através de um título, descrição, data e horário e são organizadas por data e hora. Se o cliente quiser visualizar a notícia completa, é só ele clicar no título que abre a página de exibição da matéria completa.

 

Estou precisando destacar algumas palavras-chave pré-definidas por mim, de acordo com o que meus clientes desejam visualizar, pra que logo na exibição das matérias chame atenção deles pra essas palavras, bem como na exibição completa da notícia quando clicada. Será que alguém pode me ajudar?

 

Abaixo segue o código da página que desejo essa função:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/noticias.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("Id") <> "") Then 
  Recordset1__MMColParam = Request.QueryString("Id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_noticias_STRING
Recordset1.Source = "SELECT * FROM tbl_noticias WHERE Id = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<html>
<head>
<title>Clipping Sos Card</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}
//-->
</script>
<meta name="keywords" content="teste4">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
	document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body>
<table width="100%" height="9%" border="0" cellspacing="3">
  <tr>
	<td bgcolor="#EEEEEE"><div align="left"><font color="#FF6600" size="2" face="Verdana"><font color="#333333" size="5" face="Tahoma"> <%=(Recordset1.Fields.Item("Titulo").Value)%></font></font></div></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="4">
  <tr>
	<td><p><font color="#FF6600" size="2" face="Verdana"><font color="#333333" face="Tahoma"><strong><%=(Recordset1.Fields.Item("Data").Value)%></strong></font> <font color="#333333" size="3" face="Tahoma"> <strong> <font size="2">-</font> <font size="2"><%=(Recordset1.Fields.Item("Hora").Value)%></font></strong></font></font></p>
	</td>
	<td> </td>
  </tr>
  <tr>
	<td valign="top" style="text-align:justify; line-height:150%">	  <font color="#333333" size="3" face="Geneva, Arial, Helvetica, sans-serif"><%=(Recordset1.Fields.Item("Noticia").Value)%></font></td>
	<td valign="top">
	<img src="<%=(Recordset1.Fields.Item("Imagem").Value)%>" border="0" align="right"></td>
  </tr>
  <tr>
	<td valign="top"><font color="#000000" size="2" face="Verdana"><font size="1"><strong>Fonte:</strong></font> <font color="#666666" size="1"><%=(Recordset1.Fields.Item("Fonte").Value)%></font><font color="#FF6600" size="2" face="Verdana"><strong><font color="#000000" size="6" face="Century"> 
	</font></strong></font></font></td>
	<td> </td>
  </tr>
</table>
<p align="left" style="margin-top: 0; margin-bottom: 0"><font color="#FF6600" size="2" face="Verdana"><strong><font color="#000000" size="6" face="Century">
	  <input name="Submit" type="image" onClick="MM_callJS('java script:self.print()')" value="Imprimir matéria" src="btn_imprimir.jpg" align="right" alt="Imprimir página"></font></strong></font></p>
<p align="left"><strong><font color="#000000" size="6" face="Century"></font><font color="#FF6600" size="2" face="Verdana"></font></strong></p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

RGXRJ    0

RGXRJ
Postado

busca no laboratório de scripts asp por "destacar palavras" = http://forum.imasters.com.br/index.php...acar%20palavras

Jhonathan, eu inclusive já vi um post seu no fórum Webly com o código que poderia me ajudar, mas o problema é que não consigo fazer funcionar o código que você apresentou. Você teria como me mostrar as modificações no meu código pra que aquela função funcione?

 

Abraços.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Custellinha    0

Custellinha
Postado

As palavras pré-definidas por você ficariam guardadas num banco?

Se for assim voce faz um select, captura as palavras pela SQL e manda um replace no titulo/descrição da noticia.

 

Qualquer dúvida ou erro posta ai!

Abraço!

Compartilhar este post

Link para o post
Compartilhar em outros sites

RGXRJ    0

RGXRJ
Postado

As palavras pré-definidas por você ficariam guardadas num banco?

Se for assim voce faz um select, captura as palavras pela SQL e manda um replace no titulo/descrição da noticia.

 

Qualquer dúvida ou erro posta ai!

Abraço!

Custelinha,

 

Você acha que dessa forma seria melhor? Eu estou tentando fazer funcionar o scrip que o Jhonatha me passou, mas não estou conseguindo fazer funcionar...parece que não estou adaptando o que ele passa ao que tenho. Se você tiver alguma sugestão, o código da minha página está postado aí em cima.

 

Abração

Compartilhar este post

Link para o post
Compartilhar em outros sites

RGXRJ    0

RGXRJ
Postado

Galera, até agora não consegui fazer funcionar o código citado pelo Jhonathan na minha página de exibição das notícias. Alguém poderia me ajudar por favor? O código da página de exibição é esse aí em cima.

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Qual o problema problema em adaptar o código do gaúcho?

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