Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\FckEditor\fckeditor.asp</i><br><form method=post action="edit.asp?action=save&dir=\FckEditor&file=fckeditor.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>
&lt;%
Class FCKeditor

	private sBasePath
	private sInstanceName
	private sWidth
	private sHeight
	private sToolbarSet
	private sValue

	private oConfig

	Private Sub Class_Initialize()
		sBasePath		= &quot;/fckeditor/&quot;
		sWidth			= &quot;100%&quot;
		sHeight			= &quot;200&quot;
		sToolbarSet		= &quot;Default&quot;
		sValue			= &quot;/fckeditor/&quot;

		Set oConfig = CreateObject(&quot;Scripting.Dictionary&quot;)
	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 = &quot;&quot;
		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 &quot;&lt;div&gt;&quot;

		If IsCompatible() Then

			Dim sFile
			If Request.QueryString( &quot;fcksource&quot; ) = &quot;true&quot; Then
				sFile = &quot;fckeditor.original.html&quot;
			Else
				sFile = &quot;fckeditor.html&quot;
			End If

			Dim sLink
			sLink = sBasePath &amp; &quot;/FCKeditor/editor/&quot; &amp; sFile &amp; &quot;?InstanceName=&quot; + instanceName

			If (sToolbarSet &amp; &quot;&quot;) &lt;&gt; &quot;&quot; Then
				sLink = sLink + &quot;&amp;amp;Toolbar=&quot; &amp; sToolbarSet
			End If

			' Render the linked hidden field.
			Response.Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; id=&quot;&quot;&quot; &amp; instanceName &amp; &quot;&quot;&quot; name=&quot;&quot;&quot; &amp; instanceName &amp; &quot;&quot;&quot; value=&quot;&quot;&quot; &amp; Server.HTMLEncode( sValue ) &amp; &quot;&quot;&quot; style=&quot;&quot;display:none&quot;&quot; /&gt;&quot;

			' Render the configurations hidden field.
			Response.Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; id=&quot;&quot;&quot; &amp; instanceName &amp; &quot;___Config&quot;&quot; value=&quot;&quot;&quot; &amp; GetConfigFieldString() &amp; &quot;&quot;&quot; style=&quot;&quot;display:none&quot;&quot; /&gt;&quot;

			' Render the editor IFRAME.
			Response.Write &quot;&lt;iframe id=&quot;&quot;&quot; &amp; instanceName &amp; &quot;___Frame&quot;&quot; src=&quot;&quot;&quot; &amp; sLink &amp; &quot;&quot;&quot; width=&quot;&quot;&quot; &amp; sWidth &amp; &quot;&quot;&quot; height=&quot;&quot;&quot; &amp; sHeight &amp; &quot;&quot;&quot; frameborder=&quot;&quot;0&quot;&quot; scrolling=&quot;&quot;no&quot;&quot;&gt;&lt;/iframe&gt;&quot;

		Else

			Dim sWidthCSS, sHeightCSS

			If InStr( sWidth, &quot;%&quot; ) &gt; 0  Then
				sWidthCSS = sWidth
			Else
				sWidthCSS = sWidth &amp; &quot;px&quot;
			End If

			If InStr( sHeight, &quot;%&quot; ) &gt; 0  Then
				sHeightCSS = sHeight
			Else
				sHeightCSS = sHeight &amp; &quot;px&quot;
			End If

			Response.Write &quot;&lt;textarea name=&quot;&quot;&quot; &amp; instanceName &amp; &quot;&quot;&quot; rows=&quot;&quot;4&quot;&quot; cols=&quot;&quot;40&quot;&quot; style=&quot;&quot;width: &quot; &amp; sWidthCSS &amp; &quot;; height: &quot; &amp; sHeightCSS &amp; &quot;&quot;&quot;&gt;&quot; &amp; Server.HTMLEncode( sValue ) &amp; &quot;&lt;/textarea&gt;&quot;

		End If

		Response.Write &quot;&lt;/div&gt;&quot;

	End Function

	Private Function IsCompatible()

		Dim sAgent
		sAgent = Request.ServerVariables(&quot;HTTP_USER_AGENT&quot;)

		Dim iVersion

		If InStr(sAgent, &quot;MSIE&quot;) &gt; 0 AND InStr(sAgent, &quot;mac&quot;) &lt;= 0  AND InStr(sAgent, &quot;Opera&quot;) &lt;= 0 Then
			iVersion = CInt( ToNumericFormat( Mid(sAgent, InStr(sAgent, &quot;MSIE&quot;) + 5, 3) ) )
			IsCompatible = ( iVersion &gt;= 5.5 )
		ElseIf InStr(sAgent, &quot;Gecko/&quot;) &gt; 0 Then
			iVersion = CLng( Mid( sAgent, InStr( sAgent, &quot;Gecko/&quot; ) + 6, 8 ) )
			IsCompatible = ( iVersion &gt;= 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 &quot;,&quot; and vice versa.
	Private Function ToNumericFormat( numberStr )

		If IsNumeric( &quot;5.5&quot; ) Then
			ToNumericFormat = Replace( numberStr, &quot;,&quot;, &quot;.&quot;)
		Else
			ToNumericFormat = Replace( numberStr, &quot;.&quot;, &quot;,&quot;)
		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; &quot;&amp;amp;&quot;
			Else
				bFirst = False
			End If

			sParams = sParams &amp; EncodeConfig( sKey ) &amp; &quot;=&quot; &amp; EncodeConfig( oConfig(sKey) )

		Next

		GetConfigFieldString = sParams

	End Function
	
	Private Function EncodeConfig( valueToEncode )
		EncodeConfig = Replace( valueToEncode, &quot;&amp;&quot;, &quot;%26&quot; )
		EncodeConfig = Replace( EncodeConfig , &quot;=&quot;, &quot;%3D&quot; )
		EncodeConfig = Replace( EncodeConfig , &quot;&quot;&quot;&quot;, &quot;%22&quot; )
	End Function

End Class
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CFckEditor">Íàçàä</a>]