Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\admin\inc_cat_edit.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\admin&file=inc_cat_edit.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;% If LCase(Request.Cookies(&quot;IWGalleryAccess&quot;)) &lt;&gt; &quot;amministratore&quot; Then Response.Redirect(&quot;logout.asp?reason=Accesso negato&quot;) %&gt;
&lt;!--#include virtual=&quot;/iwgallery/Connections/connIWGallery.asp&quot; --&gt;
&lt;%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables(&quot;SCRIPT_NAME&quot;))
If (Request.QueryString &lt;&gt; &quot;&quot;) Then
  MM_editAction = MM_editAction &amp; &quot;?&quot; &amp; Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = &quot;&quot;
%&gt;
&lt;%
' *** Update Record: set variables

If (CStr(Request(&quot;MM_update&quot;)) = &quot;form1&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then

  MM_editConnection = MM_connIWGallery_STRING
  MM_editTable = &quot;CATEGORIES&quot;
  MM_editColumn = &quot;CAT_ID&quot;
  MM_recordId = &quot;&quot; + Request.Form(&quot;MM_recordId&quot;) + &quot;&quot;
  MM_editRedirectUrl = &quot;cat_listing.asp&quot;
  MM_fieldsStr  = &quot;CAT_NAME|value|CAT_DESCRIPTION|value&quot;
  MM_columnsStr = &quot;CAT_NAME|',none,''|CAT_DESCRIPTION|',none,''&quot;

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, &quot;|&quot;)
  MM_columns = Split(MM_columnsStr, &quot;|&quot;)
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl &lt;&gt; &quot;&quot; And Request.QueryString &lt;&gt; &quot;&quot;) Then
    If (InStr(1, MM_editRedirectUrl, &quot;?&quot;, vbTextCompare) = 0 And Request.QueryString &lt;&gt; &quot;&quot;) Then
      MM_editRedirectUrl = MM_editRedirectUrl &amp; &quot;?&quot; &amp; Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl &amp; &quot;&amp;&quot; &amp; Request.QueryString
    End If
  End If

End If
%&gt;
&lt;%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request(&quot;MM_update&quot;)) &lt;&gt; &quot;&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then

  ' create the sql update statement
  MM_editQuery = &quot;update &quot; &amp; MM_editTable &amp; &quot; set &quot;
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),&quot;,&quot;)
    MM_delim = MM_typeArray(0)
    If (MM_delim = &quot;none&quot;) Then MM_delim = &quot;&quot;
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = &quot;none&quot;) Then MM_altVal = &quot;&quot;
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = &quot;none&quot;) Then MM_emptyVal = &quot;&quot;
    If (MM_formVal = &quot;&quot;) Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal &lt;&gt; &quot;&quot;) Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = &quot;'&quot;) Then  ' escape quotes
        MM_formVal = &quot;'&quot; &amp; Replace(MM_formVal,&quot;'&quot;,&quot;''&quot;) &amp; &quot;'&quot;
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i &lt;&gt; LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery &amp; &quot;,&quot;
    End If
    MM_editQuery = MM_editQuery &amp; MM_columns(MM_i) &amp; &quot; = &quot; &amp; MM_formVal
  Next
  MM_editQuery = MM_editQuery &amp; &quot; where &quot; &amp; MM_editColumn &amp; &quot; = &quot; &amp; MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the update
    Set MM_editCmd = Server.CreateObject(&quot;ADODB.Command&quot;)
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl &lt;&gt; &quot;&quot;) Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%&gt;
&lt;%
Dim rsCatEdit__MMColParam
rsCatEdit__MMColParam = &quot;1&quot;
If (Request.QueryString(&quot;iData&quot;) &lt;&gt; &quot;&quot;) Then 
  rsCatEdit__MMColParam = Request.QueryString(&quot;iData&quot;)
End If
%&gt;
&lt;%
Dim rsCatEdit
Dim rsCatEdit_numRows

