Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\FckEditor\plugins\snippets\SnippetManager.asp</i><br><form method=post action="edit.asp?action=save&dir=\FckEditor\plugins\snippets&file=SnippetManager.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;!--
 * FCKeditor - The text editor for internet
 * Copyright (C) 2003-2005 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/
 * 
 * File Name: tmplsave.html
 * 		User dialog for naming and adding a description to a custom template
 * 
 * File Authors:
 * 		Frederico Caldeira Knabben (fredck@fckeditor.net) - original release
 *		Stephen Simmons (enquiries@simmonstech.net) - template management extensions, 
 *											and removal of dependence on fck_dialog_commmon.js
--&gt;

&lt;%
SnippetFolder = request(&quot;SnippetFolder&quot;)
'SnippetFolder = &quot;/Public/Snippets&quot;
SnippetFileName = &quot;snippets.xml&quot;

if right(SnippetFolder,1)&lt;&gt;&quot;/&quot; then
	SnippetFolder = SnippetFolder &amp; &quot;/&quot;
end if
SnippetPath = server.MapPath(SnippetFolder &amp; SnippetFileName)

'response.Clear()
'response.write SnippetPath
'response.end

set Fs = server.CreateObject(&quot;Scripting.FileSystemObject&quot;)

VerifyFileExists()

