creare pagine per download file

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 ?

cali1981

ma Estrai.Fields.Item("NomeFile") è valorizzato? sei sicuro che sia giusto prenderlo così?

spila.p

No infatti......

il problema è che non so come rendere dinamica quello script

cali1981

Come sarebbe rendere dinamico?