Scaricare un EXE non zippato

**danbat** · 21-06-2005, 11:48

Originariamente inviato da Baol74
(...)

Grazie per le informazioni.
Ho provato a spiegargli anch'io cose simili, ma vuole una pagina ASP per fare "delle prove" prima di darmi il file.

**danbat** · 21-06-2005, 11:52

Originariamente inviato da albis
(...)

Ora parte, ma mi chiede di scaricare la pagina stessa (download.asp) invece dell'exe.
... eppure ho scritto
FileName = "prova.exe"

**albis** · 21-06-2005, 11:54

strPercorso deve contenere il percorso fisico del file exe
es "c:\appoggio\nomeFile.exe"

**danbat** · 21-06-2005, 11:58

E' tutto nella root. Il percorso relativo è corretto cosi'.
Secondo me qui c'è qualcosa che non va:

Stream.LoadFromFile strPercorso'Server.MapPath(FileName)

Non m'intendo di ASP, ma quell'apice che mi pare strano...

**Baol74** · 21-06-2005, 11:59

Si, metti

Stream.LoadFromFile Server.MapPath(FileName)

e come fileName metti

FileName = "/Contatti.csv"

In modo da indicare che si trova nella root

**danbat** · 21-06-2005, 12:03

Ora accade questo:

HTTP 403.9 - Accesso negato: numero eccessivo di utenti connessi
Internet Information Services

**albis** · 21-06-2005, 12:03

l'apice è perchè avevo commentato quella parte di codice
quello che c'è dopo l'apice (su quella riga semplicemente non lo esegue)

prova a scrivere
Response.Write "|" & Server.MapPath(FileName) & "|"

e vedi se ti restituisce il percorso esatto , se sì allora correggi così

codice:

Stream.LoadFromFile Server.MapPath(FileName)

**danbat** · 21-06-2005, 12:12

Abbiate pezienza, ma non va.
Continua a cercare di scaricarmi la pagina download.asp.
Questo è tutto quello che c'è nella pagina:

codice:

<%
Dim Stream 
		Dim Contents 
		Dim FileName 
		FileName = "/prova.exe" 
		Response.ContentType = "application/octet-stream" 
		Response.AddHeader "content-disposition", "attachment; filename=" & FileName 
		Set Stream = server.CreateObject("ADODB.Stream") 
		Stream.Open 
		Stream.LoadFromFile Server.MapPath(FileName)
		Contents = Stream.ReadText 
		Response.BinaryWrite Contents 
		Stream.Close 
		Set Stream = Nothing 
%>
<html>
<head>
<title>Untitled Document</title>

</head>

<body>
</body>
</html>

**Baol74** · 21-06-2005, 12:14

Dopo

Set Stream = Nothing

metti response.end

e togli il codice html

**albis** · 21-06-2005, 12:16

se scrivi

codice:

<%
Response.Write Server.MapPath(FileName)
Response.End
Dim Stream 
		Dim Contents 
		Dim FileName 
		FileName = "/prova.exe" 
.
.
.
.

ti scrive il percorso esatto ?

Discussione: Scaricare un EXE non zippato

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio