Publicado em 29 de dez.

[Resolvido] integrando fckeditor com ASP

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

addnotofoto1.asp:

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

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

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

End Function

Function getString(StringBin)

getString = ""

For intCount = 1 To LenB(StringBin)

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

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

Discussão (9)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...