Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\ScriptLibrary\incFSClass.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\ScriptLibrary&file=incFSClass.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;SCRIPT LANGUAGE=&quot;VBScript&quot; RUNAT=&quot;SERVER&quot;&gt;
'*** File Genie ----------------------------------------------------
' Copyright 2001-2002 (c) George Petrov, www.DMXzone.com
'
' Version: 1.0.3
'------------------------------------------------------------------------------

Class FolderList
	Private m_FL
  Private m_fso
  Private m_Path
  Private m_allowedExt
  Private m_includeFolders
  Private m_Count
  Private m_ThumbnailsSuffix
  Private m_ShowsThumbnailsOnly
  Private m_officeAttributes
  Private m_index
  Private m_pageRecs
  Private m_curPageRecs
  Private m_pageCols
  Private m_curCol
	
	Private Sub Class_Initialize()
    Set m_fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)  
    Set m_FL = CreateObject(&quot;Scripting.Dictionary&quot;)
    m_Path = &quot;&quot;
    m_allowedExt = &quot;&quot;
    m_includeFolders = False
    m_Count = 0
    m_ThumbnailsSuffix = &quot;_small&quot;
    m_ShowsThumbmailssOnly = False
    m_pageRecs = 0
    m_curPageRecs = 2
    m_pageCols = 1
    m_curCol = 1
    m_index = 0
    If Request.QueryString(&quot;flOffset&quot;) &lt;&gt; &quot;&quot; then m_index = CLng(Request.QueryString(&quot;flOffset&quot;))-1
	End Sub

	Private Sub Class_Terminate()
    Dim fi
    For fi = 1 to m_Count
      Set m_FL.Item(fi) = nothing
    Next
    m_Count = 0
    Set m_fso = Nothing
    Set m_FL = Nothing
	End Sub
  
  Public Function Files(fl_attr)
    if m_index &gt;= 0 then
      if m_FL.Exists(m_index) then
        Files = m_FL.Item(m_index).Item(fl_attr)
      end if
    end if  
  End Function
	
	Public Property Get Path()
		Path = m_Path
	End Property
	
	Public Property Let Path(FL_Path)
		m_Path = FL_Path
    if right(m_Path,1) &lt;&gt; &quot;/&quot; then m_Path = m_Path &amp; &quot;/&quot;
	End Property

	Public Property Get allowedExtensions()
		allowedExtensions = m_allowedExt
	End Property
	
	Public Property Let allowedExtensions(FL_allowedExt)
		m_allowedExt = FL_allowedExt
    if m_allowedExt &lt;&gt; &quot;&quot; then m_allowedExt = &quot;,&quot; &amp; UCase(m_allowedExt) &amp; &quot;,&quot;
	End Property

	Public Property Get ShowThumbnailsOnly()
		ShowThumbnailsOnly = m_ShowsThumbnailsOnly
	End Property
	
	Public Property Let ShowThumbnailsOnly(FL_ShowsThumbnailsOnly)
		m_ShowsThumbnailsOnly = FL_ShowsThumbnailsOnly
	End Property  

	Public Property Get ThumbnailsSuffix()
		ThumbnailsSuffix = m_ThumbnailsSuffix
	End Property
	
	Public Property Let ThumbnailsSuffix(FL_ThumbnailsSuffix)
		m_ThumbnailsSuffix = FL_ThumbnailsSuffix
	End Property  

	Public Property Get OfficeAttributes()
		OfficeAttributes = m_officeAttributes
	End Property
	
	Public Property Let OfficeAttributes(FL_officeAttributes)
		m_officeAttributes = FL_officeAttributes
	End Property  
  
	Public Property Get includeFolders()
		includeFolders = m_includeFolders
	End Property
	
	Public Property Let includeFolders(FL_includeFolders)
		m_includeFolders = FL_includeFolders
	End Property

	Public Property Get pageRecs()
		pageRecs = m_pageRecs
	End Property
	
	Public Property Let pageRecs(FL_pageRecs)
		m_pageRecs = FL_pageRecs
		if m_pageRecs &gt; 0 then
			m_curPageRecs = m_pageRecs    
		end if	
	End Property

	Public Property Get pageCols()
		pageCols = m_pageCols
	End Property
	
	Public Property Let pageCols(FL_pageCols)
		m_pageCols = FL_pageCols
	End Property
  
  Public Function CanRepeat()
    if m_index &lt; m_count and m_curPageRecs &lt;&gt; 0 then
      CanRepeat = true
    else
      CanRepeat = false
    end if    
  End Function  

  Public Function IsLastColumn()
    if m_curCol = m_pageCols and (m_index &lt; m_count - 1 and m_curPageRecs &lt;&gt; 1) then
      m_curCol = 0
      IsLastColumn = true
    else
      IsLastColumn = false
    end if    
  End Function  
  
  Public Sub MoveNext()
    m_index = m_index + 1
    if m_pageRecs &gt; 0 then
      m_curPageRecs = m_curPageRecs - 1
    end if  
    m_curCol = m_curCol + 1  
  End Sub
  
  Public Sub EndRepeater()
    while m_curCol - 1 &lt; m_pageCols
      Response.Write &quot;&lt;td&gt;&amp;nbsp;&lt;/td&gt;&quot;
      m_curCol = m_curCol + 1
    wend 
  End Sub
  
	Public Property Get Count()
		Count = m_count
	End Property
	
  Private Sub ProcessFolder(FL_Path)
    Dim FL_file_name,FL_file_ext,FL_dp,FL_file,FL_file_obj
    Dim FL_index,FL_folder,FL_folders

    Set FL_fld = m_fso.GetFolder(Server.MapPath(FL_Path))
    FL_index = 0
    
    if m_includeFolders then
      Set FL_folders = FL_fld.SubFolders
      For Each FL_folder in FL_folders
        Set FL_file_obj = CreateObject(&quot;Scripting.Dictionary&quot;)
        FL_file_obj.Add &quot;Path&quot;, FL_Path &amp; FL_folder.Name
        FL_file_obj.Add &quot;Name&quot;, FL_folder.Name
        FL_file_obj.Add &quot;FileName&quot;, FL_folder.Name
        FL_file_obj.Add &quot;Extension&quot;, FL_file_ext
        FL_file_obj.Add &quot;Thumbnail_name&quot;, FL_folder.Name
        FL_file_obj.Add &quot;Thumbnail_image&quot;, &quot;&quot;
        FL_file_obj.Add &quot;Type&quot;, FL_folder.Type
        FL_file_obj.Add &quot;Size&quot;, FL_folder.Size
        FL_file_obj.Add &quot;Size_name&quot;, getSizeName(FL_folder.Size)
        FL_file_obj.Add &quot;DateLastModified&quot;, FL_folder.DateLastModified 
        FL_file_obj.Add &quot;Attributes&quot;, FL_folder.Attributes
        m_FL.Add FL_index, FL_file_obj
        FL_index = FL_index + 1
      Next            
    end if
    
    Set FL_files = FL_fld.Files
    For Each FL_file in FL_files
      FL_file_name = FL_file.Name
      FL_file_ext = &quot;&quot;
      FL_dp = InStrRev(FL_file.Name,&quot;.&quot;)
      if FL_dp &gt; 0 then
      	FL_file_ext = right(FL_file.Name,len(FL_file.Name)-FL_dp)
      	FL_file_name = left(FL_file.Name,FL_dp-1)	
      end if
      if m_allowedExt = &quot;&quot; or (m_allowedExt &lt;&gt; &quot;&quot; and InStr(m_allowedExt,&quot;,&quot; &amp; UCase(FL_file_ext) &amp; &quot;,&quot;) &gt; 0) then
        if not m_ShowsThumbnailsOnly then          
          Set FL_file_obj = CreateObject(&quot;Scripting.Dictionary&quot;)
          FL_file_obj.Add &quot;Path&quot;, FL_Path &amp; FL_file.Name
          FL_file_obj.Add &quot;Name&quot;, FL_file.Name
          FL_file_obj.Add &quot;FileName&quot;, FL_file_name
          FL_file_obj.Add &quot;Extension&quot;, FL_file_ext
          FL_file_obj.Add &quot;Thumbnail_name&quot;, FL_Path &amp; getThumbnailName(m_ThumbnailsSuffix,FL_file.Name)          
          FL_file_obj.Add &quot;Thumbnail_image&quot;, &quot;&lt;img src=&quot;&quot;&quot; &amp; FL_Path &amp; getThumbnailName(m_ThumbnailsSuffix,FL_file.Name) &amp; &quot;&quot;&quot;&gt;&quot;                   
          FL_file_obj.Add &quot;Type&quot;, FL_file.Type
          FL_file_obj.Add &quot;Size&quot;, FL_file.Size
          FL_file_obj.Add &quot;Size_name&quot;, getSizeName(FL_file.Size)
          FL_file_obj.Add &quot;DateLastModified&quot;, FL_file.DateLastModified 
          FL_file_obj.Add &quot;Attributes&quot;, FL_file.Attributes
          m_FL.Add FL_index, FL_file_obj
          FL_index = FL_index + 1
        else
          if m_ShowsThumbnailsOnly and InStr(UCase(FL_file.Name),UCase(m_ThumbnailsSuffix)&amp;&quot;.&quot;) &gt; 0 then           
            Set FL_file_obj = CreateObject(&quot;Scripting.Dictionary&quot;)
            FL_realFileName = getRealNameFromThumbnail(FL_Path,FL_file.Name)
            if FL_realFileName &lt;&gt; &quot;&quot; then
              Set RFL_file = m_fso.GetFile(Server.MapPath(FL_Path &amp; FL_realFileName))
              FL_file_obj.Add &quot;Path&quot;, FL_Path &amp; RFL_file.Name
              FL_file_obj.Add &quot;Name&quot;, RFL_file.Name
              FL_file_obj.Add &quot;FileName&quot;, getFileName(RFL_file.Name)
              FL_file_obj.Add &quot;Extension&quot;, getFileExtension(RFL_file.Name)
              FL_file_obj.Add &quot;Thumbnail_name&quot;, FL_Path &amp; getThumbnailName(m_ThumbnailsSuffix,RFL_file.Name)
              FL_file_obj.Add &quot;Thumbnail_image&quot;, &quot;&lt;img src=&quot;&quot;&quot; &amp; FL_Path &amp; getThumbnailName(m_ThumbnailsSuffix,RFL_file.Name) &amp; &quot;&quot;&quot;&gt;&quot;                                 
              FL_file_obj.Add &quot;Type&quot;, RFL_file.Type
              FL_file_obj.Add &quot;Size&quot;, RFL_file.Size
              FL_file_obj.Add &quot;Size_name&quot;, getSizeName(RFL_file.Size)
              FL_file_obj.Add &quot;DateLastModified&quot;, RFL_file.DateLastModified 
              FL_file_obj.Add &quot;Attributes&quot;, RFL_file.Attributes
              m_FL.Add FL_index, FL_file_obj
              FL_index = FL_index + 1
            end if  
          end if
        end if
      end if
    next
    m_Count = m_Count + FL_index
  End Sub  
  
  Private Function getRealNameFromThumbnail(TN_path,TN_filename)
    Dim GTN_fso, GTN_file_name, GTN_file_ext, GTN_dp
    GTN_file_name = TN_filename
    GTN_file_ext = &quot;&quot;
    GTN_dp = InStrRev(TN_filename,&quot;.&quot;)
    if GTN_dp &gt; 0 then
    	GTN_file_ext = right(TN_filename,len(TN_filename)-GTN_dp)
    	GTN_file_name = left(TN_filename,GTN_dp-1)	
    end if
	  GTN_file_name = Left(GTN_file_name,Len(GTN_file_name)-Len(m_ThumbnailsSuffix))	
    GTN_path_file_name = Server.MapPath(TN_Path) &amp; &quot;\&quot; &amp; GTN_file_name
    Set GTN_fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
    If (GTN_fso.FileExists(GTN_path_file_name &amp; &quot;.jpg&quot;)) Then
      getRealNameFromThumbnail = GTN_file_name &amp; &quot;.jpg&quot;
    Else
      If (GTN_fso.FileExists(GTN_path_file_name &amp; &quot;.gif&quot;)) Then
        getRealNameFromThumbnail = GTN_file_name &amp; &quot;.gif&quot;
      Else
        If (GTN_fso.FileExists(GTN_path_file_name &amp; &quot;.png&quot;)) Then
          getRealNameFromThumbnail = GTN_file_name &amp; &quot;.png&quot;
        Else
          If (GTN_fso.FileExists(GTN_path_file_name &amp; &quot;.bmp&quot;)) Then
            getRealNameFromThumbnail = GTN_file_name &amp; &quot;.bmp&quot;
          Else
            If (GTN_fso.FileExists(GTN_path_file_name &amp; &quot;.tiff&quot;)) Then
              getRealNameFromThumbnail = GTN_file_name &amp; &quot;.tiff&quot;
            end if
          end if
        end if
      end if
    end if  
    Set GTN_fso = nothing
  End Function

  Private Function getFileName(T_filename)
    Dim GTN_file_name, GTN_file_ext, GTN_dp
    GTN_file_name = T_filename
    GTN_file_ext = &quot;&quot;
    GTN_dp = InStrRev(T_filename,&quot;.&quot;)
    if GTN_dp &gt; 0 then
    	GTN_file_ext = right(T_filename,len(T_filename)-GTN_dp)
    	GTN_file_name = left(T_filename,GTN_dp-1)	
    end if
    getFileName = GTN_file_name
  End Function

  Private Function getFileExtension(T_filename)
    Dim GTN_file_name, GTN_file_ext, GTN_dp
    GTN_file_name = T_filename
    GTN_file_ext = &quot;&quot;
    GTN_dp = InStrRev(T_filename,&quot;.&quot;)
    if GTN_dp &gt; 0 then
    	GTN_file_ext = right(T_filename,len(T_filename)-GTN_dp)
    	GTN_file_name = left(T_filename,GTN_dp-1)	
    end if
    getFileExtension = GTN_file_ext
  End Function
  
  Private Function getSizeName(fg_FileSize)
    Dim numFileSize, newFileSize
    if not isnull(fg_FileSize) then
      numFileSize = CLng(fg_FileSize)
      if numFileSize &lt; 1024 then
        newFileSize = numFileSize &amp; &quot; Bytes&quot;
      elseif numFileSize &gt;= 1024 and numFileSize &lt; 1048576 then
        newFileSize = round((numFileSize/1024),0) &amp; &quot; KB&quot;  
      elseif numFileSize &gt;= 1048576 then
        newFileSize = round((numFileSize/1048576),2) &amp; &quot; MB&quot;  
      end if
    end if  
    getSizeName = newFileSize
  end function  
  
  Private Function getThumbnailName(GTN_suff,GTN_filename)
    Dim GTN_NewFilename, GTN_Path, GTN_PosPath, GTN_PosExt
    if not isnull(GTN_filename) then
      GTN_PosPath = InStrRev(GTN_filename,&quot;/&quot;)
      GTN_Path = &quot;&quot;
      if GTN_PosPath &gt; 0 then
        GTN_Path = mid(GTN_filename,1,GTN_PosPath)
      end if
      GTN_PosExt = InStrRev(GTN_filename,&quot;.&quot;)
      if InStr(LCase(GTN_filename),LCase(GTN_suff) &amp; &quot;.&quot;) = 0 then
        if GTN_PosExt &gt; 0 then
          GTN_NewFilename = GTN_Path &amp; mid(GTN_filename,GTN_PosPath+1,GTN_PosExt-(GTN_PosPath+1)) &amp; GTN_suff &amp; &quot;.jpg&quot;
        else
          GTN_NewFilename = GTN_Path &amp; mid(GTN_filename,GTN_PosPath+1,len(GTN_filename)-GTN_PosPath) &amp; GTN_suff &amp; &quot;.jpg&quot;
        end if
      end if  
    end if
    getThumbnailName = GTN_NewFilename
  end function  

  Private Sub ProcessOfficeAttributes()
    Dim objDSOfile, OA_keys, OA_i, OA_curKey, FL_file_obj
    Set objDSOfile = Server.CreateObject(&quot;DSOleFile.PropertyReader&quot;)
        
    OA_keys = m_FL.Keys
    for OA_i = 0 to m_FL.Count - 1
      OA_curKey = OA_keys(OA_i)
      Set FL_file_obj = m_FL.Item(OA_curKey)
      FL_fullPath = Server.MapPath(m_FL.Item(OA_curKey).Item(&quot;Path&quot;))
      Set oDocProp = objDSOfile.GetDocumentProperties(FL_fullPath)

      on error resume next  
      FL_file_obj.Add &quot;AppName&quot;, oDocProp.AppName
      FL_file_obj.Add &quot;Title&quot;, oDocProp.Title
      FL_file_obj.Add &quot;Author&quot;, oDocProp.Author
      FL_file_obj.Add &quot;Comments&quot;, oDocProp.Comments
      FL_file_obj.Add &quot;Subject&quot;, oDocProp.Subject
      FL_file_obj.Add &quot;Category&quot;, oDocProp.Category
      FL_file_obj.Add &quot;Company&quot;, oDocProp.Company
      FL_file_obj.Add &quot;Manager&quot;, oDocProp.Manager
      FL_file_obj.Add &quot;WordCount&quot;, oDocProp.WordCount
      FL_file_obj.Add &quot;PageCount&quot;, oDocProp.PageCount
      FL_file_obj.Add &quot;ParagraphCount&quot;, oDocProp.ParagraphCount
      FL_file_obj.Add &quot;LineCount&quot;, oDocProp.LineCount
      FL_file_obj.Add &quot;LastEditedBy&quot;, oDocProp.LastEditedBy
      FL_file_obj.Add &quot;DateCreated&quot;, oDocProp.DateCreated
      FL_file_obj.Add &quot;DateLastPrinted&quot;, oDocProp.DateLastPrinted
      FL_file_obj.Add &quot;DateLastSaved&quot;, oDocProp.DateLastSaved
      FL_file_obj.Add &quot;Version&quot;, oDocProp.Version
      FL_file_obj.Add &quot;RevisionNumber&quot;, oDocProp.RevisionNumber
      on error goto 0
      Set oDocProp = nothing      
    next  
    Set objDSOfile = nothing
    
  End Sub
  
  Private Sub CheckForDSOfile()
    Dim objDSOfile
    on error resume next
    Set objDSOfile = Server.CreateObject(&quot;DSOleFile.PropertyReader&quot;)
    if err.number &lt;&gt; 0 then
      Response.Write &quot;DSOfile Server Component is not installed!&lt;br&gt;If you want to read the Office Document properties you need to install this component.&lt;br&gt;Otherwise don't select the &quot;&quot;Include Extended Office Attributes&quot;&quot; option&quot;
      Response.End
    end if
    on error goto 0
    Set objDSOfile = nothing    
  End Sub
  
	Public Sub ReadFolder()
    if m_officeAttributes then
      CheckForDSOfile
    end if
		ProcessFolder m_Path
    if m_officeAttributes then
      ProcessOfficeAttributes
    end if
	End Sub
  
	Public Sub DisplayNavigation(FL_navType, FL_navDelimeter) 
		Dim navBar, currentPage, nav_i, pageStep, endPageRec, pageNum
		navBar = &quot;&quot;
    if m_pageRecs &lt;&gt; 0 then
  		if FL_navDelimeter = &quot;&quot; then FL_navDelimeter = &quot;|&quot;
  		if m_pageRecs &gt; 0 then
  			pageStep = m_pageRecs
  		else
  			pageStep = 1
  		end if	
  		currentPage = Request.ServerVariables(&quot;SCRIPT_NAME&quot;)
  		select case FL_navType
  		case 1 'List Recs
  			for nav_i = 1 to m_count step pageStep
  				endPageRec = (nav_i-1)+pageStep
  				if endPageRec &gt; m_count then endPageRec = m_count
  				if m_index &gt;= nav_i and m_index &lt;= endPageRec then
  					navBar = navBar &amp; &quot;&lt;b&gt;&quot; &amp; nav_i &amp; &quot; - &quot; &amp; endPageRec &amp; &quot;&lt;/b&gt; &quot; &amp; FL_navDelimeter &amp; &quot; &quot;
  				else
  					navBar = navBar &amp; &quot;&lt;a href=&quot;&quot;&quot; &amp; currentPage &amp; &quot;?flOffset=&quot; &amp; nav_i &amp; &quot;&quot;&quot;&gt;&quot; &amp; nav_i &amp; &quot; - &quot; &amp; endPageRec &amp; &quot;&lt;/a&gt;&quot; &amp; &quot; &quot; &amp; FL_navDelimeter &amp; &quot; &quot;
  				end if					
  			next	
  			if Len(navBar) &gt; len(FL_navDelimeter)+2 then
  				navBar = left(navBar,len(navBar)-(len(FL_navDelimeter)+2))
  			end if
  		case 2 'Page Recs
  			pageNum = 1
  			for nav_i = 1 to m_count step pageStep
  				if m_index &gt;= nav_i and m_index &lt;= (nav_i-1)+pageStep then
  					navBar = navBar &amp; &quot;&lt;b&gt;&quot; &amp; pageNum &amp; &quot;&lt;/b&gt; &quot; &amp; FL_navDelimeter &amp; &quot; &quot;
  				else
  					navBar = navBar &amp; &quot;&lt;a href=&quot;&quot;&quot; &amp; currentPage &amp; &quot;?flOffset=&quot; &amp; nav_i &amp; &quot;&quot;&quot;&gt;&quot; &amp; pageNum &amp; &quot;&lt;/a&gt;&quot; &amp; &quot; &quot; &amp; FL_navDelimeter &amp; &quot; &quot;
  				end if					
  				pageNum = pageNum + 1
  			next	
  			if Len(navBar) &gt; len(FL_navDelimeter)+2 then
  				navBar = left(navBar,len(navBar)-(len(FL_navDelimeter)+2))
  			end if			
  		end select
  		Response.Write navBar
    End If
	End Sub
  
  Public Function getDeleteLink()
    Dim currentPage
		currentPage = Request.ServerVariables(&quot;SCRIPT_NAME&quot;)      
    getDeleteLink = currentPage &amp; &quot;?Action=delete&amp;file=&quot; &amp; Server.Urlencode(Files(&quot;Path&quot;))
  End Function
  
End Class

Function CreateFolderList()
	Set CreateFolderList = New FolderList
End Function

Sub fm_DeleteListedFile()
  Dim fileToDelete,currentPage, cur_fso
  Set cur_fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)  
  if LCase(Request.QueryString(&quot;Action&quot;)) = &quot;delete&quot; then
    if Request.QueryString(&quot;file&quot;) &lt;&gt; &quot;&quot; then
  		currentPage = Request.ServerVariables(&quot;SCRIPT_NAME&quot;)      
      fileToDelete = Server.MapPath(Request.QueryString(&quot;file&quot;))
      if cur_fso.FileExists(fileToDelete) then
        cur_fso.DeleteFile fileToDelete,true
      elseif cur_fso.FolderExists(fileToDelete) then
        cur_fso.DeleteFolder fileToDelete,true
      end if
      Response.Redirect currentPage     
    end if        
  end if
End Sub  


&lt;/SCRIPT&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5CScriptLibrary">Íàçàä</a>]