Ir para conteúdo

POWERED BY:

Arquivado

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

wmlanderson

FCKeditor como instalar ?

Por , em ASP Clássico

Recommended Posts

wmlanderson    0

wmlanderson
Postado

Quero saber como implementar ou instalar o fckeditor com ASP.Gostaria de saber se o fckeditor tem um site de upload de foto. que quando a foto for adicionada ao server pelo upload a foto na apareça no textarea automaticamente e se da pra colocar tipow ao lado do texto pro texto ficar em volta da foto.Tipow quero usar ele pra fazer um sistema de noticia .POR FAVOR ME AJUDEM POR FAVOR.POR FAVOR

Compartilhar este post

Link para o post
Compartilhar em outros sites

wmlanderson    0

wmlanderson
Postado

Ola cara td bem muito obrigado por você ter respondido o meu topico mais me diz.Eu sei. é porque todo mundo fala que tipow, esse fckeditor e muito dificil de funcionar e todos dizem que quando consegue fazer funfar uma coisa a outra fica sem funfar entendeu.Tipow esse upload do fckeditor é daquele que faz o upload da foto e ja aparece automatico no TEXTAREA e tambem da pra organizar tipow com o texto ao redor da imagem...POR FAVOR ME AJUDEM , JA ESTAO SE ACABANDO O PRAZO DE EU ENTREGAR O SERVIÇO PRO CLIENTE ...OBRIGADO !!!!!!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

wmlanderson    0

wmlanderson
Postado

Lucas cara tipow o fckeditorquando a gente descompacta ele e vem xeio de paginas nao podemos deletar nenhum. ?Temos que inserir o fckeditor como INCLUDE ou como que é ?CARA ME AJUDEM POR FAVOR.MEU PRAZO ESTAR ACABANDO PRECISO DESSE EDITOR PARA INSERIR MATERIAS.POR FAVOR...

Compartilhar este post

Link para o post
Compartilhar em outros sites

wmlanderson    0

wmlanderson
Postado

dentro da pasta do fckeditor tem uma pasta chamada _sample. la tem um modelo pré configurado...é so você copiar como é feito e ajustar os caminhos dos includes.

Ola amigo Lucas por favor amigo. La na pasta _sample eu axei a pasta asp e dentro da pasta asp tem 4 samples.asp entao o que devo fazer eu copio alguma dessas paginas e tipow. Essa pagina sample eu coloca na minha pagina de administração como include é isso.POR FAVOR MEU AMIGO DE UMA AJUDINHA PRUM CARA DESESPERADO ...OBRIGADO...

Compartilhar este post

Link para o post
Compartilhar em outros sites

wmlanderson    0

wmlanderson
Postado

Se ainda continuar com dúvidas, veja aqui: http://wiki.fckeditor.net/ é o manual online ... muito simples e objetivo ...

Ei Buscopan cara esse manuel e muito bom. Gostei. VLW pela dica.Cara o melhor forum pra mim de toda WEB é esse do imasters. Ja tirei muitas duvidas minhas só de Ler os topicos e respostas.Pesquiso aki todos os Dias muito obrigado.....Valeu ...Obrigado Lucas....fui.....

Compartilhar este post

Link para o post
Compartilhar em outros sites

MarVinOlivieraS    0

MarVinOlivieraS
Postado

bom dia, tenho um sistema de norícias e queria implementar o fckeditor, as páginas que uso são:

 

addnotfoto.asp, com o fomulário:

 

<%If session("usr_log_ok")="" Then 

  Response.Write "Você está Logado no sistema!"

  Response.write "<a href='login.asp'>Clique aqui para se logar.</a>"

  Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")

  Response.End()

End If

set conexao = Server.CreateObject("ADODB.Connection")

conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/dados/dados.mdb")&";"

conexao.open

SQL = "select * from usuarios where id_usuario ="&session("usr_log_ok")

Set RS = Conexao.Execute(SQL)

If rs.eof then

Response.write "Ocorreu um erro ao se logar no sistema!"

Else %>


<meta name="generator" content="Namo WebEditor v5.0">

<style TYPE="text/css">

<style TYPE="text/css">

<!--

BODY {

scrollbar-face-color: FFFFFF;

scrollbar-arrow-color: 000000;

scrollbar-base-color: 000000;

scrollbar-shadow-color: FFFFFF;

scrollbar-dark-shadow-color: 000000;

scrollbar-highlight-color: FFFFFF;

scrollbar-3d-light-color: 000000}

