[Resolvido] integrando fckeditor com ASP

MarVinOlivieraS · Dezembro 29, 2008

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

filipescoob · Dezembro 29, 2008

MarVinOliveiraS,

Para usar o FKEditor inclua isto na pagina.

'Inclui as funçôes do mesmo na pagina

'Cria o FcEditor

<%

Dim oFCKeditor

Set oFCKeditor = New FCKeditor

If objRS_alterar("descricao") <> "" Then

'Adiciona se ele vai receber algum valor

oFCKeditor.Value = Replace(objRS_alterar("descricao"),"src=""imagens/catalogo/","src=""" & endereco_figuras & "imagens/catalogo/")

Else

oFCKeditor.Value = " "

End If

'Define o nome da instancia do fcEditor e o seu tamanho. Lembre-se se tiver mais de um na pagina mude no nome da instacia, neste caso a instancia chama descricao

oFCKeditor.CreateFCKeditor "descricao", "100%", 150

Set oFCKeditor = Nothing

%>

Espero ter ajudado.

Abraços

MarVinOlivieraS · Dezembro 29, 2008

veja se estou fazendo certo:

na página addnotfoto.asp, que era assim:

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

eu coloquei o "include"

apaguei o textarea "noticia"

e inseri no lugar delo o código

<%

Dim oFCKeditor

Set oFCKeditor = New FCKeditor

If objRS_alterar("descricao") <> "" Then

'Adiciona se ele vai receber algum valor

oFCKeditor.Value = Replace(objRS_alterar("descricao"),"src=""imagens/catalogo/","src=""" & endereco_figuras & "imagens/catalogo/")

Else

oFCKeditor.Value = " "

End If

'Define o nome da instancia do fcEditor e o seu tamanho. Lembre-se se tiver mais de um na pagina mude no nome da instacia, neste caso a instancia chama descricao

oFCKeditor.CreateFCKeditor "descricao", "100%", 150

Set oFCKeditor = Nothing

%>

mais dessa forma continua dando erro, tentei mudar o nome da instancia, por que a pagina addnotfoto1.asp tem que receber a variável notícia que viría do fckeditor mais mesmo assim continua dando erro.

tem como você editar esse código que eu postei???

muito obrigado>>>>>

filipescoob · Dezembro 29, 2008

MarVinOlivieraS

Deve estar dando erro nos campos de banco que tinha no meu codigo.

Troque por este

<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
If "Retorno tiver valor" <> "" Then
'Adiciona se ele vai receber algum valor
oFCKeditor.Value = ""
Else
oFCKeditor.Value = " "
End If
'Define o nome da instancia do fcEditor e o seu tamanho. Lembre-se se tiver mais de um na pagina mude no nome da instacia, neste caso a instancia chama descricao
oFCKeditor.CreateFCKeditor "descricao", "100%", 150
Set oFCKeditor = Nothing
%>

Abraços

MarVinOlivieraS · Dezembro 29, 2008

o erro apresentado é esse:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'CreateFCKeditor'

/marvinoliveiras/silvaextreme/addnotfoto.asp, line 58

xanburzum · Dezembro 29, 2008

dá uma olhada neste link manual on-line

filipescoob · Dezembro 29, 2008

o erro apresentado é esse:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'CreateFCKeditor'

/marvinoliveiras/silvaextreme/addnotfoto.asp, line 58

O include esta correto ?

Isto acontece quando não esta encontrando a biblioteca do FC

xanburzum · Dezembro 29, 2008

a linha 58 seria esta

oFCKeditor.CreateFCKeditor "descricao", "100%", 150

como esta seu include

MarVinOlivieraS · Dezembro 30, 2008

bom dia!!!

fussando, fussando igual um porco na lama, consegui fzer com que o bendito fckeditor aparecesse, porém não sei como faço para pegar o valor gerado por ele e enviar para a pagina addnotfoto1.asp como variável Noticia.

que parte deste código indica o valor e como transformalo na variável Notícia:

<%



Dim sBasePath

sBasePath = Request.ServerVariables("PATH_INFO")

sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) )



Dim oFCKeditor

Set oFCKeditor = New FCKeditor

oFCKeditor.BasePath = sBasePath



If Request.QueryString("Skin") <> "" Then

	oFCKeditor.Config("SkinPath") = sBasePath + "editor/skins/" & Server.HTMLEncode( Request.QueryString("Skin") ) + "/"

End If



oFCKeditor.Create "FCKeditor1"

%>

aguardo respostas

MarVinOlivieraS · Dezembro 30, 2008

Resolvido::::

o probelma era só substituir o "FCKeditor1" por "Noticia" que era o nome que a pagina addnotfoto1.asp precisava..

Arquivado

[Resolvido] integrando fckeditor com ASP

Recommended Posts

MarVinOlivieraS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

MarVinOlivieraS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

MarVinOlivieraS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

MarVinOlivieraS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

MarVinOlivieraS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante