Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\includes\inc_config.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\includes&file=inc_config.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;% 
Response.Expires = -1 'relativo all'apertura della pagina
Response.ExpiresAbsolute = Now() - 1 'assoluto rispetto ad una data definita
Response.CacheControl = &quot;no-cache&quot;
Response.AddHeader &quot;pragma&quot;,&quot;no-cache&quot;
%&gt;
&lt;!--#include virtual=&quot;/iwgallery/Connections/connIWGallery.asp&quot; --&gt;
&lt;%
Set rsConfig = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsConfig.ActiveConnection = MM_connIWGallery_STRING
rsConfig.Source = &quot;SELECT * FROM CONFIGURATION&quot;
rsConfig.CursorType = 0
rsConfig.CursorLocation = 2
rsConfig.LockType = 1
rsConfig.Open()
%&gt;

&lt;%
strPageTitle = (rsConfig.Fields.Item(&quot;CON_TITLE&quot;).Value)
strURL = (rsConfig.Fields.Item(&quot;CON_URL&quot;).Value)
strAdminEmail = (rsConfig.Fields.Item(&quot;CON_ADMIN_EMAIL&quot;).Value)
strDescription = (rsConfig.Fields.Item(&quot;CON_DESCRIPTION&quot;).Value)
strKeywords = (rsConfig.Fields.Item(&quot;CON_KEYWORDS&quot;).Value)
strPageSize = (rsConfig.Fields.Item(&quot;CON_PAGE_SIZE&quot;).Value)
strLeftSize = (rsConfig.Fields.Item(&quot;CON_LEFT_SIZE&quot;).Value)
strRightSize = (rsConfig.Fields.Item(&quot;CON_RIGHT_SIZE&quot;).Value)
strAlign = (rsConfig.Fields.Item(&quot;CON_ALIGN&quot;).Value)
strTheme = (rsConfig.Fields.Item(&quot;CON_THEME&quot;).Value)
strProgress = (rsConfig.Fields.Item(&quot;CON_PROGRESS&quot;).Value)
strImgFullWidth = (rsConfig.Fields.Item(&quot;CON_IMG_FULL_WIDTH&quot;).Value)
strImgFullHeight = (rsConfig.Fields.Item(&quot;CON_IMG_FULL_HEIGHT&quot;).Value)
strImgThumb = (rsConfig.Fields.Item(&quot;CON_IMG_THUMB&quot;).Value)
strImgQuality = (rsConfig.Fields.Item(&quot;CON_IMG_QUALITY&quot;).Value)
strRows = (rsConfig.Fields.Item(&quot;CON_ROWS&quot;).Value)
strCols = (rsConfig.Fields.Item(&quot;CON_COLS&quot;).Value)
strZip = (rsConfig.Fields.Item(&quot;CON_ZIP&quot;).Value)
strPrivate = (rsConfig.Fields.Item(&quot;CON_PRIVATE&quot;).Value)
strRegister = (rsConfig.Fields.Item(&quot;CON_REGISTER&quot;).Value)
strApprove = (rsConfig.Fields.Item(&quot;CON_APPROVE&quot;).Value)
strTerms = (rsConfig.Fields.Item(&quot;CON_TERMS&quot;).Value)
strFooter = (rsConfig.Fields.Item(&quot;CON_FOOTER&quot;).Value)
strLcid = (rsConfig.Fields.Item(&quot;CON_LCID&quot;).Value)
%&gt;

&lt;%
Function TrimBody(str)

	If Str &lt;&gt; &quot;&quot; Then
  	Str = (Replace(str, &quot;&lt;&quot;, &quot;&amp;lt;&quot;))
  	Str = (Replace(str, &quot;&gt;&quot;, &quot;&amp;gt;&quot;)) 
  	Str = (Replace(str, vbCrlf, &quot;&lt;br&gt;&quot;))
	Str = (Replace(str, &quot;[&quot;, &quot;&lt;&quot;))
	Str = (Replace(str, &quot;]&quot;, &quot;&gt;&quot;))
	Str = (Replace(str, &quot;javascript&quot;, &quot;java-script&quot;))
   
   	TrimBody = Str
	
	Else
	TrimBody = &quot;&quot;
	End If
   
End Function
%&gt;

&lt;%
Function IsComponentInstalled(ProgId)

  On Error Resume Next
  Dim tmpObject
  Set tmpObject = Server.CreateObject(ProgId)
	If Err.Number = 0 Then
	  IsComponentInstalled = True
	Else
	  IsComponentInstalled = False
	End If
  Set tmpObject = Nothing
  Err.Clear
  
End Function
%&gt;

&lt;%
Dim arrayId(), arrayName(), i, arraySize
Redim arrayId(1), arrayName(1)
If Request.QueryString(&quot;iCat&quot;) &lt;&gt; &quot;&quot; then varId = Request.QueryString(&quot;iCat&quot;)
set objRec = Server.CreateObject(&quot;ADODB.Recordset&quot;)
objRec.ActiveConnection = MM_connIWGallery_STRING
objRec.Source = &quot;SELECT * FROM CATEGORIES ORDER BY CAT_NAME ASC&quot;
objRec.CursorType = 0
objRec.CursorLocation = 2
objRec.LockType = 3
objRec.Open()
objRec_numRows = 0
Sub FillArray
i = 0
DO UNTIL varId = 0
objRec.Filter = &quot;CAT_ID = &quot; &amp; varId
arrayId(i) = objRec(&quot;CAT_ID&quot;)
arrayName(i) = objRec(&quot;CAT_NAME&quot;)
If NOT objRec(&quot;CAT_PARENT&quot;) = 0 then	
Redim Preserve arrayId(i+1)
Redim Preserve arrayName(i+1)
End If
varId = objRec(&quot;CAT_PARENT&quot;)
i = i + 1
LOOP
End Sub
%&gt;

&lt;!--#include virtual=&quot;/iwgallery/includes/inc_mail_CdoSys.asp&quot; --&gt;
&lt;!--#include virtual=&quot;/iwgallery/includes/inc_filesize.asp&quot; --&gt;

&lt;%
rsConfig.Close()
Set rsConfig = Nothing
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5Cincludes">Íàçàä</a>]