[ASP] Overzicht van een mapinhoud -> alleen mappen

[Verwijderd]

Goedemiddag,

Ik ben Willem Middelkoop en ik ben bezig met versie 2 van mijn Content Managing systeem. Bij versie 1 heb ik hulp gekregen bij het maken van een foto pagina die dmv een FileSystemObject een map doorloopt op foto bestanden.

Dit CMS werkt prima. Heel blij allemaal (www.woutje.nl en www.cafedepaddestoel.nl).

Maar nu, ik ben zoals gezegt bezig met versie 2. Daarin zijn een X aantal verbeteringen die nu niet ter zake zijn. In deze versie wil ik dat de 'fotocollectieadd' pagina de fotomap (een FTP rootfolder voor een 2e FTP account) kan doorzoeken en alle bestaande mappen weergeeft op de pagina. Dit zodat de gebruiker geen verkeerde naam kan invoeren.

Want wat heel lullig was is dat bij versie 1, wanneer je in plaats van een MAPNAAM een BESTANDSNAAM invoerd het CMS de hele fotocollectie (alle foto's) vrolijk verwijderd...

Gelukkig had ik mezelf hiervoor netjes ingedekt door in de handleiding hele verhalen te typen hoe het wel moest. Geen probleem verder, maar het was wel heel vervelend.

Ik weet dat je met deze code:

code:

<%' 

Dim objFSO    
Dim objFolder 
Dim objItem  



' Create our FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' Get a handle on our folder
Set objFolder = objFSO.GetFolder(Server.MapPath(("./fotomap/" & Fotoindex.Fields.Item("mapnaam").Value)))

%>

hier een stuk HTML

code:

 <%
For Each objItem In objFolder.Files 
if objItem.Type = "JPEG Image" then
%>

stukje HTML waarin het JPG bestand wordt weergegeven

code:

  <%
end if
next

' killer variables
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

%>
</TABLE>
</body>
</html>
<%
Fotoindex.Close()
%>

Nu vraag ik me af, in de code hierboven staat dit:
For Each objItem In objFolder.Files

Kan ik via deze bovenstaande code ook mappen laten weergeven, dus in Map X staan 10 mappen (bijvoorbeeld: a,b,c,d,e,f,g,h,i,j) en dat de ASP pagina netjes een overzichtje geeft?

objFolder.Files moet dat misschien veranderd worden door objFolder.Folders ?

Ik weet het namelijk niet zeker en ik wil niet zorgen voor problemen op de server.
Als je het antwoord weet, of weet waar ik het kan vinden dan hoor ik het graag van je.

[gorgi_19]

Niet helemaal volgens mij..

Hier staat een linkje naar een wat uitgebreidere uitleg over het FSO:
http://www.w3schools.com/asp/asp_ref_folder.asp?output=print

Je kan dan eens kijken bij de property subfolder

[Gert]

Ipv objFolder.Files gebruik je dan objFolder.SubFolders

[Verwijderd]

Dank je, er staat wat ik nodig heb.

[HunterPro]

ik heb zo even je code doorgekeken, en hoe denk jij dat dit ooit HTML kan zijn:

code:

 <%
For Each objItem In objFolder.Files 
if objItem.Type = "JPEG Image" then
%>

en hoe kan dit ooit een image uitvoeren (weergeven):

code:

  <%
end if
next

' killer variables
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

%>
</TABLE>
</body>
</html>
<%
Fotoindex.Close()
%>

Je echo't document response.write immers nergens iets om plaatjes weer te geven. Heb je zelf al door hoe de code moet gaan werken?

[gorgi_19]

|HunterPro| schreef op 15 oktober 2002 @ 12:19:
Je echo't document.write immers nergens iets om plaatjes weer te geven. Heb je zelf al door hoe de code moet gaan werken?

offtopic:
psst... Het is Response.Write... Maar ik denk dat hij een stuk code heeft verwijderd. Sowieso ben ik wel heel benieuwd hoe hij de opbouw heeft gedaan; je kan immers controleren of een ingevoerde naam een folder is en zo ja, dan moet je een extra bevestiging vragen....

[HunterPro]

gorgi_19 schreef op 15 oktober 2002 @ 12:22:
[...]

offtopic:
psst... Het is Response.Write...

same difference het gaat om 't idee, en dat ik al door had dat ik hier geen PHP moet gaan blaten

[Verwijderd]

bij mijn eerste post helemaal boven heb ik de HTML verwijderd

[HunterPro]

Verwijderd schreef op 15 oktober 2002 @ 12:28:
bij mijn eerste post helemaal boven heb ik de HTML verwijderd

dan moet je niet zeggen dat het HTML betreft, anders kom je niet zo geloofwaardig over als je dat soort beweringen maakt

edit:
kun je niet de hele listing in een txt-file ergens beschikbaar maken?

[Verwijderd]

Sorrie als ik mezelf niet helemaal clear had gemaakt, op de plaats waar staat dat ik 'Stukje HTML" bedoelde ik dat daar waar die tekst staat HTML staat.

Ik heb nu een volledig werkend forumlier. Met daarin een Select menuutje waarin alle mappen verschijnen die op de server staan waar die 2FTP account actief is. Dit voorkomt dat men een BESTANDS naam opgeeft en dat dus alle foto's verloren gaan. Ik weet ook dat dit systeem niet helemaal waterdicht is, maar zo heb ik in ieder gval nog een reden voor een versie 3...

Hier is de code in zijn GEHEEL.
note: sommige mensen die niet van Dreamweaver houden zullen de onderstaande code 'om te walgen' vinden. Sorrie maar zo'n mannetje ben ik, het systeem werkt hiermee en de klanten zijn tevreden.

code:

<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="dit heb ik weggehaald, want hierin staan meer 'belangrijke' dingen... ;)" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="fail.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

  MM_editConnection = MM_MainCoreConnection_STRING
  MM_editTable = "Fotocollectie"
  MM_editRedirectUrl = "add_succes.asp"
  MM_fieldsStr  = "collectienaam|value|mapnaam|value|omschrijving|value"
  MM_columnsStr = "collectienaam|',none,''|mapnaam|',none,''|omschrijving|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
set fotogegevens = Server.CreateObject("ADODB.Recordset")
fotogegevens.ActiveConnection = MM_MainCoreConnection_STRING
fotogegevens.Source = "SELECT * FROM Fotocollectie"
fotogegevens.CursorType = 0
fotogegevens.CursorLocation = 2
fotogegevens.LockType = 3
fotogegevens.Open()
fotogegevens_numRows = 0
%>
<html>
<head>
<title>Foto's een naam geven</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function FDK_Validate(FormName, stopOnFailure, AutoSubmit, ErrorHeader)
{
 var theFormName = FormName;
 var theElementName = "";
 if (theFormName.indexOf(".")>=0)  
 {
   theElementName = theFormName.substring(theFormName.indexOf(".")+1)
   theFormName = theFormName.substring(0,theFormName.indexOf("."))
 }
 var ValidationCheck = eval("document."+theFormName+".ValidateForm")
 if (ValidationCheck)  
 {
  var theNameArray = eval(theFormName+"NameArray")
  var theValidationArray = eval(theFormName+"ValidationArray")
  var theFocusArray = eval(theFormName+"FocusArray")
  var ErrorMsg = "";
  var FocusSet = false;
  var i
  var msg
    
 
        // Go through the Validate Array that may or may not exist
        // and call the Validate function for all elements that have one.
  if (String(theNameArray)!="undefined")
  {
   for (i = 0; i < theNameArray.length; i ++)
   {
    msg="";
    if (theNameArray[i].name == theElementName || theElementName == "")
    {
      msg = eval(theValidationArray[i]);
    }
    if (msg != "")
    {
     ErrorMsg += "\n"+msg;                   
     if (stopOnFailure == "1") 
     {
       if (theFocusArray[i] && !FocusSet)  
      {
       FocusSet=true;
       theNameArray[i].focus();
      }
      alert(ErrorHeader+ErrorMsg);
      document.MM_returnValue = false; 
      break;
     }
     else  
     {
      if (theFocusArray[i] && !FocusSet)  
      {
       FocusSet=true;
       theNameArray[i].focus();
      }
     }
    }
   }
  }
  if (ErrorMsg!="" && stopOnFailure != "1") 
  {
   alert(ErrorHeader+ErrorMsg);
  }
  document.MM_returnValue = (ErrorMsg==""); 
  if (document.MM_returnValue && AutoSubmit)  
  {
   eval("document."+FormName+".submit()")
  }
 }
}

function FDK_StripChars(theFilter,theString)
{
    var strOut,i,curChar

    strOut = ""
    for (i=0;i < theString.length; i++)
    {       
        curChar = theString.charAt(i)
        if (theFilter.indexOf(curChar) < 0) // if it's not in the filter, send it thru
            strOut += curChar       
    }   
    return strOut
}

function FDK_AddToValidateArray(FormName,FormElement,Validation,SetFocus)
{
    var TheRoot=eval("document."+FormName);
 
    if (!TheRoot.ValidateForm) 
    {
        TheRoot.ValidateForm = true;
        eval(FormName+"NameArray = new Array()")
        eval(FormName+"ValidationArray = new Array()")
        eval(FormName+"FocusArray = new Array()")
    }
    var ArrayIndex = eval(FormName+"NameArray.length");
    eval(FormName+"NameArray[ArrayIndex] = FormElement");
    eval(FormName+"ValidationArray[ArrayIndex] = Validation");
    eval(FormName+"FocusArray[ArrayIndex] = SetFocus");
 
}

function FDK_ValidateAlphaNum(FormElement,Required,ErrorMsg)
{
    var msg = "";
    var i, m, s, firstNonWhite
    var theString = FormElement.value;
    var msgInvalid = ErrorMsg;

    if (FDK_StripChars(" ",theString).length == 0)       {
        if (!Required)       {
          return "";        
        }
        else       {
          return msgInvalid;
        }
    }
    //Strip spaces off of the sides of the string
    theString = FDK_Trim(theString);

    for (var n=0; n<theString.length; n++)     {
      theChar = theString.substring(n,n+1);
      if (!FDK_AllInRange("0","9",theChar) && !FDK_AllInRange("A","Z",theChar.toUpperCase()) && !(theChar == " "))     {
        return msgInvalid;
      }
    }

    return "";
}

function FDK_Trim(theString)
{
 var i,firstNonWhite

 if (FDK_StripChars(" \n\r\t",theString).length == 0 ) return ""

    i = -1
    while (1)
    {
        i++
        if (theString.charAt(i) != " ")
            break   
    }
    firstNonWhite = i
    //Count the spaces at the end
    i = theString.length
    while (1)
    {
        i--
        if (theString.charAt(i) != " ")
            break   
    }   

    return theString.substring(firstNonWhite,i + 1)

}

function FDK_AllInRange(x,y,theString)
{
    var i, curChar
    
    for (i=0; i < theString.length; i++)
    {
        curChar = theString.charAt(i)
        if (curChar < x || curChar > y) //the char is not in range
            return false
    }
    return true
}

function FDK_AddAlphaNumericValidation(FormName,FormElementName,Required,SetFocus,ErrorMsg)  {
  var ValString = "FDK_ValidateAlphaNum("+FormElementName+","+Required+","+ErrorMsg+")"
  FDK_AddToValidateArray(FormName,eval(FormElementName),ValString,SetFocus)
}

function FDK_ValidateNonBlank(FormElement,ErrorMsg)
{
  var msg = ErrorMsg;
  var val = FormElement.value;  

  if (!(FDK_StripChars(" \n\t\r",val).length == 0))
  {
     msg="";
  }

  return msg;
}

function FDK_AddNonBlankValidation(FormName,FormElementName,SetFocus,ErrorMsg)  {
  var ValString = "FDK_ValidateNonBlank("+FormElementName+","+ErrorMsg+")"
  FDK_AddToValidateArray(FormName,eval(FormElementName),ValString,SetFocus)
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" background="../illustraties/beige182.jpg" link="#0000FF" vlink="#0000FF" alink="#0000FF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="98%" border="0" height="98%" align="center">
<table width="98%" border="0" height="98%" align="center">
  <tr> 
    <td align="center" valign="middle"> 
      <table width="75%" border="5" bordercolor="#0099FF" cellpadding="2" cellspacing="0">
        <tr> 
          <td bgcolor="#0000FF" width="97%"><b><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif">Foto's 
            een naam geven</font></b></td>
          <td bgcolor="#0000FF" width="3%"> 
            <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><i><b><font color="#0099FF" size="1">WE 
              </font></b></i></font></div>
          </td>
        </tr>
        <tr bgcolor="#D5F0FF"> 
          <td colspan="2"> <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">U 
              wilt de foto's een naam geven. Let op: dit kunt u pas doen als u 
              op de vorige pagina stap 1 heeft doorlopen.<br>
              <br>
              [img]"../illustraties/arrows_blue_054.gif"[/img] 
              <a href="add_1.asp">Ik wil terug naar de vorige pagina om stap 1 
              uit te voeren...</a></font></p>
            <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Heeft 
              u stap 1 doorlopen en zijn de foto's gekopi&euml;erd? Vul dan de 
              onderstaande velden in:</font> </p>
            <form action="<%=MM_editAction%>" method="POST" name="form1">
              <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Collectienaam</b><br>
                Bedenk een leuke pakkende naam voor uw nieuwe fotocollectie:<br>
<!--Created by Willem L. Middelkoop [e-mail] www.WEwebdesign.tk -->
<%' 

Dim objFSO    
Dim objFolder 
Dim objItem  



' Create our FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' Get a handle on our folder
Set objFolder = objFSO.GetFolder(Server.MapPath(("/fotomap/")))

%>
                <input type="text" name="collectienaam" size="50">      
                <br>
                </font></p>
              <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Mapnaam</b><br>
                Kies hier de naam van de map op waarin de foto's staan:<br>
                <select name="mapnaam" id="mapnaam">
<%               For Each objItem In objFolder.SubFolders
%>
                <option value="<%= objItem.Name %>"><%= objItem.Name %></option>

  <%
next

' killer variables
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

%>                </select>
                <br>
                [img]"../illustraties/arrows_blue_054.gif"[/img] 
                <a href="add_uitlegfotomap.asp">Ik snap het niet en ik wil uitleg... 
                (opent zich in een nieuw venster)</a> </font></p>
              <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Omschrijving</b><br>
                Hier kunt u een omschrijving plaatsen, dat is echter niet verplicht.<br>
                <textarea name="omschrijving" cols="50" rows="7" wrap="VIRTUAL"></textarea>
                </font></p>
              <p> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">Klik 
                op OPSLAAN als u alle gegevens correct heeft ingevuld:<br>
                <input type="submit" name="Submit" value="Opslaan" onClick="FDK_AddNonBlankValidation('form1','document.form1.collectienaam',true,'\'Het is verplicht om een collectienaam op te geven voor een juiste indexering!\'');FDK_AddAlphaNumericValidation('form1','document.form1.mapnaam',true,true,'\'De naam van de map mag alleen uit letters en of cijfers bestaan. Dus geen punten of comma\\\'s en spaties.\'');FDK_Validate('form1',true,false,'De nieuwe invoer kon niet gemaakt worden:\n\n');return document.MM_returnValue">
                </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
                <input type="hidden" name="MM_insert" value="form1">
                </font> </p>
            </form>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
<%
fotogegevens.Close()
%>

[Crazy D]

even offtopic: ga jij eens heel snel stylesheets gebruiken ipv alle fonts en de hele rattaplan in de html code te verweven