- Home
- Categorie
- Coding e Sistemistica
- Altri linguaggi per il web
- creare pagine per download file
-
.roma122.it/areadownload/update1.asp
-
Se lo inserisci in quella? Però una domanda: conosci asp?
-
non benissimo
se trovo il codice scritto riesco a modificare e a scrivere alcune funzioni la magior parte le creo con dreamweaver
-
cambio idea per arrivare allo stesso risultato questo credo sia più semplice e più preciso :
con questa funzione leggo le dimensioni del file presente sul server :
<% 'dimensione file Function GetFileSize(filepath) Dim fso, f Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(filepath) Response.Write("La dimensione del file è: ") Response.Write(FormatNumber(f.Size/1024, 2)&" Kb") Set f = nothing Set fso = nothing End Function Dim fname, fpath fname = "/public/download/q.txt" 'nome del file da controllare fpath = Server.MapPath(fname) GetFileSize(fpath) 'fine %> ```il problema è che in questo caso devo inserire il percorso e il nome del file
fname = "/public/download/q.txt"
<%
While ((Repeat1__numRows <> 0) AND (NOT Estrai.EOF))
%>
<tr>
<th scope="row"><a href="public/download<%=Estrai.Fields.Item("NomeFile").Value%>"><%=(Estrai.Fields.Item("NomeFile").Value)%></a></th>
<td><%=(Estrai.Fields.Item("DataFile").Value)%></th>
<td><%=(Estrai.Fields.Item("Data").Value)%></td>
<td><%=(Estrai.Fields.Item("Categoria").Value)%></td>
<td><%=(Estrai.Fields.Item("Autore").Value)%>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Estrai.MoveNext()
Wend
%>tipo questo che mi crea il link al file sul server nella tabella sopra riportata :
href="public/download<%=Estrai.Fields.Item("NomeFile").Value%>"><%=(Estrai.Fields.Item("NomeFile").Value)%></a></th>
-
Il percorso del file è
public/download<%=Estrai.Fields.Item("NomeFile").Value%>
-
Microsoft VBScript compilation error '800a03ea'
Syntax error
/AreaDownload/sommario.asp, line 58
Function GetFileSize(filepath)^
lo ho modificato in questo modo ma mi da errore
'dimensione file Function GetFileSize(filepath) Dim fso, f Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(filepath) Response.Write("La dimensione del file è: ") Response.Write(FormatNumber(f.Size/1024, 2)&" Kb") Set f = nothing Set fso = nothing End Function Dim fname, fpath fname = "public/download<%=Estrai.Fields.Item("NomeFile").Value%>" fpath = Server.MapPath(fname) GetFileSize(fpath) 'fine
riga 58
Function GetFileSize(filepath)
-
mi avete abandonato ?????????
help !
-
Mi spiace ma non sono così esperto di ASP. in ogni caso che errore da?
-
è sul post sopra
grazie
-
Non so a cosa potrebbe essere dovuto, forse a qualche riga precedente?
-
non credo perchè se io quì
fname = "public/download<%=Estrai.Fields.Item("NomeFile").Value%>"
il percorso diretto mi da la dimensione di quel file
-
Se visualizzi fname cosa restituisce?
-
mi dà l'errore .
se gli metto il percorso singolo mi restituisce/public/download/q.txt
ti spiego se inserisco il codice fuori della tabella con la queri funziona
roma122.it/AreaDownload/sommario.asp
quarga ora
se lo metto nella posizione affianco al file mi da l'errore di prima
icrosoft VBScript compilation error '800a0411' Name redefined
/AreaDownload/sommario.asp, line 75
Dim fname, fpath
----^hai msn si fa prima ?
-
ma Estrai.Fields.Item("NomeFile") è valorizzato? sei sicuro che sia giusto prenderlo così?
-
No infatti......
il problema è che non so come rendere dinamica quello script
-
Come sarebbe rendere dinamico?
-
nel senso che se io scrivo il percorso esatto funziona se inserisco
fname = "public/download<%=Estrai.Fields.Item("NomeFile").Value%>"
non va ....
quindi come gli indico il percoro relativo alla posizione del file da calcolare ?
-
scusa ma Estrai.Fields.Item dove lo hai preso? Perchè non usi request.form?
-
Risoltoooooooooo
se volete pulire la discussione per renderla più agevole penso possa diventare utile a tuttigrazie
<% '######### Funzione che cerca la dim del file ######## dimensione file ######## Function GetFileSize(filepath) Dim fso, f Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(filepath) Response.Write(FormatNumber(f.Size/1024, 2)&" Kb") Set f = nothing Set fso = nothing End Function '######### FINE ######## While ((Repeat1__numRows <> 0) AND (NOT Estrai.EOF)) %> <tr> <th scope="row"><a href="public/download/<%=Estrai.Fields.Item("NomeFile").Value%>"><%=(Estrai.Fields.Item("NomeFile").Value)%></a></th> <td><%=(Estrai.Fields.Item("DataFile").Value)%> <td><%=(Estrai.Fields.Item("Data").Value)%></td> <td><%=(Estrai.Fields.Item("Categoria").Value)%></td> <td><% '######### percorso per rendere la funzione dinamica ######## Dim fname, fpath fname = "/public/download/" + Estrai.Fields.Item("NomeFile").Value fpath = Server.MapPath(fname) GetFileSize(fpath) 'fine
-
Perfetto! Alla prossima!