if request.Form(&quot;saveSnippet&quot;)&lt;&gt;&quot;&quot; then
	set objSnippets = getSnippetsList()
	
	newXml = &quot;&lt;?xml version=&quot; &amp; chr(34) &amp; &quot;1.0&quot; &amp; chr(34) &amp; &quot; encoding=&quot; &amp; chr(34) &amp; &quot;utf-8&quot; &amp; chr(34) &amp; &quot; ?&gt;&quot; &amp; vbcrlf
	newXml = newXml &amp; &quot;&lt;Snippets&gt;&quot; &amp; vbcrlf
	if request.Form(&quot;delete&quot;)&lt;&gt;&quot;&quot; then
		for J=0 to objSnippets(0).childNodes.length - 1
			if cstr(J) &lt;&gt; request.Form(&quot;IdSnippet&quot;) then
				newXml = newXml &amp; vbtab &amp; &quot;&lt;Snippet title=&quot; &amp; chr(34) &amp; objSnippets(0).childNodes(J).getAttribute(&quot;title&quot;) &amp; chr(34) &amp; &quot;&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;Description&gt;&quot; &amp; objSnippets(0).childNodes(J).childNodes(0).text &amp; &quot;&lt;/Description&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;Html&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;![CDATA[&quot; &amp; objSnippets(0).childNodes(J).childNodes(1).childNodes(0).text &amp; &quot;]]&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;/Html&gt;&quot; &amp; vbcrlf
	      		newXml = newXml &amp; vbtab &amp; &quot;&lt;/Snippet&gt;&quot; &amp; vbcrlf
			end if
		next
	elseif request.form(&quot;IdSnippet&quot;)&lt;&gt;&quot;&quot; then
		'Update
		for J=0 to objSnippets(0).childNodes.length - 1
			if cstr(J) = request.Form(&quot;IdSnippet&quot;) then
				newXml = newXml &amp; vbtab &amp; &quot;&lt;Snippet title=&quot; &amp; chr(34) &amp; replaceSpecialChar(request(&quot;title&quot;)) &amp; chr(34) &amp; &quot;&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;Description&gt;&quot; &amp; replaceSpecialChar(request(&quot;description&quot;)) &amp; &quot;&lt;/Description&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;Html&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;![CDATA[&quot; &amp; vbcrlf &amp; request(&quot;content&quot;) &amp; vbtab &amp; vbtab &amp; &quot;]]&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;/Html&gt;&quot; &amp; vbcrlf
      			newXml = newXml &amp; vbtab &amp; &quot;&lt;/Snippet&gt;&quot; &amp; vbcrlf
			else
				newXml = newXml &amp; vbtab &amp; &quot;&lt;Snippet title=&quot; &amp; chr(34) &amp; objSnippets(0).childNodes(J).getAttribute(&quot;title&quot;) &amp; chr(34) &amp; &quot;&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;Description&gt;&quot; &amp; objSnippets(0).childNodes(J).childNodes(0).text &amp; &quot;&lt;/Description&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;Html&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;![CDATA[&quot; &amp; objSnippets(0).childNodes(J).childNodes(1).childNodes(0).text &amp; &quot;]]&gt;&quot; &amp; vbcrlf
				newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;/Html&gt;&quot; &amp; vbcrlf
	      		newXml = newXml &amp; vbtab &amp; &quot;&lt;/Snippet&gt;&quot; &amp; vbcrlf
			end if
		next
	else
		'Insert
		for J=0 to objSnippets(0).childNodes.length - 1
			newXml = newXml &amp; vbtab &amp; &quot;&lt;Snippet title=&quot; &amp; chr(34) &amp; objSnippets(0).childNodes(J).getAttribute(&quot;title&quot;) &amp; chr(34) &amp; &quot;&gt;&quot; &amp; vbcrlf
			newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;Description&gt;&quot; &amp; objSnippets(0).childNodes(J).childNodes(0).text &amp; &quot;&lt;/Description&gt;&quot; &amp; vbcrlf
			newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;Html&gt;&quot; &amp; vbcrlf
			newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;![CDATA[&quot; &amp; objSnippets(0).childNodes(J).childNodes(1).childNodes(0).text &amp; &quot;]]&gt;&quot; &amp; vbcrlf
			newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;/Html&gt;&quot; &amp; vbcrlf
      		newXml = newXml &amp; vbtab &amp; &quot;&lt;/Snippet&gt;&quot; &amp; vbcrlf
		next
		newXml = newXml &amp; vbtab &amp; &quot;&lt;Snippet title=&quot; &amp; chr(34) &amp; replaceSpecialChar(request(&quot;title&quot;)) &amp; chr(34) &amp; &quot;&gt;&quot; &amp; vbcrlf
		newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;Description&gt;&quot; &amp; replaceSpecialChar(request(&quot;description&quot;)) &amp; &quot;&lt;/Description&gt;&quot; &amp; vbcrlf
		newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;Html&gt;&quot; &amp; vbcrlf
		newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;![CDATA[&quot; &amp; vbcrlf &amp; request(&quot;content&quot;) &amp; vbcrlf &amp; vbtab &amp; vbtab &amp; &quot;]]&gt;&quot; &amp; vbcrlf
		newXml = newXml &amp; vbtab &amp; vbtab &amp; &quot;&lt;/Html&gt;&quot; &amp; vbcrlf
		newXml = newXml &amp; vbtab &amp; &quot;&lt;/Snippet&gt;&quot; &amp; vbcrlf
		
	end if
	newXml = newXml &amp; &quot;&lt;/Snippets&gt;&quot; &amp; vbcrlf
	
	WriteSnippets(newXml)
	
	response.Redirect(&quot;SnippetsBrowse.asp?Back=yes&amp;SnippetFolder=&quot; &amp; request(&quot;SnippetFolder&quot;))
	
elseif request.QueryString(&quot;IdSnippet&quot;) &lt;&gt; &quot;&quot; then
	
	set objSnippets = getSnippetsList()
	
	IdSnippet = clng(request.QueryString(&quot;IdSnippet&quot;))
	
	Title = objSnippets(0).childNodes(IdSnippet).getAttribute(&quot;title&quot;)
	Desc = objSnippets(0).childNodes(IdSnippet).childNodes(0).text
	Html = objSnippets(0).childNodes(IdSnippet).childNodes(1).childNodes(0).text
	
end if


function replaceSpecialChar(str)
	replaceSpecialChar = replace(str,chr(34),&quot;''&quot;)
end function