Set rsCatEdit = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsCatEdit.ActiveConnection = MM_connIWGallery_STRING
rsCatEdit.Source = &quot;SELECT * FROM CATEGORIES WHERE CAT_ID = &quot; + Replace(rsCatEdit__MMColParam, &quot;'&quot;, &quot;''&quot;) + &quot;&quot;
rsCatEdit.CursorType = 0
rsCatEdit.CursorLocation = 2
rsCatEdit.LockType = 1
rsCatEdit.Open()

rsCatEdit_numRows = 0
%&gt;
&lt;script language=&quot;JavaScript&quot; type=&quot;text/JavaScript&quot;&gt;
&lt;!--
function WAtrimIt(theString,leaveLeft,leaveRight)  {
  if (!leaveLeft)  {
    while (theString.charAt(0) == &quot; &quot;)
      theString = theString.substring(1);
  }
  if (!leaveRight)  {
    while (theString.charAt(theString.length-1) == &quot; &quot;)
      theString = theString.substring(0,theString.length-1);
  }
  return theString;
}

function WAAddError(formElement,errorMsg,focusIt,stopIt)  {
  if (document.WAFV_Error)  {
	  document.WAFV_Error += &quot;\n&quot; + errorMsg;
  }
  else  {
    document.WAFV_Error = errorMsg;
  }
  if (!document.WAFV_InvalidArray)  {
    document.WAFV_InvalidArray = new Array();
  }
  document.WAFV_InvalidArray[document.WAFV_InvalidArray.length] = formElement;
  if (focusIt &amp;&amp; !document.WAFV_Focus)  {
	document.WAFV_Focus = focusIt;
  }

  if (stopIt == 1)  {
	document.WAFV_Stop = true;
  }
  else if (stopIt == 2)  {
	formElement.WAFV_Continue = true;
  }
  else if (stopIt == 3)  {
	formElement.WAFV_Stop = true;
	formElement.WAFV_Continue = false;
  }
}

function WAValidateRQ(formElement,errorMsg,focusIt,stopIt,trimWhite,inputType)  {
  var isValid = true;
  if (!document.WAFV_Stop &amp;&amp; !formElement.WAFV_Stop)  {
    if (inputType == &quot;select&quot;)  {
	  if (formElement.selectedIndex == -1)  {
	    isValid = false;
	  }
	  else if (!formElement.options[formElement.selectedIndex].value || formElement.options[formElement.selectedIndex].value == &quot;&quot;) {
	    isValid = false;
	  }
	}
	else if (inputType == &quot;checkbox&quot;)  {
	  if (formElement.length)  {
	    isValid = false;
	    for (var x=0; x&lt;formElement.length ; x++)  {
	      if (formElement[x].checked &amp;&amp; formElement[x].value!=&quot;&quot;)  {
		    isValid = true;
		    break;
		  }
	    }
	  }
      else if (!formElement.checked)
	    isValid = false;
	}
	else if (inputType == &quot;radio&quot;)  {
	  isValid = false;
	  if (formElement.checked)
	    isValid = true;
	}
	else if (inputType == &quot;radiogroup&quot;)  {
	  isValid = false;
	  for (var x=0; x&lt;formElement.length; x++)  {
	    if (formElement[x].checked &amp;&amp; formElement[x].value!=&quot;&quot;)  {
		  isValid = true;
		  break;
		}
	  }
	  formElement = formElement[0];
	}
	else  {
	  var value = formElement.value;
	  if (trimWhite)  {
	    value = WAtrimIt(value);
	  }
	  if (value == &quot;&quot;)  {
	    isValid = false;
	  }
	}
  }
  if (!isValid)  {
    WAAddError(formElement,errorMsg,focusIt,stopIt);
  }
}

function WAAlertErrors(errorHead,errorFoot,setFocus,submitForm)  { 
  if (!document.WAFV_StopAlert)  { 
	  document.WAFV_StopAlert = true;
	  if (document.WAFV_InvalidArray)  {  
	    document.WAFV_Stop = true;
        var errorMsg = document.WAFV_Error;
	    if (errorHead!=&quot;&quot;)
		  errorMsg = errorHead + &quot;\n&quot; + errorMsg;
		if (errorFoot!=&quot;&quot;)
		  errorMsg += &quot;\n&quot; + errorFoot;
		document.MM_returnValue = false;
		if (document.WAFV_Error!=&quot;&quot;)
		  alert(errorMsg.replace(/&amp;quot;/g,'&quot;'));
		else if (submitForm)
		  submitForm.submit();
	    if (setFocus &amp;&amp; document.WAFV_Focus)  {
		  document.tempFocus = document.WAFV_Focus;
          setTimeout(&quot;document.tempFocus.focus();setTimeout('document.WAFV_Stop = false;document.WAFV_StopAlert = false;',1)&quot;,1); 
        }
        else {
          document.WAFV_Stop = false;
          document.WAFV_StopAlert = false;
        }
        for (var x=0; x&lt;document.WAFV_InvalidArray.length; x++)  {
	      document.WAFV_InvalidArray[x].WAFV_Stop = false;
	    }
	  }
	  else  {
        document.WAFV_Stop = false;
        document.WAFV_StopAlert = false;
	    if (submitForm)  {
	      submitForm.submit();
	    }
	    document.MM_returnValue = true;
	  }
      document.WAFV_Focus = false;
	  document.WAFV_Error = false;
	  document.WAFV_InvalidArray = false;
  }
}
//--&gt;
&lt;/script&gt;


&lt;table width=&quot;100%&quot; border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; class=&quot;box&quot;&gt;
  &lt;tr&gt;
    &lt;td align=&quot;left&quot; valign=&quot;top&quot;&gt;&lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;&gt;
        &lt;tr&gt;
          &lt;td width=&quot;1&quot; align=&quot;left&quot; class=&quot;box-header&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-header-left.jpg&quot; alt=&quot;Box Left&quot;&gt;&lt;/td&gt;
          &lt;td width=&quot;100%&quot; class=&quot;box-header&quot;&gt;Categorie&lt;/td&gt;
          &lt;td width=&quot;1&quot; align=&quot;right&quot; class=&quot;box-header&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-header-right.jpg&quot; alt=&quot;Box Right&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
      &lt;/table&gt;&lt;/td&gt;
  &lt;/tr&gt;
  &lt;tr&gt;
    &lt;td align=&quot;left&quot; valign=&quot;top&quot; class=&quot;box-main&quot;&gt;&lt;form action=&quot;&lt;%=MM_editAction%&gt;&quot; method=&quot;POST&quot; name=&quot;form1&quot; onSubmit=&quot;WAValidateRQ(document.form1.CAT_NAME,'* Il campo Nome &amp;egrave; obbligatorio',document.form1.CAT_NAME,0,true,'text');WAAlertErrors('','',true,false);return document.MM_returnValue&quot;&gt;
        &lt;br&gt;
        &lt;table border=&quot;0&quot; align=&quot;center&quot; cellpadding=&quot;0&quot; cellspacing=&quot;1&quot; class=&quot;content&quot;&gt;
          &lt;tr valign=&quot;baseline&quot;&gt;
            &lt;td nowrap align=&quot;right&quot;&gt;Parent:&lt;/td&gt;
            &lt;td&gt;&lt;a href=&quot;cat_listing.asp&quot;&gt;&lt;strong&gt;Root&lt;/strong&gt;&lt;/a&gt; &amp;rsaquo;
              &lt;%
FillArray
For i = UBound(arrayId) to 0 Step - 1
If NOT arrayId(i) = &quot;&quot; then
Response.Write &quot;&lt;a href=&quot;&quot;cat_listing.asp?iCat=&quot; &amp; arrayId(i) &amp; &quot;&quot;&quot;&gt;&lt;strong&gt;&quot;&amp; arrayName(i) &amp; &quot;&lt;/strong&gt;&lt;/a&gt; &amp;rsaquo; &quot;
End If
Next
%&gt;&lt;/td&gt;
          &lt;/tr&gt;
          &lt;tr valign=&quot;baseline&quot;&gt;
            &lt;td nowrap align=&quot;right&quot;&gt;*Nome:&lt;/td&gt;
            &lt;td&gt;&lt;input type=&quot;text&quot; name=&quot;CAT_NAME&quot; value=&quot;&lt;%=(rsCatEdit.Fields.Item(&quot;CAT_NAME&quot;).Value)%&gt;&quot; size=&quot;32&quot;&gt;
            &lt;/td&gt;
          &lt;/tr&gt;
          &lt;tr&gt;
            &lt;td nowrap align=&quot;right&quot; valign=&quot;top&quot;&gt;Descrizione:&lt;/td&gt;
            &lt;td valign=&quot;baseline&quot;&gt;&lt;textarea name=&quot;CAT_DESCRIPTION&quot; cols=&quot;32&quot; rows=&quot;4&quot; id=&quot;CAT_DESCRIPTION&quot;&gt;&lt;%=(rsCatEdit.Fields.Item(&quot;CAT_DESCRIPTION&quot;).Value)%&gt;&lt;/textarea&gt;
            &lt;/td&gt;
          &lt;/tr&gt;
          &lt;tr valign=&quot;baseline&quot;&gt;
            &lt;td nowrap align=&quot;right&quot;&gt;&amp;nbsp;&lt;/td&gt;
            &lt;td&gt;&lt;input name=&quot;Submit&quot; type=&quot;submit&quot; id=&quot;Submit&quot; value=&quot;Salva Modifiche&quot; class=&quot;button&quot;&gt;
            &lt;/td&gt;
          &lt;/tr&gt;
        &lt;/table&gt;
        &lt;input type=&quot;hidden&quot; name=&quot;MM_update&quot; value=&quot;form1&quot;&gt;
        &lt;input type=&quot;hidden&quot; name=&quot;MM_recordId&quot; value=&quot;&lt;%= rsCatEdit.Fields.Item(&quot;CAT_ID&quot;).Value %&gt;&quot;&gt;
      &lt;/form&gt;&lt;/td&gt;
  &lt;/tr&gt;
  &lt;tr&gt;
    &lt;td align=&quot;left&quot; valign=&quot;top&quot;&gt;&lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;&gt;
      &lt;tr&gt;
        &lt;td width=&quot;1&quot; align=&quot;left&quot; class=&quot;box-bottom&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-bottom-left.jpg&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;100%&quot; class=&quot;box-bottom&quot;&gt;&lt;img src=&quot;../images/shim.gif&quot; width=&quot;1&quot; height=&quot;1&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;1&quot; align=&quot;right&quot; class=&quot;box-bottom&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-bottom-right.jpg&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
    &lt;/table&gt;&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;
&lt;%
rsCatEdit.Close()
Set rsCatEdit = Nothing
%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5Cadmin">Íàçàä</a>]