Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\admin\pictures_delete.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\admin&file=pictures_delete.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@LANGUAGE=&quot;VBSCRIPT&quot; CODEPAGE=&quot;1252&quot;%&gt;
&lt;!--#include virtual=&quot;/iwgallery/Connections/connIWGallery.asp&quot; --&gt;
&lt;!--#include virtual=&quot;/iwgallery/ScriptLibrary/incPUAddOn.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;%
' *** Delete Record: declare variables

if (CStr(Request(&quot;MM_delete&quot;)) = &quot;form1&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then

  MM_editConnection = MM_connIWGallery_STRING
  MM_editTable = &quot;PICTURES&quot;
  MM_editColumn = &quot;PIC_ID&quot;
  MM_recordId = &quot;&quot; + Request.Form(&quot;MM_recordId&quot;) + &quot;&quot;
  MM_editRedirectUrl = &quot;pictures_listing.asp&quot;
    If Request.Form(&quot;PIC_APPROVED&quot;) = &quot;0&quot; Then MM_editRedirectUrl = &quot;home.asp&quot;

  ' 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;% 
' *** Delete File Before Delete Record 1.6.0
If (CStr(Request(&quot;MM_delete&quot;)) &lt;&gt; &quot;&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then
  Dim DF_filesStr, DF_path, DF_suffix
  DF_filesStr = &quot;PIC_FILE&quot;
  DF_path = strPublicPath
  DF_suffix = &quot;_small&quot;
  DeleteFileBeforeRecord DF_filesStr,DF_path,MM_editConnection,MM_editTable,MM_editColumn,MM_recordId,DF_suffix
end if
%&gt;
&lt;%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request(&quot;MM_delete&quot;)) &lt;&gt; &quot;&quot; And CStr(Request(&quot;MM_recordId&quot;)) &lt;&gt; &quot;&quot;) Then

  ' create the sql delete statement
  MM_editQuery = &quot;delete from &quot; &amp; MM_editTable &amp; &quot; where &quot; &amp; MM_editColumn &amp; &quot; = &quot; &amp; MM_recordId

  If (Not MM_abortEdit) Then
    
	set cmdDelete = Server.CreateObject(&quot;ADODB.Command&quot;)
cmdDelete.ActiveConnection = MM_connIWGallery_STRING
cmdDelete.CommandText = &quot;DELETE FROM RATES  WHERE RAT_PICTURE = &quot; &amp; Request(&quot;MM_recordId&quot;)
cmdDelete.CommandType = 1
cmdDelete.CommandTimeout = 0
cmdDelete.Prepared = true
cmdDelete.Execute()
	
	' execute the delete
    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 rsPicture__iData
rsPicture__iData = &quot;0&quot;
If (Request.QueryString(&quot;iData&quot;) &lt;&gt; &quot;&quot;) Then 
  rsPicture__iData = Request.QueryString(&quot;iData&quot;)
End If
%&gt;
&lt;%
Dim rsPicture
Dim rsPicture_numRows

Set rsPicture = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsPicture.ActiveConnection = MM_connIWGallery_STRING
rsPicture.Source = &quot;SELECT *  FROM PICTURES  WHERE PIC_ID = &quot; + Replace(rsPicture__iData, &quot;'&quot;, &quot;''&quot;) + &quot;&quot;
rsPicture.CursorType = 0
rsPicture.CursorLocation = 2
rsPicture.LockType = 1
rsPicture.Open()

rsPicture_numRows = 0
%&gt;
&lt;body onLoad=&quot;document.form1.submit();&quot;&gt;
&lt;form name=&quot;form1&quot; method=&quot;POST&quot; action=&quot;&lt;%=MM_editAction%&gt;&quot;&gt;
  &lt;input type=&quot;hidden&quot; name=&quot;MM_delete&quot; value=&quot;form1&quot;&gt;
  &lt;input type=&quot;hidden&quot; name=&quot;MM_recordId&quot; value=&quot;&lt;%= rsPicture.Fields.Item(&quot;PIC_ID&quot;).Value %&gt;&quot;&gt;
  &lt;input name=&quot;PIC_APPROVED&quot; type=&quot;hidden&quot; id=&quot;PIC_APPROVED&quot; value=&quot;&lt;%=(rsPicture.Fields.Item(&quot;PIC_APPROVED&quot;).Value)%&gt;&quot;&gt;
&lt;/form&gt;
&lt;/body&gt;
&lt;%
rsPicture.Close()
Set rsPicture = Nothing
%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5Cadmin">Íàçàä</a>]