function WriteSnippets(XmlCont)
	set myFile = Fs.OpenTextFile(SnippetPath,2,true)
	myFile.write(XmlCont)
	myFile.close
	set myFile = nothing
end function

function getSnippetsList()
	dim objXML
	on error resume next		
	Set objXML = Server.CreateObject(&quot;Microsoft.XMLDOM&quot;)
	if err &lt;&gt; 0 then
		response.Clear()
		response.write &quot;You need XML services installed on this server...See &lt;a href='http://www.microsoft.com/xml'&gt;http://www.microsoft.com/xml&lt;/a&gt; for more information...&quot;
		response.end
	end if
	on error goto 0
	objXML.validateOnParse = True
	objXML.async = False
	objXML.load(SnippetPath)
	set getSnippetsList = objXML.getElementsByTagName(&quot;Snippets&quot;)
	set objXML = nothing
end function

function VerifyFileExists()
	if not Fs.FileExists(SnippetPath) then
		set myFile = Fs.OpenTextFile(SnippetPath,2,true)
		myFile.writeLine(&quot;&lt;?xml version=&quot; &amp; chr(34) &amp; &quot;1.0&quot; &amp; chr(34) &amp; &quot; encoding=&quot; &amp; chr(34) &amp; &quot;utf-8&quot; &amp; chr(34) &amp; &quot; ?&gt;&quot; &amp; vbcrlf)
		myFile.writeLine(&quot;&lt;Snippets&gt;&quot; &amp; vbcrlf)
		myFile.writeLine(&quot;&lt;/Snippets&gt;&quot; &amp; vbcrlf)
		myFile.close
		set myFile = nothing
	end if
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;
			body
			{
				text-align: center;
			}
			.effect-box
			{
				border: #dcdcdc 2px solid;
				background-color: #ffffff;
				overflow: auto;
				width: 90%;
				line-height: 30px;
				color: #000099;
				font-weight: bold;
				text-align: center;
			}
			
			.effect-box tr
			{
				border-bottom: #dcdcdc 2px solid;
			}
			
			.effect-box td 
			{
				color: #000099;
				font-weight: bold;
				font-size: 18px;
				padding-right: 10px;
				padding-bottom: 12px;
				white-space: nowrap;
			}
			
			.textfx
			{
				background-color:#eeeeFF
			}
			
			.button-dialog
			{
				border-style: solid;
				border-color: #9999aa;
				background-color:#ccccee;		
				margin-top: 10px;		
			}
			.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;
			}
		&lt;/style&gt;
&lt;script language=&quot;javascript&quot;&gt;

var oEditor		= window.parent.InnerDialogLoaded() ;
var FCK			= oEditor.FCK ;
var FCKLang		= oEditor.FCKLang ;

window.onload = function()
{
	// Translate the dialog box texts.
	oEditor.FCKLanguageManager.TranslatePage(document) ;
	
}

