Управление сайтом

Файловый менеджер

Имя файла	fckeditor.afp
Содержимое	<% * FCKeditor - The text editor for Internet - http://www.fckeditor.net * Copyright (C) 2003-2010 Frederico Caldeira Knabben * * == BEGIN LICENSE == * * Licensed under the terms of any of the following licenses at your * choice: * * - GNU General Public License Version 2 or later (the "GPL") * http://www.gnu.org/licenses/gpl.html * * - GNU Lesser General Public License Version 2.1 or later (the "LGPL") * http://www.gnu.org/licenses/lgpl.html * * - Mozilla Public License Version 1.1 or later (the "MPL") * http://www.mozilla.org/MPL/MPL-1.1.html * * == END LICENSE == * * This is the integration file for Active FoxPro Pages. * DEFINE CLASS goFckeditor AS CONTAINER OLEPUBLIC cInstanceName ="" BasePath ="" cWIDTH ="" cHEIGHT ="" ToolbarSet ="" cValue="" DIMENSION aConfig(10,2) && ----------------------------------------------------------------------- FUNCTION fckeditor( tcInstanceName ) LOCAL lnLoop,lnLoop2 THIS.cInstanceName = tcInstanceName THIS.BasePath = '/fckeditor/' THIS.cWIDTH = '100%' THIS.cHEIGHT = '200' THIS.ToolbarSet = 'Default' THIS.cValue = '' FOR lnLoop=1 TO 10 FOR lnLoop2=1 TO 2 THIS.aConfig(lnLoop,lnLoop2) = "" NEXT NEXT RETURN ENDFUNC && ----------------------------------------------------------------------- FUNCTION CREATE() ? THIS.CreateHtml() RETURN ENDFUNC && ----------------------------------------------------------------------- FUNCTION CreateHtml() LOCAL html LOCAL lcLink HtmlValue = THIS.cValue && HTMLSPECIALCHARS() html = [] IF THIS.IsCompatible() lcLink = THIS.BasePath+[editor/fckeditor.html?InstanceName=]+THIS.cInstanceName IF ( !THIS.ToolbarSet == '' ) lcLink = lcLink + [&Toolbar=]+THIS.ToolbarSet ENDIF && Render the LINKED HIDDEN FIELD. html = html + [<input type="hidden" id="]+THIS.cInstanceName +[" name="]+THIS.cInstanceName +[" value="]+HtmlValue+[" style="display:none" />] && Render the configurations HIDDEN FIELD. html = html + [<input type="hidden" id="]+THIS.cInstanceName +[___Config" value="]+THIS.GetConfigFieldString() + [" style="display:none" />] +CHR(13)+CHR(10) && Render the EDITOR IFRAME. html = html + [<iframe id="]+THIS.cInstanceName +[___Frame" src="Link" width="]+THIS.cWIDTH+[" height="]+THIS.cHEIGHT+[" frameborder="0" scrolling="no"></iframe>] ELSE IF ( AT("%", THIS.cWIDTH)=0 ) WidthCSS = THIS.cWIDTH + 'px' ELSE WidthCSS = THIS.cWIDTH ENDIF IF ( AT("%",THIS.cHEIGHT)=0 ) HeightCSS = THIS.cHEIGHT + 'px' ELSE HeightCSS = THIS.cHEIGHT ENDIF html = html + [<textarea name="]+THIS.cInstanceName +[" rows="4" cols="40" style="width: ]+WidthCSS+[ height: ]+HeightCSS+[">]+HtmlValue+[</textarea>] ENDIF RETURN (html) ENDFUNC && ----------------------------------------------------------------------- FUNCTION IsCompatible() LOCAL llRetval LOCAL sAgent llRetval=.F. SET POINT TO "." sAgent = LOWER(ALLTRIM(request.servervariables("HTTP_USER_AGENT"))) IF AT("msie",sAgent) >0 .AND. AT("mac",sAgent)=0 .AND. AT("opera",sAgent)=0 iVersion=VAL(SUBSTR(sAgent,AT("msie",sAgent)+5,3)) llRetval= iVersion > 5.5 ELSE IF AT("gecko/",sAgent)>0 iVersion=VAL(SUBSTR(sAgent,AT("gecko/",sAgent)+6,8)) llRetval =iVersion > 20030210 ENDIF ELSE IF AT("opera/",sAgent)>0 iVersion=VAL(SUBSTR(sAgent,AT("opera/",sAgent)+6,4)) llRetval =iVersion >= 9.5 ENDIF ELSE IF AT("applewebkit/",sAgent)>0 iVersion=VAL(SUBSTR(sAgent,AT("applewebkit/",sAgent)+12,3)) llRetval =iVersion >= 522 ENDIF ENDIF SET POINT TO RETURN (llRetval) ENDFUNC && ----------------------------------------------------------------------- FUNCTION GetConfigFieldString() LOCAL sParams LOCAL bFirst LOCAL sKey sParams = "" bFirst = .T. FOR lnLoop=1 TO 10 && ALEN(this.aconfig) IF !EMPTY(THIS.aConfig(lnLoop,1)) IF bFirst = .F. sParams = sParams + "&" ELSE bFirst = .F. ENDIF sParams = sParams +THIS.aConfig(lnLoop,1)+[=]+THIS.aConfig(lnLoop,2) ELSE EXIT ENDIF NEXT RETURN(sParams) ENDFUNC ENDDEFINE %>

/admin/fckeditor/

Имя	Дата	Размер
..	2026-10-02
_samples	2013-04-27
editor	2013-04-27
_documentation.html	2010-02-15	1 кб.
_upgrade.html	2010-02-15	1 кб.
_whatsnew.html	2012-08-02	1 кб.
_whatsnew_history.html	2012-08-02	308 кб.
fckconfig.js	2017-09-04	14 кб.
fckeditor.afp	2010-02-15	4 кб.
fckeditor.asp	2010-02-15	6 кб.
fckeditor.cfc	2010-02-15	9 кб.
fckeditor.cfm	2010-02-15	7 кб.
fckeditor.js	2012-08-02	9 кб.
fckeditor.lasso	2010-02-15	4 кб.
fckeditor.php	2010-02-15	994 байт
fckeditor.pl	2010-02-15	3 кб.
fckeditor.py	2010-02-15	4 кб.
fckeditor_php4.php	2010-02-15	6 кб.
fckeditor_php5.php	2010-02-15	6 кб.
fckpackager.xml	2010-02-15	13 кб.
fckstyles.xml	2010-02-15	3 кб.
fcktemplates.xml	2010-02-15	3 кб.
fckutils.cfm	2010-02-15	2 кб.
license.txt	2010-02-15	66 кб.

/admin/fckeditor