Hvad er det helt præcist jeg skal gøre med denne kode?? indsætte den der
hvor jeg vil have editoren??
--
MVH
Adam G. Ellesøe
"terje" <late@night.zz> skrev i en meddelelse
news:44v6qiF43l21U1@individual.net...
> Se om du får noe ut av denne koden Adam.
>
> Classen (nedenunder) kalles via denne routinen:
>
> '------------------------------------------------------------------------------------------------------------
> ' Comment: Create an instance of the FCKEditor.
> '------------------------------------------------------------------------------------------------------------
> Sub CreateEditor()
> ' On Error Resume Next
>
> Dim oFCK
> Dim sBasePath
>
> If IsEmpty(oFCK) Then Set oFCK = New FCKEditor
>
> sBasePath = Request.ServerVariables("PATH_INFO")
> sBasePath = Left(sBasePath, InStrRev(sBasePath, "/admin")) &
> "tools/FCKEditor/"
>
> With oFCK
> .BasePath = sBasePath
> .ToolbarSet = "Basic"
> .Height = "250"
>
> If Request.QueryString("Toolbar") <> "" Then .ToolbarSet =
> Request.QueryString("Toolbar")
> .Value = m_sText
> .Create "FCKeditor1"
> End With
>
> Call KillObject(oFCK)
>
> End Sub
>
>
>
> <%
> '========================================================================
> Class FCKeditor
> '========================================================================
>
> Private sBasePath
> Private sInstanceName
> Private sWidth
> Private sHeight
> Private sToolbarSet
> Private sValue
> Private oConfig
>
> Public Property Let BasePath(basePathValue)
> sBasePath = basePathValue
> End Property
>
> Public Property Let instanceName(instanceNameValue)
> sInstanceName = instanceNameValue
> End Property
>
> Public Property Let Width(widthValue)
> sWidth = widthValue
> End Property
>
> Public Property Let Height(heightValue)
> sHeight = heightValue
> End Property
>
> Public Property Let ToolbarSet(toolbarSetValue)
> sToolbarSet = toolbarSetValue
> End Property
>
> Public Property Let Value(newValue)
>
> If IsNull(newValue) Or IsEmpty(newValue) Then
> sValue = ""
> Else
> sValue = newValue
> End If
>
> End Property
>
> Public Property Let Config(configKey, configValue)
> On Error Resume Next
>
> oConfig.Add configKey, configValue
>
> End Property
>
> '------------------------------------------------------------------------------------------------------------
> ' Comment:
> '------------------------------------------------------------------------------------------------------------
> Private Sub Class_Initialize()
> On Error Resume Next
>
> sBasePath = "/FCKeditor/"
> sWidth = "100%"
> sHeight = "200"
> sToolbarSet = "Default"
> sValue = ""
>
> Set oConfig = CreateObject("Scripting.Dictionary")
>
> If Err Then Call LogError("fckeditor.asp::Class_Initialize", "", "")
> End Sub
>
> '------------------------------------------------------------------------------------------------------------
> ' Comment:
> '------------------------------------------------------------------------------------------------------------
> Public Function Create(instanceName)
> On Error Resume Next
>
> Dim sFile
> Dim sLink
> Dim sWidthCSS, sHeightCSS
>
> Response.Write "<div>"
>
> If IsCompatible() Then
>
> If Request.QueryString("fcksource") = "true" Then
> sFile = "fckeditor.original.html"
> Else
> sFile = "fckeditor.html"
> End If
>
> sLink = sBasePath & "editor/" & sFile & "?InstanceName=" +
> instanceName
>
> If (sToolbarSet & "") <> "" Then sLink = sLink + "&Toolbar=" &
> sToolbarSet
>
> ' Render the linked hidden field.
> Response.Write "<input type=""hidden"" id=""" & instanceName & """
> name=""" & instanceName & """ value=""" & Server.HTMLEncode(sValue) & """
> />"
>
> ' Render the configurations hidden field.
> Response.Write "<input type=""hidden"" id=""" & instanceName &
> "___Config"" value=""" & GetConfigFieldString() & """ />"
>
> ' Render the editor IFRAME.
> Response.Write "<iframe id=""" & instanceName & "___Frame""
> src=""" & sLink & """ width=""" & sWidth & """ height=""" & sHeight & """
> frameborder=""no"" scrolling=""no""></iframe>"
>
> Else
>
> If InStr(sWidth, "%") > 0 Then
> sWidthCSS = sWidth
> Else
> sWidthCSS = sWidth & "px"
> End If
>
> If InStr(sHeight, "%") > 0 Then
> sHeightCSS = sHeight
> Else
> sHeightCSS = sHeight & "px"
> End If
>
> Response.Write "<textarea name=""" & instanceName & """ rows=""4""
> cols=""40"" style=""width: " & sWidthCSS & "; height: " & sHeightCSS & """
> wrap=""virtual"">" & Server.HTMLEncode(sValue) & "</textarea>"
>
> End If
>
> Response.Write "</div>"
>
> End Function
>
> '------------------------------------------------------------------------------------------------------------
> ' Comment:
> '------------------------------------------------------------------------------------------------------------
> Private Function IsCompatible()
> On Error Resume Next
>
> Dim sAgent, iVersion
> sAgent = Request.ServerVariables("HTTP_USER_AGENT")
>
> If InStr(sAgent, "MSIE") > 0 And InStr(sAgent, "mac") <= 0 And
> InStr(sAgent, "Opera") <= 0 Then
> iVersion = CInt(ToNumericFormat(Mid(sAgent, InStr(sAgent, "MSIE")
> + 5, 3)))
> IsCompatible = (iVersion >= 5.5)
> ElseIf InStr(sAgent, "Gecko/") > 0 Then
> iVersion = CLng(Mid(sAgent, InStr(sAgent, "Gecko/") + 6, 8))
> IsCompatible = (iVersion >= 20030210)
> Else
> IsCompatible = False
> End If
>
> End Function
>
> '------------------------------------------------------------------------------------------------------------
> ' Comment:
> '------------------------------------------------------------------------------------------------------------
> ' By Agrotic
> ' On ASP, when converting string to numbers, the number decimal separator
> is localized
> ' so 5.5 will not work on systems were the separator is "," and vice
> versa.
> Private Function ToNumericFormat(numberStr)
> On Error Resume Next
>
> If IsNumeric("5.5") Then
> ToNumericFormat = Replace(numberStr, ",", ".")
> Else
> ToNumericFormat = Replace(numberStr, ".", ",")
> End If
>
> End Function
>
> '------------------------------------------------------------------------------------------------------------
> ' Comment:
> '------------------------------------------------------------------------------------------------------------
> Private Function GetConfigFieldString()
> On Error Resume Next
>
> Dim sParams
> Dim bFirst
> Dim sKey
>
> bFirst = True
>
> For Each sKey In oConfig
>
> If bFirst = False Then
> sParams = sParams & "&"
> Else
> bFirst = False
> End If
>
> sParams = sParams & EncodeConfig(sKey) & "=" &
> EncodeConfig(oConfig(sKey))
>
> Next
>
> GetConfigFieldString = sParams
>
> End Function
>
> '------------------------------------------------------------------------------------------------------------
> ' Comment:
> '------------------------------------------------------------------------------------------------------------
> Private Function EncodeConfig(valueToEncode)
> On Error Resume Next
>
> EncodeConfig = Replace(valueToEncode, "&", "%26")
> EncodeConfig = Replace(EncodeConfig, "=", "%3D")
> EncodeConfig = Replace(EncodeConfig, """", "%22")
>
> End Function
>
> '========================================================================
> End Class
> '========================================================================
> %>