creare pagine per download file

spila.p

RISOLTO

ora la mia domanda è come faccio ad estrarre la dimensione del file per inserirla nel db in automatico ?

cali1981

L'estensione per l'upload che usi non te la restituisce?

spila.p

forse è questa ..... ma poi come recupero il dato ???

non posso inserire l'immagine per farti vedere la schermata dell'estenzione
non è che mi puoi abilitare ci capiamo meglio

cali1981

Abilitarti a cosa? A mettere immagini? Io non posso farlo, ma tu puoi semplicemente mettere l'immagine su un tuo hosting e poi qui mettere l'url.

spila.p

Hai inserito un link attivo nel post; non facendo parte del gruppo VIP questo non ti è concesso in questa sezione dalle Regole.
Per inviare il tuo post, inserisci l'url senza
infatti se lo faccio mi dice questo ... per quello ti ho fatto la richiesta

cali1981

Puoi provare come ho detto a mettere la foto in un tuo sito e mettere il link non attivo.

spila.p

ecco facciamo in questo modo dagli uno sguardo :

img137.imageshack.us/img137/2038/immaginekk7.png

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)