Vai al contenuto
View in the app

A better way to browse. Learn more.
Autopareri

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Home Page - Messaggi non Letti - Discussioni Seguite - Seguici su facebook - Regolamento

aiuto asp web file manager

da lord amarant
in Software

Featured Replies

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.

Crea un account o accedi per lasciare un commento

Vai alla lista Discussioni

Home Page - Messaggi non Letti - Discussioni Seguite - Regolamento

Contenuti simili

Background Picker
Customize Layout

Configure browser push notifications
Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.