//-->

</STYLE>

<STYLE>

A:link 		{ Color:#666666;TEXT-DECORATION: none }

A:visited 	{ Color:#666666;TEXT-DECORATION: none }

A:active 	{ Color:#666666;TEXT-DECORATION: none }

A:hover 	{ Color:#01A8E0;TEXT-DECORATION: underline }

</STYLE>


<body>

<table width="634" align="center">

<form name="form1" action="addnotfoto1.asp" method="post" enctype="multipart/form-data">

<tr>
<td width="628" colspan="4">

</td>

</tr>

<form name="form1" action="addnotfoto1.asp" method="post" enctype="multipart/form-data">

<tr>

<td width="60"><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Título:</b></span></font></td>

<td width="564" colspan="3"><input type="text" name="Topico" size="80"></td>

</tr>

<tr>

<td width="60">

				<p><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Manchete</b></span></font></p>

</td>

<td width="564" colspan="3">				

					<p><textarea name="Resumo" rows="3" cols="74"></textarea></p>

</td>

</tr>

<tr>

<td width="60">

				<p><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Noticia</b></span></font></p>

</td>

<td width="564" colspan="3">				

					<p><textarea name="Noticia" rows="8" cols="74"> </textarea></p>

</td>

</tr>

<tr>

<td width="60">

				<p><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Classe</b></span></font></p>

</td>

<td width="564" colspan="3"><font face="Tahoma"><span style="font-size:8pt;"><b><select size="1" name="Classe">

  <option value="Local">Local</option>

  <option value="Estadual">Estadual</option>

  <option value="Brasil">Brasil</option>

  <option value="Mundo">Mundo</option>

  <option value="Entrevistas">Entrevistas</option>

  </select> Link> </b></span></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><a href="http://www.dendereço.com.br"></b></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="red"><b>Texto</b></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b></a></b></font></td>

</tr>

<tr>

<td width="60">

				<p><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Classe1</b></span></font></p>

</td>

<td width="564" colspan="3"><font face="Tahoma"><span style="font-size:8pt;"><b><select size="1" name="Classe1">

  <option value="Local">Local</option>

  <option value="Estadual">Estadual</option>

  <option value="Brasil">Brasil</option>

  <option value="Mundo">Mundo</option>

  <option value="Entrevistas">Entrevistas</option>

  </select>  </b></span></font></td>

</tr>

		<tr>

<td width="60">

				<p><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Fonte</b></span></font></p>

</td>

<td width="564" colspan="3"><input type="text" name="Autor" size="40"></td>

		</tr>

<tr>

<td width="60"><font face="Tahoma" color="red"><span style="font-size:10pt;"><b>Foto 

				Pequena</b></span></font></td>

<td width="222"><input type="file" name="foto" size="24"></td>

<td width="85"><b><font face="Tahoma" color="red"><span style="font-size:9pt;">Foto 

				Grande</span></font></b></td>

<td width="249"><input type="file" name="foto1" size="25"></td>

</tr>

<tr>

<td colspan="4" width="628">

				<p align="center"><input type="submit" name="submit" value="Enviar notícia">

</td>

</tr>

</form> 

</table>

addnotofoto1.asp:

 

<!-- #include file="upload.inc" -->

<%If session("usr_log_ok")="" Then 

  Response.Write "Você está Logado no sistema!"

  Response.write "<a href='login.asp'>Clique aqui para se logar.</a>"

  Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")

  Response.End()

End If

set conexao = Server.CreateObject("ADODB.Connection")

conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dados/dados.mdb")&";"

conexao.open

SQL = "select * from usuarios where id_usuario ="&session("usr_log_ok")

Set RS = Conexao.Execute(SQL)

If rs.eof then

Response.write "Ocorreu um erro ao se logar no sistema!"

end if %>

<meta name="generator" content="Namo WebEditor v5.0">

<style TYPE="text/css">

<!--

BODY {

scrollbar-face-color: FFFFFF;

scrollbar-arrow-color: 000000;

scrollbar-base-color: 000000;

scrollbar-shadow-color: FFFFFF;

scrollbar-dark-shadow-color: 000000;

scrollbar-highlight-color: FFFFFF;

scrollbar-3d-light-color: 000000}

//-->

</STYLE>

<STYLE>

A:link 		{ Color:#666666;TEXT-DECORATION: none }

A:visited 	{ Color:#666666;TEXT-DECORATION: none }

A:active 	{ Color:#666666;TEXT-DECORATION: none }

A:hover 	{ Color:#01A8E0;TEXT-DECORATION: underline }

</STYLE>

<body>

<p> </p>



<p align="center"><font face="Arial Black" color="red"><span style="font-size:14pt;"><%

' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin



' Recuperando os Dados Digitados ----------------------

Topico = UploadRequest.Item("Topico").Item("Value")

Resumo = UploadRequest.Item("Resumo").Item("Value")

Classe = UploadRequest.Item("Classe").Item("Value")

Classe1 = UploadRequest.Item("Classe1").Item("Value")

Autor = UploadRequest.Item("Autor").Item("Value")

Noticia = UploadRequest.Item("Noticia").Item("Value")



' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType")



' Caminho completo dos arquivos enviados

caminho_foto = UploadRequest.Item("foto").Item("FileName")

caminho_foto1 = UploadRequest.Item("foto1").Item("FileName")



' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))



' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")

foto1 = UploadRequest.Item("foto1").Item("Value")



' pasta onde as imagens serao guardadas

pasta = Server.MapPath("fotos/")

nome_foto = "/"&nome_foto

nome_foto1 = "/"&nome_foto1



' pasta + nome dos arquivos

cfoto = "fotos" + nome_foto

cfoto1 = "fotos" + nome_foto1



' Fazendo o Upload do arquivo selecionado

if foto <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

For i = 1 to LenB(foto)

MyFile.Write chr(AscB(MidB(foto,i,1)))

Next

MyFile.Close

end if



if foto1 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)

For i = 1 to LenB(foto1)

MyFile.Write chr(AscB(MidB(foto1,i,1)))

Next

MyFile.Close

end if



' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("dados/dados.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 



' cadastra os dados no banco de dados

sql = "Insert into Noticias (Topico,Resumo,Classe,Classe1,Autor,Noticia,foto,foto1) values ('"& Topico &"', '"& Resumo &"', '"& Classe &"','"& Classe1 &"','"& Autor &"', '"& Noticia &"', '"& cfoto &"', '"& cfoto1 &"')"

Conexao.Execute(sql)



' Mostra Mensagem de Confirmação na Tela

Response.write "Parabéns, a notícia foi inserida com sucesso com sucesso!"



' Redireciona após 5 segundos

response.write "<br><br>você será redirecionado em 5 segundos..<br>"

response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>"

%></span></font>

e apload.inc:

 

<%

Sub BuildUploadRequest(RequestBin)

on error resume next

PosBeg = 1

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))

boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)

BoundaryPos = InStrB(1, RequestBin, boundary)

Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))

Dim UploadControl

Set UploadControl = CreateObject("Scripting.Dictionary")

Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))

