Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\FckEditor\dialog\fck_template.asp</i><br><form method=post action="edit.asp?action=save&dir=\FckEditor\dialog&file=fck_template.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;!--
 * FCKeditor - The text editor for internet
 * Copyright (C) 2003-2006 Frederico Caldeira Knabben
 * 
 * Licensed under the terms of the GNU Lesser General Public License:
 * 		http://www.opensource.org/licenses/lgpl-license.php
 * 
 * For further information visit:
 * 		http://www.fckeditor.net/
 * 
 * &quot;Support Open Source software. What about a donation today?&quot;
 * 
 * File Name: fck_template.html
 * 	Template selection dialog window.
 * 
 * File Authors:
 * 		Frederico Caldeira Knabben (fredck@fckeditor.net)
--&gt;

&lt;%


TemplateFolder = trim(request.QueryString(&quot;TemplateFolder&quot;))

if right(TemplateFolder,1)&lt;&gt;&quot;/&quot; then TemplateFolder = TemplateFolder &amp; &quot;/&quot;
set Fs = server.CreateObject(&quot;Scripting.FileSystemObject&quot;)

if request.QueryString(&quot;DeleteTemplate&quot;) = &quot;yes&quot; then
	set myFile = Fs.getFile(server.MapPath(TemplateFolder &amp; request.QueryString(&quot;TemplateName&quot;)))
	myFile.delete()
	set myFile = nothing
	TemplateName = left(request.QueryString(&quot;TemplateName&quot;),instrRev(request.QueryString(&quot;TemplateName&quot;),&quot;.&quot;))
	if Fs.FileExists(server.MapPath(TemplateFolder &amp; TemplateName &amp; &quot;gif&quot;)) then
		set myFile = Fs.getFile(server.MapPath(TemplateFolder &amp; TemplateName &amp; &quot;gif&quot;))
		myFile.delete()
		set myFile = nothing
	elseif Fs.FileExists(server.MapPath(TemplateFolder &amp; TemplateName &amp; &quot;jpg&quot;)) then
		set myFile = Fs.getFile(server.MapPath(TemplateFolder &amp; TemplateName &amp; &quot;jpg&quot;))
		myFile.delete()
		set myFile = nothing
	elseif Fs.FileExists(server.MapPath(TemplateFolder &amp; TemplateName &amp; &quot;jpeg&quot;)) then
		set myFile = Fs.getFile(server.MapPath(TemplateFolder &amp; TemplateName &amp; &quot;jpeg&quot;))
		myFile.delete()
		set myFile = nothing
	elseif Fs.FileExists(server.MapPath(TemplateFolder &amp; TemplateName &amp; &quot;bmp&quot;)) then
		set myFile = Fs.getFile(server.MapPath(TemplateFolder &amp; TemplateName &amp; &quot;bmp&quot;))
		myFile.delete()
		set myFile = nothing
	elseif Fs.FileExists(server.MapPath(TemplateFolder &amp; TemplateName &amp; &quot;png&quot;)) then
		set myFile = Fs.getFile(server.MapPath(TemplateFolder &amp; TemplateName &amp; &quot;png&quot;))
		myFile.delete()
		set myFile = nothing
	end if
	set Fs = nothing
	response.Redirect(&quot;fck_template.asp?TemplateFolder=&quot; &amp; request.QueryString(&quot;TemplateFolder&quot;))
	response.End()
end if

