Visualizzazione dei risultati da 1 a 7 su 7

Discussione: Uploadare un file.

  1. #1
    Utente di HTML.it L'avatar di acquila
    Registrato dal
    Jan 2001
    Messaggi
    1,292

    Uploadare un file.

    Ho adattato lo scripit riportato qui sul upload di file.

    Una volto fatto invio dal form lo script mi riporta a video "il valore immesso nella utente è.." ma poi non mi dice che è stato uploadato il file, infatti non lo scrive sul server.
    Forse è sbagliato come scritto il percorso?

    Riporto il sorgente:

    <%

    percorso = "cartella1/cartella2/"

    ByteRicevuti = Request.TotalBytes

    if ByteRicevuti > 0 then
    DatiRicevuti = Request.BinaryRead(ByteRicevuti)
    For i = 1 To lenB(DatiRicevuti)
    FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
    Next
    FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
    ArrPezzi = split(FileBinario,FirmaFile)

    for item = 1 to ubound(ArrPezzi)-1
    Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
    Intestazione = left(ArrPezzi(item),Inizio-1)
    Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
    ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)

    ' Recupero i campi se sono compilati
    if instr(Intestazione,"utente") > 0 then
    utente = ContenutoFile
    end if
    if instr(Intestazione,"file") > 0 then
    i = instr(Intestazione,"filename=")
    j = instr(i + 10,Intestazione,chr(34))
    NomeUpload = mid(Intestazione,i + 10,j-i-10)
    i = instrRev(NomeUpload,"\")
    if i<>0 then
    NomeFile = mid(NomeUpload,i + 1)
    else
    NomeFile = NomeUpload
    end if
    if i<>0 then
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Upload1 = True
    DimensioneFile = len(ContenutoFile)
    EstensioneFile = right(ContenutoFile,3)
    NomeFile1 = NomeFile
    Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile), True, False)
    textStream.Write ContenutoFile
    textStream.Close
    Set textStream = Nothing
    Set FSO = Nothing
    end if
    end if
    next

    Response.Write "Il valore immesso nella utente è " & utente & "
    "
    If Upload1 = true then
    Response.Write "
    La dimensione del file che hai uploadato è di " & DimensioneFile*0.001 & "kb"
    Response.Write "
    Grazie di aver inviato il tuo file"
    End If

  2. #2
    Utente di HTML.it L'avatar di acquila
    Registrato dal
    Jan 2001
    Messaggi
    1,292
    proprio nessuno sa dirmi qualcosa?

  3. #3
    La cartella dove fai l'upload ha i permessi di scrittura settati?

  4. #4
    Utente di HTML.it L'avatar di acquila
    Registrato dal
    Jan 2001
    Messaggi
    1,292
    penso di si.... ho selezionato la cartella tastodx-->proprietà-->condivisione web-->condividi cartella-->lettura,scrittura,esplora directory, script.
    Ma se la cartella da condividere si trova dentro un altra cartella, bisogna dare i permessi anche a quella superiore?
    Andando poi sul pannello di Internet Information services-->sito wev predefinito-->tastdx proprietà-->home directory-->autorizzazioni di esecuzione-->tendina solo script; Protezione applicazione-->tendina bassa.

    Avendo Norton Internet Security va settato in maniera particolare?

  5. #5
    Allora... premetto che non sono molto esperto però ti dico per certo che per provare l'upload in locale devi disattivare il blocco script del Norton Antivirus altrimenti non funziona nulla.

    Poi io non vado su condivisione web ma nella voce protezione e abilito i controlli lettura e scrittura per gli utenti (IUSR_Nomecomputer), infine se la cartella in cui fai l'upload è dentro un'altra cartella devi settare i permessi per la cartella superiore.

    Prova così e fammi sapere se hai ancora problemi.
    Ciao
    Fabio

  6. #6
    Utente di HTML.it L'avatar di acquila
    Registrato dal
    Jan 2001
    Messaggi
    1,292
    Io faccio riferimento a pagine asp presenti su un server in linea, quindi non su locale, per questo che penso di debba andare su condivisione web e non su protezione in quanto là dai i permessi per gli utenti in locale.
    Dimmi se sbaglio.
    Volevo sapere se la procedura, precedentemente indicata, da me eseguita per far funzionare pagine asp su iis, sia valida o quale, invece, debba seguire.


  7. #7
    Utente di HTML.it L'avatar di biocco
    Registrato dal
    Sep 2003
    Messaggi
    486

    ciao!

    hai risolto il problema?

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.