Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\includes\inc_login.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\includes&file=inc_login.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;% If strRegister = 0 Then Response.Redirect(&quot;../home/&quot;) %&gt;
&lt;!--#include virtual=&quot;/iwgallery/Connections/connIWGallery.asp&quot; --&gt;
&lt;%
Dim rsLogged__nUser
rsLogged__nUser = &quot;0&quot;
If (Request.Cookies(&quot;IWGalleryUserName&quot;) &lt;&gt; &quot;&quot;) Then 
  rsLogged__nUser = Request.Cookies(&quot;IWGalleryUserName&quot;)
End If
%&gt;
&lt;%
Dim rsLogged
Dim rsLogged_numRows

Set rsLogged = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rsLogged.ActiveConnection = MM_connIWGallery_STRING
rsLogged.Source = &quot;SELECT USE_ID, USE_NAME, USE_UPLOAD  FROM USERS  WHERE USE_NAME = '&quot; + Replace(rsLogged__nUser, &quot;'&quot;, &quot;''&quot;) + &quot;' AND USE_APPROVED = 1 AND USE_ACTIVE = 1&quot;
rsLogged.CursorType = 0
rsLogged.CursorLocation = 2
rsLogged.LockType = 1
rsLogged.Open()

rsLogged_numRows = 0
%&gt;
&lt;!--#include virtual=&quot;/iwgallery/Connections/connIWGallery.asp&quot; --&gt;
&lt;%
If Request.Cookies(&quot;IWGalleryUserName&quot;) = &quot;&quot; Then ' workaround per evitare interferenze con l'upload dei files
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables(&quot;URL&quot;)
If Request.QueryString&lt;&gt;&quot;&quot; Then MM_LoginAction = MM_LoginAction + &quot;?&quot; + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form(&quot;NAME&quot;))
If MM_valUsername &lt;&gt; &quot;&quot; Then
  MM_fldUserAuthorization=&quot;USE_ACCESS&quot;
  MM_redirectLoginSuccess=&quot;../pictures/default.asp&quot;
  MM_redirectLoginFailed=&quot;../users/logout.asp?reason=Accesso negato&quot;
  MM_flag=&quot;ADODB.Recordset&quot;
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_connIWGallery_STRING
  MM_rsUser.Source = &quot;SELECT USE_ID, USE_NAME, USE_PASSWORD, USE_UPLOAD&quot;
  If MM_fldUserAuthorization &lt;&gt; &quot;&quot; Then MM_rsUser.Source = MM_rsUser.Source &amp; &quot;,&quot; &amp; MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source &amp; &quot; FROM USERS WHERE USE_NAME='&quot; &amp; Replace(MM_valUsername,&quot;'&quot;,&quot;''&quot;) &amp;&quot;' AND USE_PASSWORD='&quot; &amp; Replace(Request.Form(&quot;PASSWORD&quot;),&quot;'&quot;,&quot;''&quot;) &amp; &quot;' AND USE_APPROVED = 1 AND USE_ACTIVE = 1&quot;
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    
	set cmdHits = Server.CreateObject(&quot;ADODB.Command&quot;)
cmdHits.ActiveConnection = MM_connIWGallery_STRING
cmdHits.CommandText = &quot;UPDATE USERS SET USE_HITS = USE_HITS + 1 WHERE USE_ID = &quot; &amp; MM_rsUser(&quot;USE_ID&quot;) &amp; &quot; AND USE_NAME = '&quot; &amp; MM_rsUser(&quot;USE_NAME&quot;) &amp; &quot;'&quot;
cmdHits.CommandType = 1
cmdHits.CommandTimeout = 0
cmdHits.Prepared = true
cmdHits.Execute()
	
	' username and password match - this is a valid user
    Session(&quot;MM_Username&quot;) = MM_valUsername
	Response.Cookies(&quot;IWGalleryUserName&quot;) = MM_valUsername
	Response.Cookies(&quot;IWGalleryUserID&quot;) = MM_rsUser(&quot;USE_ID&quot;)
	Response.Cookies(&quot;IWGalleryUserUpload&quot;) = MM_rsUser(&quot;USE_UPLOAD&quot;)
    If (MM_fldUserAuthorization &lt;&gt; &quot;&quot;) Then
      Session(&quot;MM_UserAuthorization&quot;) = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
	  Response.Cookies(&quot;IWGalleryAccess&quot;) = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session(&quot;MM_UserAuthorization&quot;) = &quot;&quot;
    End If
    if CStr(Request.QueryString(&quot;accessdenied&quot;)) &lt;&gt; &quot;&quot; And true Then
      MM_redirectLoginSuccess = Request.QueryString(&quot;accessdenied&quot;)
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
End If ' Request.Cookies(&quot;IWGalleryUserName&quot;) = &quot;&quot;
%&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; class=&quot;box-header&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-menu-header-left.jpg&quot;&gt;&lt;/td&gt; 
            &lt;td width=&quot;100%&quot; class=&quot;box-header&quot;&gt;Login&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-menu-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;% If rsLogged.EOF And rsLogged.BOF Then %&gt;
	   &lt;form ACTION=&quot;&lt;%=MM_LoginAction%&gt;&quot; method=&quot;POST&quot; name=&quot;frmLogin&quot; id=&quot;frmLogin&quot;&gt;
         &lt;table  border=&quot;0&quot; align=&quot;center&quot; cellpadding=&quot;0&quot; cellspacing=&quot;1&quot; class=&quot;menu&quot;&gt;
           &lt;tr&gt;
             &lt;td&gt;&lt;/td&gt;
             &lt;td&gt;&lt;span class=&quot;evidence&quot;&gt;&lt;%= Request.QueryString(&quot;reason&quot;) %&gt;&lt;%= Request.QueryString(&quot;result&quot;) %&gt;&lt;/span&gt;&lt;/td&gt;
           &lt;/tr&gt;
           &lt;tr&gt;
             &lt;td align=&quot;right&quot; valign=&quot;baseline&quot;&gt;*Login:&lt;/td&gt;
             &lt;td&gt;&lt;input name=&quot;NAME&quot; type=&quot;text&quot; id=&quot;NAME&quot; size=&quot;14&quot; value=&quot;&lt;%= Request.Cookies(&quot;IWGalleryUserName&quot;) %&gt;&quot;&gt;&lt;/td&gt;
           &lt;/tr&gt;
           &lt;tr&gt;
             &lt;td align=&quot;right&quot; valign=&quot;baseline&quot;&gt;*Pass:&lt;/td&gt;
             &lt;td&gt;&lt;input name=&quot;PASSWORD&quot; type=&quot;password&quot; id=&quot;PASSWORD&quot; size=&quot;14&quot;&gt;&lt;/td&gt;
           &lt;/tr&gt;
           &lt;tr&gt;
             &lt;td align=&quot;right&quot; valign=&quot;baseline&quot;&gt;&amp;nbsp;&lt;/td&gt;
             &lt;td&gt;&lt;input name=&quot;Submit&quot; class=&quot;button&quot; type=&quot;submit&quot; value=&quot;Login&quot;&gt;&lt;/td&gt;
           &lt;/tr&gt;
         &lt;/table&gt;
         &lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; class=&quot;menu&quot;&gt;
           &lt;tr&gt;
             &lt;td width=&quot;1%&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/menu-item.jpg&quot; border=&quot;0&quot;&gt;&lt;/td&gt;
             &lt;td&gt;&lt;a href=&quot;../home/password.asp&quot;&gt;Recupera Password&lt;/a&gt; &lt;/td&gt;
           &lt;/tr&gt;
		   &lt;tr&gt;
             &lt;td width=&quot;1%&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/menu-item.jpg&quot; border=&quot;0&quot;&gt;&lt;/td&gt;
             &lt;td&gt;&lt;a href=&quot;../home/register.asp&quot;&gt;Nuova Registrazione&lt;/a&gt; &lt;/td&gt;
           &lt;/tr&gt;
         &lt;/table&gt;
	   &lt;/form&gt; 
         &lt;% End If ' end rsLogged.EOF And rsLogged.BOF %&gt;
         &lt;% If Not rsLogged.EOF Or Not rsLogged.BOF Then %&gt;
         &lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; class=&quot;menu&quot;&gt;
           &lt;tr&gt;
             &lt;td&gt;&amp;nbsp;&lt;/td&gt;
             &lt;td&gt;Benvenuto/a, &lt;strong&gt;&lt;%=(rsLogged.Fields.Item(&quot;USE_NAME&quot;).Value)%&gt;&lt;/strong&gt;&lt;/td&gt;
           &lt;/tr&gt;
           &lt;tr&gt;
             &lt;td width=&quot;1%&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/menu-item.jpg&quot; border=&quot;0&quot;&gt;&lt;/td&gt;
             &lt;td&gt;&lt;a href=&quot;../users/profile.asp&quot;&gt;Profilo&lt;/a&gt; &lt;/td&gt;
           &lt;/tr&gt;
		   &lt;% If (rsLogged.Fields.Item(&quot;USE_UPLOAD&quot;).Value) = 1 Then %&gt;
           &lt;tr&gt;
             &lt;td&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/menu-item.jpg&quot; border=&quot;0&quot;&gt;&lt;/td&gt;
             &lt;td&gt;&lt;a href=&quot;../users/uploads.asp&quot;&gt;Uploads&lt;/a&gt;&lt;/td&gt;
           &lt;/tr&gt;
		   &lt;% End If %&gt;
	       &lt;tr&gt;
             &lt;td&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/menu-item.jpg&quot; border=&quot;0&quot;&gt;&lt;/td&gt;
             &lt;td&gt;&lt;a href=&quot;../users/logout.asp&quot;&gt;Logout&lt;/a&gt; &lt;/td&gt;
           &lt;/tr&gt;
         &lt;/table&gt;
         &lt;% End If ' end Not rsLogged.EOF Or NOT rsLogged.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-menu-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-menu-bottom-right.jpg&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
      &lt;/table&gt;&lt;/td&gt;
  &lt;/tr&gt;	  
&lt;/table&gt; 


&lt;%
rsLogged.Close()
Set rsLogged = Nothing
%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5Cincludes">Íàçàä</a>]