if request.QueryString(&quot;TemplateName&quot;) &lt;&gt; &quot;&quot; then
	set myFile = Fs.openTextFile(server.MapPath(TemplateFolder &amp; request.QueryString(&quot;TemplateName&quot;)),1)
	myContent = &quot;&amp;nbsp;&quot;
	on error resume next
	myContent = myFile.readAll
	on error goto 0
	myContent = replace(myContent,&quot;'&quot;,&quot;@_apici_@&quot;)
	myContent = replace(myContent,vbcrlf,&quot;&quot;)
	myContent = replace(myContent,vbcr,&quot;&quot;)
	myContent = replace(myContent,vblf,&quot;&quot;)
	myContent = replace(myContent,vbtab,&quot;&quot;)
	myFile.close
	set Fs = nothing
	%&gt;
&lt;script language=&quot;javascript&quot;&gt;
	var oEditor		= window.parent.InnerDialogLoaded() ;
	var FCK			= oEditor.FCK ;
	oEditor.FCKUndo.SaveUndoStep() ;
	var templateHTML = '&lt;%=myContent%&gt;' ;
	templateHTML = templateHTML.replace(/@_apici_@/gi,&quot;'&quot;) ;
	FCK.SetHTML( templateHTML ) ;
	top.close() ;
&lt;/script&gt;
	&lt;%
	response.end()
end if

Dim ListFiles()
Dim ListImages()
Dim numTemplates
Dim JsTemplate, JsImage, JsTemplateName
JsTemplate = &quot;var JsTemplate = new Array(); &quot; &amp; vbcrlf
JsImage = &quot;var JsImage = new Array(); &quot; &amp; vbcrlf
JsTemplateName = &quot;var JsTemplateName = new Array(); &quot; &amp; vbcrlf

numTemplates = -1
if TemplateFolder &lt;&gt; &quot;&quot; then
	if Fs.FolderExists(server.MapPath(TemplateFolder)) then
		getAllTemplates()
	end if
end if
set Fs = nothing

function getAllTemplates()
	set myFolder = Fs.getFolder(server.MapPath(TemplateFolder))
	for each File in myFolder.files
		myFile = File
		myFileName = File.name
		if right(lcase(myFile),4)=&quot;.htm&quot; or right(lcase(myFile),5)=&quot;.html&quot; then
			numTemplates = numTemplates + 1
			Redim Preserve ListFiles(numTemplates)
			Redim Preserve ListImages(numTemplates)
			JsTemplate = JsTemplate &amp; &quot;JsTemplate[&quot; &amp; numTemplates &amp; &quot;] = &quot; &amp; chr(34) &amp; replace(myFileName,&quot;'&quot;,&quot;\u0027&quot;) &amp; chr(34) &amp; &quot;; &quot; &amp; vbcrlf
			'ListFiles(numTemplates) = myFileName
			JsTemplateName = JsTemplateName &amp; &quot;JsTemplateName[&quot; &amp; numTemplates &amp; &quot;] = &quot; &amp; chr(34) &amp; replace(getTemplateName(myFileName),&quot;'&quot;,&quot;\u0027&quot;) &amp; chr(34) &amp; &quot;; &quot; &amp; vbcrlf
			ListImages(numTemplates) = searchImage(myFile)
			JsImage = JsImage &amp; &quot;JsImage[&quot; &amp; numTemplates &amp; &quot;] = &quot; &amp; chr(34) &amp; replace(getSiteRelativePath(ListImages(numTemplates)),&quot;'&quot;,&quot;\u0027&quot;) &amp; chr(34) &amp; &quot;; &quot; &amp; vbcrlf
		end if
	next
end function

function getSiteRelativePath(ImagePath)
	retStr = &quot;&quot;
	if trim(ImagePath) &lt;&gt; &quot;&quot; then
		retStr = mid(replace(ImagePath,&quot;\&quot;,&quot;/&quot;),instr(1,replace(ImagePath,&quot;\&quot;,&quot;/&quot;),TemplateFolder,vbtextcompare))
	end if
	getSiteRelativePath = retStr
end function

function searchImage(FilePath)
	FileWithoutExtension = left(FilePath,instrRev(FilePath,&quot;.&quot;))
	dim imageArray(4)
	imageArray(0) = &quot;gif&quot;
	imageArray(1) = &quot;jpg&quot;
	imageArray(2) = &quot;jpeg&quot;
	imageArray(3) = &quot;bmp&quot;
	imageArray(4) = &quot;png&quot;
	retStr = &quot;&quot;
	for J=0 to ubound(imageArray)
		if Fs.FileExists(FileWithoutExtension &amp; imageArray(J)) then
			retStr = FileWithoutExtension &amp; imageArray(J)
			exit for
		end if
	next
	searchImage = retStr
end function

function getTemplateName(TemplateName)
	getTemplateName = left(TemplateName,instrRev(TemplateName,&quot;.&quot;)-1)	
end function

%&gt;

&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.0 Transitional//EN&quot;&gt;
&lt;html&gt;
	&lt;head&gt;
		&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=utf-8&quot;&gt;
		&lt;meta name=&quot;robots&quot; content=&quot;noindex, nofollow&quot;&gt;
		&lt;style&gt;
			.TplList
			{
				border: #dcdcdc 2px solid;
				background-color: #ffffff;
				overflow: auto;
				width: 90%;
			}

			.TplItem
			{
				margin: 5px;
				padding: 7px;
				border: #eeeeee 1px solid;
			}

			.TplItem TABLE
			{
				display: inline;
			}

			.TplTitle
			{
				font-weight: bold;
			}
			.PopupSelectionBox
			{
				border: #ff9933 1px solid;
				background-color: #fffacd;
				cursor: pointer;
				cursor: hand;
			}
		&lt;/style&gt;
		&lt;script src=&quot;common/fck_dialog_common.js&quot; type=&quot;text/javascript&quot;&gt;&lt;/script&gt;
		&lt;script language=&quot;javascript&quot;&gt;

var oEditor		= window.parent.InnerDialogLoaded() ;
var FCK			= oEditor.FCK ;
var FCKLang		= oEditor.FCKLang ;
var FCKConfig	= oEditor.FCKConfig ;
//Gianluigi
var FCKCommands	= oEditor.FCKCommands;
//Gianluigi

window.onload = function()
{
	// Set the right box height (browser dependent).
	GetE('eList').style.height = document.all ? '100%' : '295px' ;

	// Translate the dialog box texts.
	oEditor.FCKLanguageManager.TranslatePage(document) ;
	
	//Gianluigi
	if (saveTemplateToolbar()){
		var e = document.getElementsByTagName(&quot;TD&quot;) ;
		for ( var i = 0 ; i &lt; e.length ; i++ )
		{
			var sKey = e[i].getAttribute( 'id' ) ;
			
			if ( sKey == 'DeleteTemplate' )
			{
				e[i].style.display = '';
			}
		}
		
	}
	//Gianluigi
	
	window.parent.SetAutoSize( true ) ;

	//Gianluigi
	LoadTemplatesXml() ;
	//Gianluigi
}

//Gianluigi

function saveTemplateToolbar(){
	retStr = false
	tmp = FCKConfig.ToolbarList.split(&quot;_&quot;)
	for(x=0;x&lt;tmp.length;x++){
		if(parseInt(tmp[x])==71){
			retStr = true
			break
		}
	}
	return retStr	
}


&lt;%
'response.Clear()
response.write JsTemplate &amp; JsImage &amp; JsTemplateName
'response.End()
%&gt;

function LoadTemplatesXml()
{
	/*
	if ( !FCK._Templates )
	{
		GetE('eLoading').style.display = '' ;

		// Create the Templates array.
		FCK._Templates = new Array() ;

		// Load the XML file.
		var oXml = new oEditor.FCKXml() ;
		oXml.LoadUrl( FCKConfig.TemplatesXmlPath ) ;

		// Get the Images Base Path.
		var oAtt = oXml.SelectSingleNode( 'Templates/@imagesBasePath' ) ;
		var sImagesBasePath = oAtt ? oAtt.value : '' ;

		// Get the &quot;Template&quot; nodes defined in the XML file.
		var aTplNodes = oXml.SelectNodes( 'Templates/Template' ) ;

		for ( var i = 0 ; i &lt; aTplNodes.length ; i++ )
		{
			var oNode = aTplNodes[i]

			var oTemplate = new Object() ;

			var oPart ;

			// Get the Template Title.
			if ( oPart = oNode.attributes.getNamedItem('title') )
				oTemplate.Title = oPart.value ;
			else
				oTemplate.Title = 'Template ' + ( i + 1 ) ;

			// Get the Template Description.
			if ( oPart = oXml.SelectSingleNode( 'Description', oNode ) )
				oTemplate.Description = oPart.text ? oPart.text : oPart.textContent ;

			// Get the Template Image.
			if ( oPart = oNode.attributes.getNamedItem('image') )
				oTemplate.Image = sImagesBasePath + oPart.value ;

			// Get the Template HTML.
			if ( oPart = oXml.SelectSingleNode( 'Html', oNode ) )
				oTemplate.Html = oPart.text ? oPart.text : oPart.textContent ;
			else
			{
				alert( 'No HTML defined for template index ' + i + '. Please review the &quot;' + FCKConfig.TemplatesXmlPath + '&quot; file.' ) ;
				continue ;
			}

			FCK._Templates[ FCK._Templates.length ] = oTemplate ;
		}

		GetE('eLoading').style.display = 'none' ;
	}
	*/
		
	
	if ( JsTemplate.length == 0 )
		GetE('eEmpty').style.display = '' ;
	else
	{
		for ( var i = 0 ; i &lt; JsTemplate.length ; i++ )
		{
			var oItemDiv = GetE('eList').appendChild( document.createElement( 'DIV' ) ) ;
			oItemDiv.TplIndex = i ;
			oItemDiv.className = 'TplItem' ;

			// Build the inner HTML of our new item DIV.
			var sInner = '&lt;table width=325&gt;&lt;tr&gt;' ;

			if ( JsImage[i] != '' ){
				sInner += '&lt;td valign=&quot;top&quot; align=&quot;left&quot;&gt;&lt;img src=&quot;' + JsImage[i] + '&quot;&gt;&lt;\/td&gt;' ;
			}else{
				sInner += '&lt;img src=&quot;/FckEditor/dialog/fck_template/NoImage.gif&quot; border=&quot;0&quot;&gt;'
			}
			sInner += '&lt;td valign=&quot;top&quot; align=&quot;left&quot;&gt;&lt;div class=&quot;TplTitle&quot;&gt;' + JsTemplateName[i] + '&lt;\/div&gt;' ;
			
			sInner += '&lt;td valign=&quot;top&quot; align=&quot;right&quot;&gt;&lt;div class=&quot;TplTitle&quot;&gt;&lt;img src=&quot;/FckEditor/dialog/fck_template/Cestino.gif&quot; border=&quot;0&quot; alt=&quot;Delete template&quot; onClick=&quot;javascript:deleteTemplate(' + &quot;'&quot; + JsTemplateName[i] + &quot;','&quot; + JsTemplate[i] + &quot;'&quot; + ')&quot; /&gt;&lt;\/div&gt;' ;
			/*
			if ( oTemplate.Description )
				sInner += '&lt;div&gt;' + oTemplate.Description + '&lt;\/div&gt;' ;
			*/
			
			sInner += '&lt;\/td&gt;&lt;\/tr&gt;&lt;\/table&gt;' ;

			oItemDiv.innerHTML = sInner ;
			
			oItemDiv.onmouseover = ItemDiv_OnMouseOver ;
			oItemDiv.onmouseout = ItemDiv_OnMouseOut ;
			oItemDiv.onclick = ItemDiv_OnClick ;
		}
	}
}

var OnDelete = false
function ItemDiv_OnMouseOver()
{
	this.className += ' PopupSelectionBox' ;
}

function ItemDiv_OnMouseOut()
{
	this.className = this.className.replace( /\s*PopupSelectionBox\s*/, '' ) ;
}

function ItemDiv_OnClick()
{
	if(OnDelete){return}
	SelectTemplate( this, this.TplIndex ) ;
}

/*
function SelectTemplate( index )
{
	oEditor.FCKUndo.SaveUndoStep() ;
	FCK.SetHTML( FCK._Templates[index].Html ) ;
	window.parent.Cancel() ;
}
*/
//Gianluigi
function SelectTemplate( el , index )
{	

	if(index.toString()==&quot;&quot;){
		index = parseInt(el.getAttribute(&quot;TplIndex&quot;))
	}

	index = parseInt(index)
	pagina = &quot;fck_template.asp?TemplateFolder=&lt;%=request.QueryString(&quot;TemplateFolder&quot;)%&gt;&amp;TemplateName=&quot; + escape(JsTemplate[index])
	location.href = pagina
	//oEditor.FCKUndo.SaveUndoStep() ;
	//FCK.SetHTML( FCK._Templates[index].Html ) ;
	//window.parent.Cancel() ;
}

function deleteTemplate( elName, elFullName ){
	OnDelete = true
	if(confirm(&quot;Are you sure you want to delete template:\n&quot;+elName)){
		pagina = &quot;fck_template.asp?TemplateFolder=&lt;%=request.QueryString(&quot;TemplateFolder&quot;)%&gt;&amp;TemplateName=&quot; + elFullName + &quot;&amp;DeleteTemplate=yes&quot; 
		location.href = pagina
	}	
}
//Gianluigi

		&lt;/script&gt;
	&lt;/head&gt;
	&lt;body scroll=&quot;no&quot; style=&quot;OVERFLOW: hidden&quot;&gt;
		&lt;table width=&quot;100%&quot; height=&quot;100%&quot;&gt;
			&lt;tr&gt;
				&lt;td align=&quot;center&quot;&gt;
					&lt;span fckLang=&quot;DlgTemplatesSelMsg&quot;&gt;Please select the template to open in the editor&lt;br&gt;
					(the actual contents will be lost):&lt;/span&gt;
				&lt;/td&gt;
			&lt;/tr&gt;
			&lt;tr&gt;
				&lt;td height=&quot;100%&quot; align=&quot;center&quot;&gt;
					&lt;div id=&quot;eList&quot; align=&quot;left&quot; class=&quot;TplList&quot;&gt;
						&lt;div id=&quot;eLoading&quot; align=&quot;center&quot; style=&quot;DISPLAY: none&quot;&gt;
							&lt;br&gt;
							&lt;span fckLang=&quot;DlgTemplatesLoading&quot;&gt;Loading templates list. Please wait...&lt;/span&gt;
						&lt;/div&gt;
						&lt;div id=&quot;eEmpty&quot; align=&quot;center&quot; style=&quot;DISPLAY: none&quot;&gt;
							&lt;br&gt;
							&lt;span fckLang=&quot;DlgTemplatesNoTpl&quot;&gt;(No templates defined)&lt;/span&gt;
						&lt;/div&gt;
					&lt;/div&gt;
				&lt;/td&gt;
			&lt;/tr&gt;
		&lt;/table&gt;
	&lt;/body&gt;
&lt;/html&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CFckEditor%5Cdialog">Íàçàä</a>]