Pos = InStrB(Pos, RequestBin, getByteString("name="))

PosBeg = Pos + 6

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))

Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))

PosBound = InStrB(PosEnd, RequestBin, boundary)

If PosFile <> 0 And (PosFile < PosBound) Then

PosBeg = PosFile + 10

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))

FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

UploadControl.Add "FileName", FileName

Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))

PosBeg = Pos + 14

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))

ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

UploadControl.Add "ContentType", ContentType

PosBeg = PosEnd + 4

PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2

Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)

Else

Pos = InStrB(Pos, RequestBin, getByteString(Chr(13)))

PosBeg = Pos + 4

PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2

Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

End If

UploadControl.Add "Value", Value

UploadRequest.Add Name, UploadControl

BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)

Loop

End Sub

Function getByteString(StringStr)

For i = 1 To Len(StringStr)

Char = Mid(StringStr, i, 1)

getByteString = getByteString & ChrB(AscB(Char))

Next

End Function

Function getString(StringBin)

getString = ""

For intCount = 1 To LenB(StringBin)

getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))

Next

End Function

%>

além de enviar as notícias nesse formulário eu envio duas imagens para a capa da notícia por isso, as áreas de apload, mais quanto a imagens ñ tenho dúvidas pois já vi um outro tutorial que ensina como fzer, a minha dúvida é saber se tenho como adcionar o fckeditor a esse sistema ou terei que mudar tudo, como faço para adcionar o fckeditor a esse sistema?

desde já agradeço as respostas

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