Ir para conteúdo

POWERED BY:

Arquivado

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

Clauido José

[Resolvido] Gravar dados com editor HTML

Por , em ASP Clássico

Recommended Posts

Clauido José    3

Clauido José
Postado

Ola pessoal criei uma administração para um site que to fazenedo e to usando um editor HTML que achei bem bacana chama "fckeditor" bom ele na administração ele traz os dados legal algora quando vou na pagina do site ele nao tava trazendo foi verificar no banco ele estava gravando as tags <p> etc do HTML. Bom seria que e isso que nao ta aparecendo no siste, o conteudo desse campo sera como vou resolver isso.

 

Nao sei se é aqui esse post se nao for por favor me redimensione

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Claudio... o FCK grava assim mesmo...

Agora o fato de não trazer na página do site, essa informação é muito vaga...

O FCK grava no BD... agora cabe a você apenas pegar esse conteudo do BD e mostrar na página....apenas isso...

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

Clauido José    3

Clauido José
Postado

Bom nao tinha pensado nisso bom vou tentar ver pelo exemplo do Tiago depois eu posto o resultado

 

Pessoal desculpa minha ignorancia mas nao to conceguinte resultado antei pesquisando na net e so encontrei em php alguem pode me ajudar como resolver meu problema

Compartilhar este post

Link para o post
Compartilhar em outros sites

Clauido José    3

Clauido José
Postado

Ai vai entao

 

<% Response.Charset="utf-8" %>
<!--#include file="admin/conexao/conexao.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
		<title>.:  Colegio Santo Adriano :.</title>
        <link rel="stylesheet" href="css/index.css" />
        <link rel="stylesheet" href="css/topo.css" type="text/css" />
        <link rel="stylesheet" href="css/rodape.css" type="text/css" />        
        <link rel="stylesheet" href="sexylightbox.css" type="text/css" />        
	</head>
	<script src="js/js.js" type="text/javascript"></script>
    <script src="js/ajax.js" type="text/javascript"></script>
    <script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.3.2/jquery.min.js"></script>
    
    <script type="text/javascript" src="jquery.easing.1.3.js"></script>
    <script type="text/javascript" src="sexylightbox.v2.3.jquery.js"></script>
    
    <link rel="stylesheet" href="sexylightbox.css" type="text/css" media="all" />
    
    
    <script type="text/javascript">
    
      $(document).ready(function(){
    
        SexyLightbox.initialize();
    
      });
    
    </script> 
	<body>
      	<!--#include file="topo.asp"-->
       	<div id="conteudo_page">
            <h2><%=Request.QueryString("type")%></h2>
            <%
            if Request.QueryString("type")="artigo" then
				Sql="SELECT * FROM artigos WHERE id = " & Request.QueryString("id")
                Set Rs = Conexao.Execute(Sql)
				data=Rs("Data")	
				Response.Write("Sql")
				Response.end()
			elseif Request.QueryString("type")="cursos" then				
				Sql="SELECT * FROM artigos WHERE id = " & Request.QueryString("id")
                Set Rs = Conexao.Execute(Sql)
				data=Rs("Data")		
            end if
			i = rs("id")
			TItulo = Rs("Titulo")
			Imagem = Rs("Imagem")
			Breve = Rs("Breve")
			Completo=(rs("Completo")) 'ESSE SERIA O CAMPO QUE EU QUERO RESGATAR QUE RECEBE O VALOR DO FCK 
			Origem=rs("Origem")
            %>
            <h5><%=FormatDateTime(data,2)%> - <%=TItulo%><br /><%=Origem%></h5><br />
            <div class="thumb_fotos_330x225"><img src="admin/materias/<%=Imagem%>" width="330"  height="225"/></div> 
            <%=Completo%>
            <%
            Rs.Close
            Set Rs = Nothing
            %>        
            <div id="galeria">
                <%		
                Set Rs = Conexao.Execute("SELECT * FROM galeria_artigos WHERE idArtigos = " & Request.QueryString("id"))
                If NOT Rs.EOF Then
                %>   
                <h5>Galeria de Fotos</h5><br />
                <%
                While NOT Rs.EOF
                    Imagem = Rs("Imagem")
                %>
                <div class="lista_noticia">
                    <div class="thumb_80x55">
                        <a href="admin/galeria_materias/<%=Imagem%>" rel="sexylightbox[1]">
                            <img src="admin/galeria_materias/<%=Imagem%>" width="80"  height="55"/>
                        </a>
                    </div>
                </div>
                <%
                    Rs.MoveNext
                Wend
                Rs.Close
                Set Rs = Nothing	
            End if%>
        	</div>
        </div>
        <br style="clear:both" />
        <br style="clear:both" />
        <!--#include file="rodape.asp"-->
    
	<%
        Set Tempo = Conexao.Execute("SELECT * FROM tempo_banner")
    %>
    <script>
    function TrocaGeraBanner()
    {
        GeraBanner('');
        setTimeout("TrocaGeraBanner();", "<%=Tempo("Tempo")%>000");
    }
    TrocaGeraBanner();
    </script>   	
    

</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Primeiro que nessa parte do code

 

Completo=(rs("Completo"))

Esta errado, pois não se usa parênteses antes da chamativa da variável..

 

O certo seria

 

Completo= rs("Completo")

Porém como você disse que não esta fazendo o efeito html, tente assim

 

Completo=HTMLDecode(rs("Completo"))

Desta forma você manda o comando da função nativa HTMLDecode para interpretar todas as tags html como deveriam ser interpretadas.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Clauido José    3

Clauido José
Postado

Cara é seguinte coloquei o HTMLDecode como surgeril mas tava dando erro:

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis: 'HTMLDecode'

 

/csa/conteudo.asp, line 50

 

Ai tirei o HTMLDecode e os parentes pra minha supresa apareceu certinho valeu resolvi sem querer rsrsrs

 

 

hehehe

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Caramba Cláudio...

Eu acho que conheço esses códigos ai hein.... me são BEM familiares....

 

Pelo menos coloque os créditos neh ???

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

OK, que bom que resolveu...

 

só complementando olha esta função, que decodifica uma string codificada em HTML de volta para o código html original.

 

    <%
    Private Function HTMLDecode(byVal encodedstring)
    	Dim tmp, i
    	tmp = encodedstring
    	tmp = Replace( tmp, """, chr(34) )
    	tmp = Replace( tmp, "<"  , chr(60) )
    	tmp = Replace( tmp, ">"  , chr(62) )
    	tmp = Replace( tmp, "&" , chr(38) )
    	tmp = Replace( tmp, " ", chr(32) )
    	For i = 1 to 255
    		tmp = Replace( tmp, "" & i & ";", chr( i ) )
    	Next
    	HTMLDecode = tmp
    End Function
    %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Clauido José    3

Clauido José
Postado

Hehe desculpa ai patrique se tb ajudou se nao fose voce nao tinha visto o problema, a detalhe esse codigo vem de um site que estavamos desenvolvendo quando trablahei com DarkDemo o codigo é criação dele rsrs

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