Avatar billede want2learn Nybegynder
31. marts 2006 - 18:32 Der er 41 kommentarer og
1 løsning

indbyg database connection i editor

Jeg er tidligere blevet anbefalet denne editor her på sitet.
http://www.kevinroth.com/rte/demo.htm

vil nogle kunne tage den editor og bygge den ind i denne side eller sætte det op så den kan hente diverne recorder ind !?

Min side er:
<%
process = Request.QueryString("process")

Sub omklubben()

Call OpenDB
  If process = "" Then
    strSQL = "SELECT [TextID], [TextOverskrift], [TextMain] FROM text_bif_index"
    strSQL = strSQL & " WHERE [TextID] = 1"
  Else
    strSQL = "SELECT [TextID], [TextOverskrift], [TextMain] FROM [index]"
    strSQL = strSQL & " WHERE [TextID] = " & process & ""
  End If
  Set objRS = objConn.Execute(strSQL)
 
  If Not (objRS.BOF Or objRS.EOF) Then
    Response.Write("")
 
    Do While Not objRS.EOF
   
    strTitle = objRS("TextOverskrift")
    strText = objRS("TextMain")
    strId = objRS("TextID")
   
    Response.Write("<form name=""myForm"" method=""post"" action=""updater.asp"">")
    Response.Write("<br><input type=""text"" name=""overskrift"" size=""200px"" value=""" & strTitle & """><br>")
    Response.Write("<input type=""hidden"" name=""id"" value=""" & strId & """><br>")
    Response.Write("<textarea name=""textarea"" cols=""80"" rows=""15"" id=""myTextarea"">" & strText & "</textarea>")
    objRS.MoveNext
    Loop
    Response.Write("<br /><br /><input type=""submit"" name=""Submit"" value=""updater"">form>")
  else
    Response.Write "Der findes intet data, i Databasen"
End If
End Sub

%>

Ville gerne har den editor som er i det link som jeg har linket til bliver sat ind der hvor jeg har en textaera nu så man kan se fed skrift mm i den mends man skriver. derefter skal jeg nok selv bygge videre på det så jeg kan gemme det rettede i en DB men PT skal jeg bare kunne hente mine recorder ind.
Avatar billede want2learn Nybegynder
31. marts 2006 - 18:37 #1
må da også gerne være denne hvis den er lettere at sætte op til det..
http://www.webwizguide.info/asp/sample_scripts/RTE_application.asp

eller en 3.
Avatar billede eagleeye Praktikant
31. marts 2006 - 18:46 #2
Hvilen en skal det så være?
Avatar billede want2learn Nybegynder
31. marts 2006 - 18:52 #3
helst den WIZ da man kan uploade billeder nemt og så der er en fil som man behøver at ændre i for at så lavet alle tekster fra ENG til DAN. og har lidt flere ting.
Avatar billede eagleeye Praktikant
31. marts 2006 - 18:53 #4
Umiddelbart tror jeg faktisk også webwiz er lidt lettere at sætte op :)
Avatar billede want2learn Nybegynder
31. marts 2006 - 19:47 #5
okay cool du vender bare tilbage når du har noget der skal testet samt om jeg skal tage filerne fra mappen og ligger ind i den hvor jeg har min fil eller om jeg skal tage hele mappen og ligge ind i den mappe hvor min fil er.
Avatar billede eagleeye Praktikant
31. marts 2006 - 19:56 #6
JEg er godt igang der gik lidt tid før jeg fandt ud af hvor man rettede stien til.

Man kan ligge alle filerne i en folder for sig selv evt. rte i root folderen
Så kan man havde sine andre form filet et andet sted.
Avatar billede eagleeye Praktikant
31. marts 2006 - 19:59 #7
hmm det lader vist til det er meget letter at havde ens form fil i samme folder som rte filerne...
Avatar billede eagleeye Praktikant
31. marts 2006 - 20:07 #8
Hvis du prøver at rette funktion til dette:


Sub omklubben()

  Call OpenDB
  If process = "" Then
    strSQL = "SELECT [TextID], [TextOverskrift], [TextMain] FROM text_bif_index"
    strSQL = strSQL & " WHERE [TextID] = 1"
  Else
    strSQL = "SELECT [TextID], [TextOverskrift], [TextMain] FROM [index]"
    strSQL = strSQL & " WHERE [TextID] = " & process & ""
  End If
  Set objRS = objConn.Execute(strSQL)
 
  If Not (objRS.BOF Or objRS.EOF) Then
    Response.Write("")
 
    Do While Not objRS.EOF
   
    strTitle = objRS("TextOverskrift")
    strText = objRS("TextMain")
    strId = objRS("TextID")

    Dim strFormName
    Dim strTextAreaName
    'Name of the HTML form the textarea is within - wiz editor
    strFormName = "myForm"
    'ID tag name of HTML textarea being replaced - wiz editor
    strTextAreaName = "myTextarea"
       
    Response.Write("<form name=""" & strFormName & """ method=""post"" action=""updater.asp"" onsubmit=""return submitForm();"">")
    Response.Write("<br><input type=""text"" name=""overskrift"" size=""200px"" value=""" & strTitle & """><br>")
    Response.Write("<input type=""hidden"" name=""id"" value=""" & strId & """><br>")
%>
<!--#include file="RTE_editor_inc.asp" -->       
    <textarea name="textarea" cols="80" rows="15" id="myTextarea"><%= strText %> </textarea>       
<%
'    Response.Write("<textarea name=""textarea"" cols=""80"" rows=""15"" id=""" & strTextAreaName & """>" & strText & "</textarea>")       
    objRS.MoveNext

    '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
    If blnAbout Then
      Response.Write("<br /><span class=""text"" style=""font-size:10px"">Powered by <a href=""http://www.richtexteditor.org"" target=""_blank"" style=""font-size:10px"">Web Wiz Rich Text Editor</a> version " & strRTEversion)
      Response.Write("<br />Copyright &copy;2002-2005 <a href=""http://www.webwizguide.info"" target=""_blank"" style=""font-size:10px"">Web Wiz Guide</a></span>")
    End If
    '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
       
    Loop
    Response.Write("<br /><br /><input type=""submit"" name=""Submit"" value=""updater""></form>")
  else
    Response.Write "Der findes intet data, i Databasen"
  End If
End Sub



og så rette <body> tagen sådan den kalder en onload:

<body OnLoad="initialiseWebWizRTE();">



Prøv at ligge filen ind i "rte" folderen og kør den og havde sker der så?
Avatar billede eagleeye Praktikant
31. marts 2006 - 20:31 #9
lige så snart koden er inde i en sub vil den ikke....
Avatar billede eagleeye Praktikant
31. marts 2006 - 20:40 #10
arh, så fik jeg den til det :)..  Prøv denne funktion, filen skal ligge i rte folderen:


sub omklubben()
  If process = "" Then
    strSQL = "SELECT [TextID], [TextOverskrift], [TextMain] FROM text_bif_index"
    strSQL = strSQL & " WHERE [TextID] = 1"
  Else
    strSQL = "SELECT [TextID], [TextOverskrift], [TextMain] FROM [index]"
    strSQL = strSQL & " WHERE [TextID] = " & process & ""
  End If
  Set objRS = objConn.Execute(strSQL)
 
  If Not (objRS.BOF Or objRS.EOF) Then
    Response.Write("")
 
      Do While Not objRS.EOF

    strTitle = objRS("TextOverskrift")
    strText = objRS("TextMain")
    strId = objRS("TextID")
       
Dim strFormName
Dim strTextAreaName

strFormName = "myForm"
strTextAreaName = "myTextarea"

    Response.Write("<form name=""" & strFormName & """ method=""post"" action=""updater.asp"">")
    Response.Write("<br><input type=""text"" name=""overskrift"" size=""200px"" value=""" & strTitle & """><br>")
    Response.Write("<input type=""hidden"" name=""id"" value=""" & strId & """><br>")

%>
<link href="RTE_configuration/default_style.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" src="RTE_javascript_common.asp" type="text/javascript"></script>
<script language="JavaScript" src="RTE_javascript.asp?textArea=myTextarea" type="text/javascript"></script>
<script language="JavaScript">WebWizRTEtoolbar('myForm');</script>

        <textarea name="textarea" cols="80" rows="15" id="myTextarea"><%= strText %></textarea>
        <br />
<%
    objRS.MoveNext
    Loop
    Response.Write("<br /><br /><input type=""submit"" name=""Submit"" value=""updater""></form>")
  else
    Response.Write "Der findes intet data, i Databasen"
  End If
  '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
  If blnAbout Then
      Response.Write("<br /><span class=""text"" style=""font-size:10px"">Powered by <a href=""http://www.richtexteditor.org"" target=""_blank"" style=""font-size:10px"">Web Wiz Rich Text Editor</a> version " & strRTEversion)
      Response.Write("<br />Copyright &copy;2002-2005 <a href=""http://www.webwizguide.info"" target=""_blank"" style=""font-size:10px"">Web Wiz Guide</a></span>")
  End If
  '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
end sub
Avatar billede want2learn Nybegynder
31. marts 2006 - 21:02 #11
det skal siges at hvis jeg skal sætte det der onload på min body då er det på en side som laver et CALL på en anden side og den anden side laver et CALL på den sidste side altså den du lige har lavet.

og gør jeg det så får jeg kun vist textarea og ikke menuen med funktionerne emn den viser tekst men ikke som den skal med FED skrift mm.

hvordan kan jeg få vist menuen !?
Avatar billede eagleeye Praktikant
31. marts 2006 - 21:08 #12
Ok man kan også undlade onLoad og sætte et javascript efter formen er sat ind som kalder den funktion sådan her:



sub omklubben()
  If process = "" Then
    strSQL = "SELECT [TextID], [TextOverskrift], [TextMain] FROM text_bif_index"
    strSQL = strSQL & " WHERE [TextID] = 1"
  Else
    strSQL = "SELECT [TextID], [TextOverskrift], [TextMain] FROM [index]"
    strSQL = strSQL & " WHERE [TextID] = " & process & ""
  End If
  Set objRS = objConn.Execute(strSQL)
 
  If Not (objRS.BOF Or objRS.EOF) Then
    Response.Write("")
 
      Do While Not objRS.EOF

    strTitle = objRS("TextOverskrift")
    strText = objRS("TextMain")
    strId = objRS("TextID")
       
Dim strFormName
Dim strTextAreaName

strFormName = "myForm"
strTextAreaName = "myTextarea"

    Response.Write("<form name=""" & strFormName & """ method=""post"" action=""updater.asp"">")
    Response.Write("<br><input type=""text"" name=""overskrift"" size=""200px"" value=""" & strTitle & """><br>")
    Response.Write("<input type=""hidden"" name=""id"" value=""" & strId & """><br>")

%>
<link href="RTE_configuration/default_style.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" src="RTE_javascript_common.asp" type="text/javascript"></script>
<script language="JavaScript" src="RTE_javascript.asp?textArea=myTextarea" type="text/javascript"></script>
<script language="JavaScript">WebWizRTEtoolbar('myForm');</script>

        <textarea name="textarea" cols="80" rows="15" id="myTextarea"><%= strText %></textarea>
        <br />
<%
    objRS.MoveNext
    Loop
    Response.Write("<br /><br /><input type=""submit"" name=""Submit"" value=""updater""></form>")
  else
    Response.Write "Der findes intet data, i Databasen"
  End If
  '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
  If blnAbout Then
      Response.Write("<br /><span class=""text"" style=""font-size:10px"">Powered by <a href=""http://www.richtexteditor.org"" target=""_blank"" style=""font-size:10px"">Web Wiz Rich Text Editor</a> version " & strRTEversion)
      Response.Write("<br />Copyright &copy;2002-2005 <a href=""http://www.webwizguide.info"" target=""_blank"" style=""font-size:10px"">Web Wiz Guide</a></span>")
  End If
  '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>
<script>
initialiseWebWizRTE();
</script>
<%   
end sub
Avatar billede want2learn Nybegynder
31. marts 2006 - 21:25 #13
Nej..

men den indlæser data som den skal men viser det ikke med menu eller fed skrift osv.
http://www.billundfodbold.dk/fejl.gif
Avatar billede eagleeye Praktikant
31. marts 2006 - 21:32 #14
Hvor ligger form filen i forhold til rte filerne?
Avatar billede eagleeye Praktikant
31. marts 2006 - 21:42 #15
Tillader din browser afvikling javascript?
Avatar billede want2learn Nybegynder
31. marts 2006 - 23:31 #16
Kommentar: eagleeye
31/03-2006 21:32:01

Den ligger i RTE mappen i roden som du skrev den skulle altså der hvor default.asp lå.


Kommentar: eagleeye
31/03-2006 21:42:52

Ja det gør den da jeg har kørt den editor som den er inden vi/DU nu her byggede den sammen med min side.
Avatar billede want2learn Nybegynder
31. marts 2006 - 23:38 #17
jeg vender tilbage imorgen tidlig.

Go' nat ;)
Avatar billede eagleeye Praktikant
31. marts 2006 - 23:40 #18
ok, så bliver du nød til at fortælle hvordan siden er bygget op, for jeg har prøvet at loade formen igenne include filer og server.execute og den kommer fint frem.

bruger du frames eller iframes?
Avatar billede want2learn Nybegynder
01. april 2006 - 10:45 #19
default.asp der har jeg inkludet system.asp og har en sub der hedder "news" på system.asp som bliver kaldt i default.asp.

på system.asp har jeg så inkluderet process.asp som har en sub der hedder "omklubben" denne kalder jeg frem på system siden.

"omklubben" bliver så vist i en "DIV".

Kun default.asp siden har <html><head>og<body> de andre har intet.

hvis du vil så kan jeg maile siderne til dig så du kan se dem.
Avatar billede eagleeye Praktikant
01. april 2006 - 11:01 #20
Ja det tror jeg bliver nødvendigt. umiddelbart kan jeg ikke lige se hvorfor det driller. Send til: eagleeye@c.dk
Avatar billede want2learn Nybegynder
01. april 2006 - 11:23 #21
er hermed sendt.
Avatar billede eagleeye Praktikant
01. april 2006 - 11:49 #22
ok, problemet er at den fil som kalder filen hvor funktionen ligger er en folder længere ud så den tror også at RTE filerne ligger en folder længere ude..

Så alle dine filer skal ligge i RTE folderen.

Problemet er eks:

abc/rte/fil1.asp
abc/fil2.asp


hvis fil2.asp includer fil1 <!-- include file="rte/fil1.asp"-->
så vil stien i fil1.asp se sådan her ud:  /abc/
Så når man i fil1.asp includer filer vil den søge i en anden folder som ikke findes.
Avatar billede eagleeye Praktikant
01. april 2006 - 11:51 #23
jeg kan ikke rigtig findet et sted hvor man sætte stien op til rte filerne.. Man kan et sted rette stien til billederne men det også det eneste.
Avatar billede eagleeye Praktikant
01. april 2006 - 11:57 #24
Jeg har lige kigget på deres support side for der er nok andre som har haft samme tanke at kunne ligge rte i en folder for sig selv men det kan man ikke:
http://www.webwizguide.info/bbs/forum_posts.asp?TID=19019
Avatar billede want2learn Nybegynder
01. april 2006 - 12:02 #25
okay.

når men jeg har lagt dem ind i rte som du skrev og viser og nu loader den menuen men ikke textarea'en
http://www.billundfodbold.dk/fejl.gif
Avatar billede eagleeye Praktikant
01. april 2006 - 12:44 #26
Det må simpelhen være et style problem. Hvis jeg åbner min test side i IE får jeg det samme som dig, hvis jeg åbner siden i FireFox kommer det fint frem...
Avatar billede eagleeye Praktikant
01. april 2006 - 13:12 #27
men jeg kan ikke gennemskue hvorfor.. for deres eksempel er bygget op på samme måde med en div og en tabel inde i div'en...
Avatar billede want2learn Nybegynder
01. april 2006 - 13:13 #28
ja det kan jeg godt se dog er der nogle grafiske fejl i FF også men ja den kommer frem, du kan ikke hvor fejlen evt ligger !?

Og vil du lægge et svar.
Avatar billede eagleeye Praktikant
01. april 2006 - 13:21 #29
JA, men jeg tror jeg har funet ud af det og det er det script som kalder  initialiseWebWizRTE

Det skal være på onload i body tagen.


Det man kan gøre i stedet for at kalde den direkte så lave en funktion som kalder initialiseWebWizRTE og lave try-catch i funktion for at undgå javascript fejl:

Så i cmsdefaulf.asp til denne funktion imellem de to <script>'s tags


function tryinitialiseWebWizRTE()
{
  try {
    initialiseWebWizRTE();
  }
  catch(ex)
  {
  }
}


Og rette body tagen til:
<body onload="tryinitialiseWebWizRTE();">








I process.asp fjen diss linier fra funktion:

<script>
initialiseWebWizRTE();
</script>
Avatar billede want2learn Nybegynder
01. april 2006 - 13:28 #30
ja nu virker det det virkede også uden
function tryinitialiseWebWizRTE()
{
  try {
    initialiseWebWizRTE();
  }
  catch(ex)
  {
  }
}

bare jeg gjorder det andet, havde nemlig glemt at sætte det ind i et script men har jeg gjord nu.

1000 Tak
læg et svar
Avatar billede eagleeye Praktikant
01. april 2006 - 13:31 #31
Ja det sidset bliv jo ikke et svar, så her kommer :)


Prøv lige at dobbelt tjekke det virker uden den funktion for det er den som "linket" textarea'et samme med "editoren" editoren bliver vist også selvom den funktion kaldes.
Avatar billede eagleeye Praktikant
01. april 2006 - 13:32 #32
hov sidste linie manger et ikke:
editoren bliver vist også selvom den funktion ikke kaldes.
Avatar billede want2learn Nybegynder
01. april 2006 - 13:35 #33
det virker som den skal.

Tak igen dog har jeg et mindre problem med:

Response.Write("<br><input type=""text"" name=""overskrift"" size=""200px"" value=""" & strTitle & """><br>")


selvom jeg ændre til 400px så forbliver den ca. 4 cm bred.

sidste spm. den editor der må man da gerne sætte ' foran nogle linjer som man ikke vil benytte sig af ikke !? skal nemlig ikke bruge Print og Kopi knappen.
Avatar billede eagleeye Praktikant
01. april 2006 - 13:45 #34
Der er en setup fil  RTE_setup.asp  som ligger inde i folderen:

RTE/RTE_configuration


Der er en variable til hver knap som alle defautl står til true du kan dem du ikke ønsker til false eks:

Const blnPrint = true


size på et input felt skal angives i hvor mange karakter den viser, ikke pixels.
Avatar billede want2learn Nybegynder
01. april 2006 - 15:48 #35
ja det er jo noget lettere end med ' mange tak igen
Avatar billede want2learn Nybegynder
01. april 2006 - 16:55 #36
en lille ting hvis man tager filen
RTE_iframe_select_font.asp i includes og indsætter denne linje efter

EFTER
<tr onMouseover="overItem(this)" onMouseout="outItem(this)" OnClick="mouseClick('Geneva, Arial, Helvetica, sans-serif')" style="cursor: default;">
    <td class="pStyle" style="font-family: Geneva, Arial, Helvetica, sans-serif;">Geneva</td>

EKSTRA LINJE
<tr onMouseover="overItem(this)" onMouseout="outItem(this)" OnClick="mouseClick('Tahoma')" style="cursor: default;">
    <td class="pStyle" style="font-family: Tahoma;">Tahoma</td>

i selve filen viser den fint nok men ikke hvis jeg klikker fint i editoren så bliver den ikke loadet hvorfor ikke !?
Avatar billede want2learn Nybegynder
01. april 2006 - 16:55 #37
har husket </tr> uden held
Avatar billede eagleeye Praktikant
01. april 2006 - 17:30 #38
Godt spørgmål.. Den er i listen. I samme fil har jeg prøvet prøvet at rette:

.pStyle { font-size: 14px; color: #000000; }


Til

.pStyle { font-size: 10px; color: #000000; }


Så kan man se den, så størrelsen på den box der kommer frem må være hard-coded et sted. Så det bare lige hvor :)
Avatar billede eagleeye Praktikant
01. april 2006 - 17:34 #39
Det er i filen RTE_javascript.asp  i linie 215 orginal linier:


    'Font Select iframe
    If blnFontType Then
        Response.Write(vbCrLf & "    document.writeln('<iframe width=""130"" height=""140"" id=""fontSelect"" src=""includes/RTE_iframe_select_font.asp"" style=""visibility:hidden; position: absolute; left: 0px; top: 0px; border: 1px solid #000000;"" frameborder=""0"" scrolling=""no""></iframe>');")
    End If


Jeg har rette height til 160 og så kan det fint så der og selvfølgelig rette .pStyle til 14px igen :)


    'Font Select iframe
    If blnFontType Then
        Response.Write(vbCrLf & "    document.writeln('<iframe width=""130"" height=""160"" id=""fontSelect"" src=""includes/RTE_iframe_select_font.asp"" style=""visibility:hidden; position: absolute; left: 0px; top: 0px; border: 1px solid #000000;"" frameborder=""0"" scrolling=""no""></iframe>');")
    End If
Avatar billede want2learn Nybegynder
01. april 2006 - 17:55 #40
okay tak og så tror jeg kun jeg har en ting som er lidt træls, jeg har rettet teksterne til dansk men den kan ikke vise ÆØÅæøå og min charset er:
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1" />

har prøvet at ændre
<%@ Language=VBScript %>
til
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

men så får jeg denne fejl
Active Server Pages error 'ASP 0245'

Mixed usage of Code Page values

/cms/RTE_file_browser.asp, line 1

The @CODEPAGE value specified differs from that of the including file's CODEPAGE or the file's saved format.

hvor kan jeg ændre så den vil vise ÆØÅ.
Avatar billede eagleeye Praktikant
01. april 2006 - 18:07 #41
Det har jeg umiddelbart ikke noget problem med. Den viser fint æøå.

Du kan prøve at kigge filen:  RTE/RTE_configuration/browser_page_encoding_inc.asp
og se at den står til europærisk:

'Western European ISO
Const strPageEncoding = "iso-8859-1"
Avatar billede eagleeye Praktikant
01. april 2006 - 18:08 #42
Du kan evt. prøve at udkommentere den sidste linie i : RTE/RTE_configuration/browser_page_encoding_inc.asp

Response.Write("<meta http-equiv=""Content-Type"" content=""text/html; charset=" & strPageEncoding & """>")


Så kan du selv ændre codepage på din side med VBscriptet
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester