Script per lettura contenuto HD

[orcim]

Ciao.

Qualcuno conosce uno script asp già pronto che legga le cartelle, ed i files sul server e cliccando sui files li faccia aprire ?

Grazie

[lucacasu]

<%dir="/public"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath("public"))
Set file3 = file2.Files
For Each file in file3
response.write "<A HREF='public/"
response.write file.name
response.write "'>"
response.write file.name
response.write "</A>
"
Next
%>

[santino83]

io rispolvero un mio script:

LEGGI QUI

[orcim]

Grazie.

Con il codice di lucacasu leggo solo i files (linkabili) e non le cartelle.

Con il codice di Santino leggo cartelle, leggo files ma i files non sono linkabili.

Cercando su google ho trovato questo script.

Lo script va bene fa tutto quello che ho in mente, l'unica cosa che invece di fare il download dei files li apre sul browser mostrando caratteri incomprensibili, ecco un esempio di un file pdf:

%PDF-1.4
%âãÏÓ
9 0 obj <</Linearized 1/L 21278/O 11/E 16219/N 2/T 21052/H [ 936 212]>>
endobj
                   
xref
9 32
0000000016 00000 n
0000001148 00000 n
0000001225 00000 n
0000001359 00000 n
0000001662 00000 n
0000002314 00000 n
0000002348 00000 n
0000002392 00000 n
0000002436 00000 n
0000002480 00000 n
0000002524 00000 n
0000002735 00000 n
0000002811 00000 n

Questo è il link ai files visualizzati sul browser:

Response.Write "" & file.Name & ""

Come mai ?

[orcim]

Ho provato ad inserire nel codice questo che forza il download:

<% Response.Buffer = True %>
<%
	Dim FileName
		FileName = Trim(Request.QueryString("file"))
		response.write Filename &"
"

		Const adTypeBinary = 1
		Response.Clear
		Set objStream = Server.CreateObject("ADODB.Stream")
		objStream.Open
		objStream.Type = adTypeBinary
		objStream.LoadFromFile FileName
		Response.ContentType = FileName
		Response.AddHeader "content-disposition", "attachment; filename=" & FileName
		Response.BinaryWrite objStream.Read
		Response.Flush
		objStream.Close
		Set objStream = Nothing
response.end

Ma risponde con file sconosciuto... FileName è uguale a:

D:\Documents and Settings\riserva\Documenti\Bollo2006.pdf

[viki1967]

<%

Function BaseName(byVal Path)
Dim Pos
	Path = Replace(Path,"/","\")
	Pos  = InStrRev(Path,"\")
	If Pos>0 then 
		BaseName = Mid(Path,Pos+1)
	Else
		BaseName = Path
	End if
end function
 
Function ReadFile(FileName)
Dim Stream , Path
	On error resume next
		Path = Server.MapPath(FileName)
		If Err.Number<>0 then Path = FileName
	On error goto 0
	Set Stream = Server.CreateObject("ADODB.Stream")
	Stream.Type=1
	Stream.Open()
	Stream.LoadFromFile Path
	Stream.Position=0
	ReadFile = Stream.Read()
	Stream.Close()
	Set Stream = Nothing
End Function
 
Server.ScriptTimeout=6000
if Len(Trim(request.querystring("file"))) > 0 then
	file = (request.querystring("file")) 
else
	Response.Write("file non specificato")
	Response.end
end if
 
response.ContentType="application/octet-stream"
response.AddHeader "Content-Disposition", "attachment; filename=" & BaseName(file)
Response.BinaryWrite ReadFile(File)
Response.End

%>