Gecko [ v3.cesa.co.za ]

Name	Size	Permission	Date
_samples	[ DIR ]	drwxr-sr-x	2014-07-04 12:12
_testcases	[ DIR ]	drwxr-sr-x	2014-07-04 12:12
editor	[ DIR ]	drwxr-sr-x	2014-07-04 12:11
_documentation.html	1.21 KB	-rw-r--r--	2014-07-04 12:11
_upgrade.html	1.24 KB	-rw-r--r--	2014-07-04 12:12
_whatsnew.html	198.99 KB	-rw-r--r--	2014-07-04 12:12
fckconfig.js	10.06 KB	-rw-r--r--	2014-07-04 12:11
fckeditor.afp	4.06 KB	-rw-r--r--	2014-07-04 12:11
fckeditor.asp	4.94 KB	-rw-r--r--	2014-07-04 12:11
fckeditor.cfc	7.7 KB	-rw-r--r--	2014-07-04 12:11
fckeditor.cfm	6.48 KB	-rw-r--r--	2014-07-04 12:11
fckeditor.js	6.85 KB	-rw-r--r--	2014-07-04 12:11
fckeditor.lasso	3.55 KB	-rw-r--r--	2014-07-04 12:11
fckeditor.php	1.02 KB	-rw-r--r--	2014-07-04 12:11
fckeditor.pl	3.22 KB	-rw-r--r--	2014-07-04 12:11
fckeditor.py	4.02 KB	-rw-r--r--	2014-07-04 12:11
fckeditor_php4.php	4.08 KB	-rw-r--r--	2014-07-04 12:11
fckeditor_php5.php	4.13 KB	-rw-r--r--	2014-07-04 12:11
fckstyles.xml	1.81 KB	-rw-r--r--	2014-07-04 12:11
fcktemplates.xml	2.9 KB	-rw-r--r--	2014-07-04 12:11
htaccess.txt	1.47 KB	-rw-r--r--	2014-07-04 12:11
license.txt	64.91 KB	-rw-r--r--	2014-07-04 12:11

Rename

<%
Class FCKeditor

private sBasePath
	private sInstanceName
	private sWidth
	private sHeight
	private sToolbarSet
	private sValue

private oConfig

Private Sub Class_Initialize()
		sBasePath		= "/fckeditor/"
		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 )

Response.Write "<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.
			Response.Write "<input type=""hidden"" id=""" & instanceName & """ name=""" & instanceName & """ value=""" & Server.HTMLEncode( sValue ) & """ style=""display:none"" />"

' Render the configurations hidden field.
			Response.Write "<input type=""hidden"" id=""" & instanceName & "___Config"" value=""" & GetConfigFieldString() & """ style=""display:none"" />"

' Render the editor IFRAME.
			Response.Write "<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

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

End If

Response.Write "</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) )

GetConfigFieldString = sParams

End Function
	
	Private Function EncodeConfig( valueToEncode )
		EncodeConfig = Replace( valueToEncode, "&", "%26" )
		EncodeConfig = Replace( EncodeConfig , "=", "%3D" )
		EncodeConfig = Replace( EncodeConfig , """", "%22" )
	End Function

End Class
%>