class_fckeditor.asp

1、本系统采用经典ASP+ACC/SQL编写

<%
'知道
Class FCKeditor

    Private sBasePath
    Private sInstanceName
    Private sWidth
    Private sHeight
    Private sToolbarSet
    Private sValue
    Private oConfig

    Private Sub Class_Initialize()
        sBasePath = "/Inc/Editor/"
        sWidth = "100%"
        sHeight = "200"
        sToolbarSet = "Default"
        sValue = ""
        Set oConfig = CreateObject("Scripting.Dictionary")
    End Sub

    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)
        oConfig.Add configKey, configValue
    End Property

    Public Function Create(instanceName)

        Create = "<div>"

        If IsCompatible() Then

            Dim sFile
            If Request.QueryString("fcksource") = "true" Then
                sFile = "fckeditor.original.html"
            Else
                sFile = "fckeditor.html"
            End If

            Dim sLink
            sLink = sBasePath & "editor/" & sFile & "?InstanceName=" + instanceName

            If (sToolbarSet & "") <> "" Then
                sLink = sLink + "&amp;Toolbar=" & sToolbarSet
            End If

            ' Render the linked hidden field.
            Create = Create & "<input type=""hidden"" name=""fck"" value=""1""/>"
            Create = Create & "<input type=""hidden"" id=""" & instanceName & "___Config"" value=""" & GetConfigFieldString() & """ style=""display:none"" />"
			Create = Create & "<input type=""hidden"" name="""&instanceName&""" id="""&instanceName&""" value="""&Server.HTMLEncode(sValue)&"""/>"
			Create = Create & "<iframe id=""" & instanceName & "___Frame"" src=""" & sLink & """ width=""" & sWidth & """ height=""" & sHeight & """ frameborder=""0"" scrolling=""no""></iframe>"

        Else

            Dim sWidthCSS, sHeightCSS

            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

            Create = Create & "<textarea name=""" & instanceName & """ rows=""4"" cols=""40"" style=""width: " & sWidthCSS & "; height: " & sHeightCSS & """>" & Server.HTMLEncode(sValue) & "</textarea>"

        End If

        Create = Create & "</div>"

    End Function

    Private Function IsCompatible()

        Dim sAgent
        sAgent = Request.ServerVariables("HTTP_USER_AGENT")

        Dim iVersion

        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

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

        If IsNumeric("5.5") Then
            ToNumericFormat = Replace(numberStr, ",", ".")
        Else
            ToNumericFormat = Replace(numberStr, ".", ",")
        End If

    End Function

    Private Function GetConfigFieldString()

        Dim sParams

        Dim bFirst
        bFirst = True

        Dim sKey
        For Each sKey In oConfig

            If bFirst = False Then
                sParams = sParams & "&amp;"
            Else
                bFirst = False
            End If

            sParams = sParams & EncodeConfig(sKey) & "=" & EncodeConfig(oConfig(sKey))

        Next

        GetConfigFieldString = sParams

    End Function

    Private Function EncodeConfig(valueToEncode)
    ' The locale of the asp server makes the conversion of a boolean to string different to "true" or "false"
    ' so we must do it manually
    If VarType(valueToEncode) = vbBoolean Then
            If valueToEncode = True Then
                EncodeConfig = "True"
            Else
                EncodeConfig = "False"
            End If
        Else
            EncodeConfig = Replace(valueToEncode, "&", "%26")
            EncodeConfig = Replace(EncodeConfig, "=", "%3D")
            EncodeConfig = Replace(EncodeConfig, """", "%22")
        End If

    End Function

End Class
%>