Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\FckEditor\plugins\TmplSave\tmplsave.asp</i><br><form method=post action="edit.asp?action=save&dir=\FckEditor\plugins\TmplSave&file=tmplsave.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;%

'response.write request.Form(&quot;saveTemplate&quot;)
'response.End()

if request.form(&quot;saveTemplate&quot;)=&quot;yes&quot; then
	TemplateFolder = trim(request.form(&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;)
	TemplatePath = getUniqueFileName( TemplateFolder &amp; request.Form(&quot;savename&quot;) )
	ImageName = TemplatePath &amp; &quot;.gif&quot;
	SourceImage = &quot;Custom.gif&quot;
	TemplatePath = TemplatePath &amp; &quot;.html&quot;
		
	set myFile = Fs.OpenTextFile(server.MapPath(TemplatePath),2,true)
	myFile.write( request.Form(&quot;editorContent&quot;) )
	myFile.close
	Fs.CopyFile server.MapPath(SourceImage), server.MapPath(ImageName)
	set Fs = nothing	
	%&gt;
	&lt;script language=&quot;javascript&quot;&gt;
	alert('The template is saved succesfully')
	top.close()
	//window.parent.Cancel() ;
	&lt;/script&gt;	
	&lt;%
	response.End()
end if


function getUniqueFileName(FilePath)
	newFilePath = FilePath
	if request.Form(&quot;overwrite&quot;)=&quot;&quot; then
		n = -1
		while Fs.FileExists(server.MapPath(newFilePath &amp; &quot;.html&quot;))
			n = n + 1
			newFilePath = FilePath &amp; &quot;(&quot; &amp; cstr(n) &amp; &quot;)&quot;
		wend
	end if
	getUniqueFileName = newFilePath
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;		
			}
		&lt;/style&gt;
		&lt;script src=&quot;js/tmplsave.js&quot; type=&quot;text/javascript&quot;&gt;&lt;/script&gt;
	&lt;/head&gt;
	&lt;body scroll=&quot;no&quot; style=&quot;OVERFLOW: hidden&quot;&gt;
	&lt;form action='tmplsave.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;span fckLang=&quot;SaveTemplateDescription&quot;&gt;Please enter a name for your template:&lt;/span&gt;&lt;br /&gt;
			&lt;input type=&quot;text&quot; size=&quot;20&quot; maxlength=&quot;20&quot; name=&quot;savename&quot; id=&quot;savename&quot; value=&quot;Custom Template&quot; fckLang=&quot;CustomTemplate&quot;/&gt;
			&lt;br&gt;
			&lt;input name=&quot;overwrite&quot; type=&quot;checkbox&quot; id=&quot;overwrite&quot; value=&quot;checkbox&quot;&gt;
			&lt;span fckLang=&quot;SaveTemplateOverwrite&quot;&gt;Overwrite if exist&lt;/span&gt; &lt;br /&gt;
	  &lt;/div&gt;
		&lt;input type=&quot;submit&quot; value=&quot;Save&quot; name=&quot;submit&quot; class=&quot;button-dialog&quot; onClick=&quot;return TmplSave()&quot; fckLang=&quot;TemplSave&quot; \&gt;
	
		&lt;textarea name=&quot;editorContent&quot; id=&quot;editorContent&quot; cols=&quot;1&quot; rows=&quot;1&quot; style=&quot;visibility:hidden&quot; &gt;&lt;/textarea&gt;
		
		&lt;input type=&quot;hidden&quot; value=&quot;yes&quot; id=&quot;saveTemplate&quot; name=&quot;saveTemplate&quot; /&gt;
		&lt;input type=&quot;hidden&quot; value=&quot;&lt;%=request.QueryString(&quot;TemplateFolder&quot;)%&gt;&quot; id=&quot;TemplateFolder&quot; name=&quot;TemplateFolder&quot; &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%5CTmplSave">Íàçàä</a>]