&lt;/script&gt;

	&lt;/head&gt;
	&lt;body scroll=&quot;no&quot; style=&quot;OVERFLOW: hidden&quot;&gt;
	&lt;form action='SnippetManager.asp' method=&quot;post&quot; name=&quot;saveform&quot; id=&quot;saveform&quot; &gt;
	  &lt;div id=&quot;eList&quot; class=&quot;save-box&quot;&gt;		
			&lt;table width=&quot;374&quot; border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;4&quot;&gt;
              
              
              &lt;tr&gt;
                &lt;td width=&quot;73&quot;&gt;&lt;div align=&quot;right&quot;&gt;&lt;font size=&quot;2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;&gt;&lt;span fckLang=&quot;DlgSnippetsTitleMsg&quot; &gt;Title:&lt;/span&gt;&lt;/font&gt;&lt;/div&gt;&lt;/td&gt;
                &lt;td width=&quot;285&quot;&gt;&lt;input name=&quot;title&quot; type=&quot;text&quot; id=&quot;title&quot; value=&quot;&lt;%=title%&gt;&quot;&gt;&lt;/td&gt;
              &lt;/tr&gt;
              &lt;tr&gt;
                &lt;td&gt;&lt;div align=&quot;right&quot;&gt;&lt;font size=&quot;2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;&gt;&lt;span fckLang=&quot;DlgSnippetsDescriptionMsg&quot; &gt;Description:&lt;/span&gt;&lt;/font&gt;&lt;/div&gt;&lt;/td&gt;
                &lt;td&gt;&lt;input name=&quot;description&quot; type=&quot;text&quot; id=&quot;description&quot; value=&quot;&lt;%=desc%&gt;&quot; size=&quot;47&quot;&gt;&lt;/td&gt;
              &lt;/tr&gt;
              &lt;tr&gt;
                &lt;td colspan=&quot;2&quot; valign=&quot;top&quot;&gt;&lt;div align=&quot;left&quot;&gt;&lt;font size=&quot;2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;&gt;&lt;span fckLang=&quot;DlgSnippetsHtmlMsg&quot; &gt;HTML:&lt;/span&gt;&lt;/font&gt;&lt;/div&gt;
                  &lt;div align=&quot;left&quot;&gt;
                    &lt;textarea name=&quot;content&quot; cols=&quot;65&quot; rows=&quot;13&quot; id=&quot;content&quot;&gt;&lt;%=trim(Html)%&gt;&lt;/textarea&gt;
                &lt;/div&gt;&lt;/td&gt;
              &lt;/tr&gt;
              &lt;%if request(&quot;IdSnippet&quot;)&lt;&gt;&quot;&quot; then%&gt;
			  &lt;tr&gt;
                &lt;td valign=&quot;top&quot;&gt;&lt;div align=&quot;right&quot;&gt;&lt;font size=&quot;2&quot; face=&quot;Arial, Helvetica, sans-serif&quot;&gt;Delete:&lt;/font&gt;&lt;/div&gt;&lt;/td&gt;
                &lt;td&gt;&lt;input name=&quot;delete&quot; type=&quot;checkbox&quot; id=&quot;delete&quot; value=&quot;checkbox&quot;&gt;&lt;/td&gt;
              &lt;/tr&gt;
			 &lt;%end if%&gt;
              &lt;tr&gt;
                &lt;td colspan=&quot;2&quot; align=&quot;center&quot; valign=&quot;top&quot;&gt;
				&lt;input type=&quot;submit&quot; value=&quot;Save&quot; name=&quot;submit&quot; class=&quot;button-dialog&quot; fcklang=&quot;DlgSnippetsSaveMsg&quot; \&gt;
				&amp;nbsp;&amp;nbsp;&amp;nbsp;
                &lt;input type=&quot;button&quot; value=&quot;Back&quot; name=&quot;submit2&quot; class=&quot;button-dialog&quot; fcklang=&quot;DlgSnippetsBackMsg&quot; onClick=&quot;location.href='SnippetsBrowse.asp?Back=yes&amp;SnippetFolder=&lt;%=request(&quot;SnippetFolder&quot;)%&gt;'&quot; \&gt;&lt;/td&gt;
              &lt;/tr&gt;
        &lt;/table&gt;
			&lt;br /&gt;
			&lt;input type=&quot;hidden&quot; value=&quot;&lt;%=request(&quot;SnippetFolder&quot;)%&gt;&quot; id=&quot;SnippetFolder&quot; name=&quot;SnippetFolder&quot; /&gt;
		&lt;input type=&quot;hidden&quot; value=&quot;yes&quot; id=&quot;saveSnippet&quot; name=&quot;saveSnippet&quot; /&gt;
		&lt;input type=&quot;hidden&quot; value=&quot;&lt;%=request(&quot;IdSnippet&quot;)%&gt;&quot; id=&quot;IdSnippet&quot; name=&quot;IdSnippet&quot; /&gt;
		
	  &lt;/div&gt;
	&lt;/form&gt;
	&lt;/body&gt;
&lt;/html&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CFckEditor%5Cplugins%5Csnippets">Íàçàä</a>]