creare pagine per download file

cali1981

Non mi sembra che ci sia la dimensione in byte, ma solo la dimensione in pixel. Se ti serve quella, in quel form mi sembra che chieda se deve salvare i dati di height e width in un campo della form, da dove puoi prelevarlo semplicemente con request.form ( se è post) o request.querystring (se è get)

spila.p

ma non c'è un modo per inserire la funzione in modo dinamico ?
** OggettoFile.Size
**

ho letto che questo è un modo per farlo ma non so come scrivere il codice ??

cali1981

Non saprei, dovrei vedere il codice della pagina. Dove lo hai preso lo script?

spila.p

questo è lo script di upload del file :

*** Pure ASP File Upload 2.1.4
Dim GP_uploadAction,UploadQueryString
PureUploadSetup
If (CStr(Request.QueryString("GP_upload")) <> "") Then
  Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout,pau_progressBar,pau_progressWidth,pau_progressHeight
  pau_thePath = """/public/Download"""
  pau_Extensions = ""
  pau_Form = "inserisci"
  pau_Redirect = ""
  pau_storeType = "file"
  pau_sizeLimit = ""
  pau_nameConflict = "error"
  pau_requireUpload = "true"
  pau_minWidth = ""
  pau_minHeight = "" 
  pau_maxWidth = ""
  pau_maxHeight = ""
  pau_saveWidth = ""
  pau_saveHeight = ""
  pau_timeout = "600"
  pau_progressBar = "fileCopyProgress.htm"
  pau_progressWidth = "300"
  pau_progressHeight = "100"
  
  Dim RequestBin, UploadRequest
  CheckPureUploadVersion 2.14
  ProcessUpload pau_thePath,pau_Extensions,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout
end if

e questa è la form che inserisce i dati nel db:

<form ACTION="<%=MM_editAction%>" METHOD="POST" enctype="multipart/form-data" name="inserisci" id="inserisci" onSubmit="checkFileUpload(this,'',true,'','','','','','','');showProgressWindow('fileCopyProgress.htm',300,100);return document.MM_returnValue">
      <p>&nbsp;</p>
      <p>&nbsp;</p>
      <table width="560" border="0" align="center" bgcolor="#FFB709">
        <tr>
          <td width="160" class="menu-titolo">Nome file </td>
          <td colspan="5"><input name="NomeFile" type="file" id="NomeFile" onChange="checkOneFileUpload(this,'',true,'','','','','','','')"></td>
        </tr>
        <tr>
          <td class="menu-titolo">Descrizione </td>
          <td colspan="5" class="menu-titolo"><textarea name="commento" cols="50" id="commento"></textarea></td>
        </tr>
        <tr>
          <td class="menu-titolo">Tipo file </td>
          <td width="68" class="menu-titolo"><select name="tipoFile" id="tipoFile">
            <option value="zip">zip</option>
            <option value="pdf">pdf </option>
          </select></td>
          <td width="89" class="menu-titolo">Categoria</td>
          <td width="54" class="menu-titolo"><select name="categoria" id="categoria">
            <option value="documenti">documenti</option>
            <option value="tecniche scout">tecniche scout</option>
          </select></td>
          <td width="85" class="menu-titolo Stile1">Riservato</td>
          <td width="78" class="menu-titolo Stile1"><select name="riservato" id="riservato">
            <option value="si">si</option>
            <option value="no">no</option>
          </select></td>
        </tr>
        <tr>
          <td height="26">
            <div align="center" class="menu-titolo">
              <div align="left">data file 
              </div>
            </div></td>
          <td height="26"><input name="data" type="text" id="data"></td>
          <td height="26">Autore</td>
          <td height="26"><input name="autore" type="text" id="autore"></td>
          <td height="26">&nbsp;</td>
          <td height="26">&nbsp;</td>
        </tr>
        <tr>
          <td height="26" colspan="6"><div align="center">
            <input type="submit" name="Submit" value="Iserisci Documento In Archivio">
          </div></td>
        </tr>
      </table>
      <p>&nbsp;</p>
      <p>&nbsp;</p>

            <input type="hidden" name="MM_insert" value="inserisci">
    </form>

cali1981

Se fai Request.TotalBytes ottieni qualcosa?

spila.p

dove lo inserisco ?
perdonami ma non sono espertissimo

cali1981

In che pagina hai inserito lo script?

spila.p

.roma122.it/areadownload/update1.asp

cali1981

Se lo inserisci in quella? Però una domanda: conosci asp?

spila.p

non benissimo
se trovo il codice scritto riesco a modificare e a scrivere alcune funzioni la magior parte le creo con dreamweaver

spila.p

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>

cali1981

Il percorso del file è
public/download<%=Estrai.Fields.Item("NomeFile").Value%>

spila.p

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)

spila.p

mi avete abandonato ?????????

help !

cali1981

Mi spiace ma non sono così esperto di ASP. in ogni caso che errore da?

spila.p

è sul post sopra

grazie

cali1981

Non so a cosa potrebbe essere dovuto, forse a qualche riga precedente?

spila.p

non credo perchè se io quì

fname = "public/download<%=Estrai.Fields.Item("NomeFile").Value%>"

il percorso diretto mi da la dimensione di quel file

cali1981

Se visualizzi fname cosa restituisce?

spila.p

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 ?