Vai al contenuto

aiuto asp web file manager

lord amarant

da lord amarant
in Software

 Condividi

Messaggi Raccomandati:

lord amarant Leader del Campionato

lord amarant

Inviato
Inviato

ragazzi mi occorrerebbe un piccolo aiutino.

stiamo facendo la intranet aziendale in .asp(si lo so che è un linguaggio sorpassato ma che ci posso fare, volesi cosi colà dove si puote ciò che si vole:|)

mi occorrerebbe una funzione che mi faccia da simil file manager.

nel senso il collega butta le circolari nella sua cartella sul server e sulla intranet viene visualizzato il contenuto della cartella, possibilmente permettendo di visualizzare o scaricare le circolari.

io ho fatto una roba del genere facendo taglia incolla però non mi funziona benissimo

<%@LANGUAGE = VBScript%><%

Dim cartella, sotto

cartella = Request.QueryString("cartella")

sotto = Request.QueryString("sotto")

Dim fso, percorso

Set fso = Server.CreateObject("Scripting.FileSystemObject")

percorso = "E:\utenti\area fiscale\documentazione polsini" & cartella & "\" & sotto

%>

<html>

<body>

<p><b>Cartella:</b> <%=percorso%></p>

<table cellpadding="1" cellspacing="0">

<tr bgcolor="#EEEEEE">

<td colspan="2"><b>Elemento</b></td>

<td colspan="2"><b>Tipo</b></td>

<td colspan="2"><b>Dimensione</b></td>

<td colspan="2"><b>Data creazione</b></td>

<td colspan="2"><b>Daya ultimo accesso</b></td>

<td colspan="2"><b>Data ultima modifica</b></td>

</tr>

<%

Function genera()

If sotto = "" Then

Response.Write File.Name

Else

Response.Write sotto & "\" & File.Name

End If

End Function

For Each File in fso.GetFolder(percorso).SubFolders

%>

<tr>

<td><img src="cartella.gif"></td>

<td>

<a href="corpo.asp

?cartella=<%=cartella%>

&sotto=<%Call genera()%>"><%=File.Name%></a>

</td>

<td>|</td>

<td><%=File.Type%></td>

<td>|</td>

<td><%=FormatNumber(File.Size, 0)%></td>

<td>|</td>

<td><%=File.DateCreated%></td>

<td>|</td>

<td><%=File.DateLastAccessed%></td>

<td><%=File.DateLastModified%></td>

</tr>

<%

Next

For Each File in fso.GetFolder(percorso).Files

%>

<tr>

<tr>

<td><img src="<%=fso.GetExtensionName(File.Name)%>.gif"></td>

<td>

<a href="<%=percorso & "\" & File.Name%>"

target="_blank"><%=File.Name%></a>

</td>

<td>|</td>

<td><%=File.Type%></td>

<td>|</td>

<td><%=FormatNumber(File.Size, 0)%></td>

<td>|</td>

<td><%=File.DateCreated%></td>

<td>|</td>

<td><%=File.DateLastAccessed%></td>

<td>|</td>

<td><%=File.DateLastModified%></td>

</tr>

</tr>

<%

Next

%>

</table>

</body>

</html>

<%

Set fso = Nothing

%>

qualche idea(o anche soluzione pronta in toto che sono network man io di ste robe capisco una cippa:mrgreen:)

i'm the Doctor, but beyond that, I.. I just don't know. I literally do not know who I am. It's all untested. Am I funny? Am I sarcastic? Sexy? Right old misery? Life and soul? Right-handed? Left-handed? A gambler? A fighter? A coward? A traitor or a liar? A nervous wreck? I mean, judging by the evidence, I've certainly got a gob.

Link al commento
Condividi su altri Social

Crea un account o accedi per lasciare un commento

Devi essere iscritto per commentare e visualizzare le sezioni protette!

Crea un account

Iscriviti nella nostra community. È facile!

Registra un nuovo account

Accedi

Sei già registrato? Accedi qui.

Accedi Ora
 Condividi
Vai alla lista Discussioni
×
×
  • Crea Nuovo...

 

Stiamo sperimentando dei banner pubblicitari a minima invasività: fai una prova e poi facci sapere come va!

Per accedere al forum, disabilita l'AdBlock per questo sito e poi clicca su accetta: ci sarai di grande aiuto! Grazie!

Se non sai come si fa, puoi pensarci più avanti, cliccando su "ci penso" per continuare temporaneamente a navigare. Periodicamente ricomparità questo avviso come promemoria.

Accetto!
Ci penso...