Visualizzazione files in directory sul server

[viki1967]

Ciao a tutti; ho questo problema "organizzativo" e non ho idea come risoverlo.

Ho una serie di cartelle, ognuna nominata con il nome di una diversa località d'Italia che sono state create su un server e nelle quali sono caricati una serie di files di diverso formato (jpg, gif, pdf, doc), contenenti informazioni varie su quella determinata località; il numero dei files all'interno di ciascuna cartella è diverso da località a località.

In un db access invece ho, invece, memorizzato tutte le località con le informazioni generali; ogni id della tabella corrisponde ad una località; con il seguente comando:

<a href="pagina.asp?<%=id%>">

passo l'id alla pagina.asp e visualizzo i dati generali contenuti nella tabella località del db access, ad esempio Riccione... ma come faccio ad associare e, quindi, a visualizzare i files contenuti nella cartella "Riccione" caricata sul server?

Grazie mille.

[weppos]

Leggi la cartella
http://www.weppos.com/asp/script/scr....asp?script=25

[viki1967]

garzie weppos conosco l'articolo... ma non riesco a capire come associare l'id (passato in querystring alla pagina asp che processa i dati del db access della località Riccione) alla cartella Riccione... :master:

[weppos]

Inserisci un nuovo campo nel database dove a ciascun id/località ci assegni il percorso.

In fase di lettura dell'ID recuperi anche la cartella che passerai come parametro alla funzione di lettura.

[viki1967]

Grazie, fatto!!!!

<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/db.mdb")

id=request.querystring("id")

strSQL = "select * from localita where id="&id
response.write strSQL&"
"
set rec = server.createObject("ADODB.Recordset")
rec.open strSQL, conn, 1, 3

if rec.eof then 
response.write "ko"
else
While Not rec.EOF 

cartella = rec("cartella")

Dim objFso, objFolder, objFiles, strFolder, strFile
strPath = cartella
     
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files

For Each strFile in objFiles
    Response.Write(strFile.name & " - " & strFile.Size & "
")
Next 
     
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing

rec.MoveNext
wend
end if

rec.close
set rec = nothing

Conn.Close
set Conn = Nothing
%>

[viki1967]

... scusate come rendo linkabile questa stringa?

Response.Write(strFile.name & " - " & strFile.Size & "
")

[weppos]

Inserendola dentro un tah <a></a> che denota un link in HTML.

[viki1967]

perchè non va?:

For Each strFile in objFiles %>

<%
Next

[weppos]

Che errore ti dà?

[viki1967]

Grazie... ho risolto :

<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/db.mdb")

id=request.querystring("id")

strSQL = "select * from localita where id="&id
response.write strSQL&"
"
set rec = server.createObject("ADODB.Recordset")
rec.open strSQL, conn, 1, 3

if rec.eof then 
response.write "ko"
else
While Not rec.EOF 

cartella = rec("cartella")

Dim objFso, objFolder, objFiles, strFolder, strFile
strPath = cartella
     
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files

For Each strFile in objFiles

font size="1" face="Verdana">
<div align="left">
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; text-align: left" bordercolor="#111111" id="AutoNumber1" align="left">
    <tr>
      <td>

<font size="1" face="Verdana"><%=strFile.Size%>
</font>
      </td>
      <td></td>
      <td>
<font size="1" face="Verdana"><a href="<%=strPath%>/<%=strFile.name%>">

<% 
ext=right(strFile.name,3)
select case ext 
case "pdf","asp","htm","mdb","xls","ppt","doc","txt" %>
      


[img]images/<%= ext %>.jpg[/img]
<% case else %>
[img]images/unk.jpg[/img]
<% end select %> </a></font></td>
      <td>
<font size="1" face="Verdana"><a href="<%=strPath%>/<%=strFile.name%>">

<% =strFile.name %></a></font></td>
      <td></td>
    </tr>
    <tr>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
    </tr>
  </table>
</div>
</font>
<% 
Next 
     
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing

rec.MoveNext
wend
end if

rec.close
set rec = nothing

Conn.Close
set Conn = Nothing
%>