• Super User •

    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.


  • User •

    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


  • Super User •

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


  • User •

    ecco facciamo in questo modo dagli uno sguardo :

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


  • Super User •

    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)


  • User •

    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 ??


  • Super User •

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


  • User •

    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>
    

  • Super User •

    Se fai Request.TotalBytes ottieni qualcosa?


  • User •

    dove lo inserisco ?
    perdonami ma non sono espertissimo :crying:


  • Super User •

    In che pagina hai inserito lo script?


  • User •

    .roma122.it/areadownload/update1.asp


  • Super User •

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


  • User •

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


  • User •

    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>


  • Super User •

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


  • User •

    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)
    
    

  • User •

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

    help !


  • Super User •

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


  • User •

    è sul post sopra

    grazie