Visualizzazione dei risultati da 1 a 6 su 6

Discussione: upload foto

  1. #1

    upload foto

    ho bisogno di inserire le foto in una cartella sul server e fare in modo che se inserisco ad esempio nome cognome foto

    nome e cognome le inserisce in un database e la foto la inserisce nella cartella e il nome della foto nel database

    lo script realizzato di seguito mi fa l'inserimento del nome e cognome ma quando vado ad inserire la foto va in errore come devo fare?




    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
    <html>
    <head>
    <title>Untitled Document</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <script language="JavaScript" type="text/JavaScript">
    <!--
    function MM_jumpMenu(targ,selObj,restore){ //v3.0
    eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
    if (restore) selObj.selectedIndex=0;
    }
    //-->
    </script>
    </head>

    <body bgcolor="#FFFFFF">
    <form method="post">
    <table width="100%" border="0">
    <tr>
    <td><div align="center">[img]intestazione.png[/img]</div></td>
    </tr>
    <tr>
    <td><H1 align="center"><font size="2">INSERISCI I DATI NEL DATABASE</font></H1>


    Categoria:
    <select name="tipologia" id="tipologia">
    <option selected>RESIDENZIALE</option>
    <option>COMMERCIALE</option>
    <option>INDUSTRIALE</option>
    </select>


    Tipo di Immobile
    <select name="immobile" id="immobile">
    <option selected>qualsiasi</option>
    <option>ATTICO</option>
    <option>BOX</option>
    <option>CASA DI CORTE</option>
    <option>CASA INDIPENDENTE</option>
    <option>CASA SEMINDIPENTE</option>
    <option>MANSARDA</option>
    <option>MONOLOCALE</option>
    <option>APPARTAMENTO</option>
    <option>RUSTICO</option>
    <option>TERRENO EDIFICABILE</option>
    <option>VARIE</option>
    <option>VILLA A SCHIERA</option>
    <option>VILLA BIFAMILIARE</option>
    <option>VILLA QUADRIFAMILIARE</option>
    <option>VILLA SINGOLA</option>
    <option>VILLA TRIFAMILIARE</option>
    </select>


    Condizione:
    <select name="condizione" id="condizione">
    <option selected>VENDESI</option>
    <option>AFFITTASI</option>
    </select>


    Localit&agrave;
    <select name="localita" id="localita">
    <option selected>Amalfi</option>
    <option> Atrani</option>
    <option>Angri </option>
    <option> Acerno</option>
    <option> Alfano</option>
    <option> Ascea </option>
    <option> Atena Lucana </option>
    <option>Auletta </option>
    <option>Aquara </option>
    <option>Albanella</option>
    <option>Altavilla Silentina</option>
    <option>Agropoli</option>
    <option>Baronissi</option>
    <option>Bracigliano</option>
    <option>Battipaglia</option>
    <option>Bellizzi</option>
    <option>Buonabitacolo </option>
    <option>Buccino </option>
    <option>Bellosguardo </option>
    <option>Cava de Tirreni</option>
    <option>Cetara </option>
    <option>Conca dei Marini</option>
    <option>Castel San Giorgio </option>
    <option>Corbara</option>
    <option>Calvanico</option>
    <option>Castiglione del Genovesi </option>
    <option>Campagna </option>
    <option>Castelnuovo di Conza</option>
    <option>Colliano</option>
    <option>Contursi Terme </option>
    <option>Camerota </option>
    <option>Celle di Bulgheria</option>
    <option>Centola</option>
    <option>Cuccaro Vetere </option>
    <option>Casalbuono </option>
    <option>Casaletto Spartano </option>
    <option>Caselle in Pittari </option>
    <option>Caggiano</option>
    <option>Castelcivita</option>
    <option>Controne </option>
    <option>Corleto Monforte </option>
    <option>Campora </option>
    <option>Capaccio </option>
    <option>Castel San Lorenzo </option>
    <option>Casal Velino </option>
    <option>Castellabate </option>
    <option>Cicerale </option>
    <option>Cannalonga </option>
    <option>Castelnuovo Cilento </option>
    <option>Ceraso </option>
    <option>Eboli</option>
    <option>Furore</option>
    <option>Fisciano</option>
    <option>Futani </option>
    <option>Felitto </option>
    <option>Giffoni Sei Casali </option>
    <option>Giffoni Valle Piana </option>
    <option>Giungano </option>
    <option>Gioi </option>
    <option>Ispani</option>
    <option>Laviano </option>
    <option>Laurito </option>
    <option>Laurino </option>
    <option>Laureana Cilento </option>
    <option>Lustra </option>
    <option>Maiori </option>
    <option>Minori</option>
    <option>Mercato San Severino</option>
    <option>Montecorvino Pugliano</option>
    <option>Montecorvino Rovella</option>
    <option>Montano Antilia </option>
    <option>Monte San Giacomo </option>
    <option>Montesano sulla Marcellana </option>
    <option>Morigerati </option>
    <option>Magliano Vetere </option>
    <option>Monteforte Cilento </option>
    <option>Montecorice </option>
    <option>Moio della Civitella </option>
    <option>Nocera Superiore</option>
    <option>Nocera Inferiore </option>
    <option>Novi Velia</option>
    <option>Olevano sul Tusciano </option>
    <option>Oliveto Citra </option>
    <option>Ottati</option>
    <option>Ogliastro Cilento </option>
    <option>Omignano </option>
    <option>Orria </option>
    <option>Positano </option>
    <option>Praiano</option>
    <option>Pagani </option>
    <option>Pellezzano </option>
    <option>Pontecagnano Faiano </option>
    <option>Pisciotta </option>
    <option>Padula </option>
    <option>Pertosa</option>
    <option>Polla </option>
    <option>Palomonte </option>
    <option>Petina </option>
    <option>Postiglione </option>
    <option>Piaggine</option>
    <option>Perdifumo</option>
    <option>Pollica</option>
    <option>Prignano Cilento</option>
    <option>Perito </option>
    <option>Ravello </option>
    <option>Roccapiemonte </option>
    <option>Roccagloriosa </option>
    <option>Rofrano</option>
    <option>Ricigliano </option>
    <option>Romagnano al Monte </option>
    <option>Roscigno</option>
    <option>Roccadaspide</option>
    <option>Rutino</option>
    <option>Santo Egidio del Monte Albino</option>
    <option>Scala</option>
    <option>San Marzano sul Sarno</option>
    <option>San Valentino Torio</option>
    <option>Sarno</option>
    <option>Scafati</option>
    <option>Siano</option>
    <option>Salerno</option>
    <option>Salento</option>
    <option>San Cipriano Picentino</option>
    <option>San Mango Piemonte</option>
    <option>Santomenna</option>
    <option>San Giovanni a Piro</option>
    <option>San Mauro la Bruca</option>
    <option>Sala Consilina</option>
    <option>San Pietro al Tanagro</option>
    <option>San Rufo</option>
    <option>Santo Arsenio</option>
    <option>Sanza </option>
    <option>Sassano</option>
    <option>Santa Marina</option>
    <option>Sapri</option>
    <option>Salvitelle</option>
    <option>San Gregorio Magno</option>
    <option>Santo Angelo a Fasanella</option>
    <option>Serre</option>
    <option>Sicignano degli Alburni</option>
    <option>Sacco</option>
    <option>Stio</option>
    <option>San Mauro Cilento</option>
    <option>Serramezzana</option>
    <option>Sessa Cilento</option>
    <option>Stella Cilento</option>
    <option>Tramonti</option>
    <option>Teggiano</option>
    <option>Torraca</option>
    <option>Torre Orsaia </option>
    <option>Tortorella</option>
    <option>Trentinara</option>
    <option>Torchiara</option>
    <option>Vietri sul Mare</option>
    <option>Valva</option>
    <option>Vibonati</option>
    <option>Valle dell Angelo</option>
    <option>Vallo della Lucania</option>
    </select>


    Descrizione
    <textarea name="descrizione" id="descrizione"></textarea>


    mq
    <input name="mq" type="text" id="mq">


    prezzo &euro;
    <input name="prezzo" type="text" id="prezzo">
    </p>


    foto
    <input name="foto" type="text" id="foto">




    <input name="submit" type="submit" value="aggiungi">
    </p>
    </td>
    </tr>
    <tr>
    <td bgcolor="#FFFFFF">
    <div align="center">[img]menubasso.png[/img]</div></td>
    </tr>
    </table>
    </form>
    <%
    if len (Request.Form)>0 then
    dim Conn, strConn

    strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/database.mdb")
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open StrConn

    SQL = "SELECT * FROM clienti"
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open SQL, Conn, 1, 3

    rs.AddNew
    rs("tipologia") = request.Form("tipologia")
    rs("immobile") = request.Form("immobile")
    rs("condizione") = request.Form("condizione")
    rs("localita") = request.Form("localita")
    rs("descrizione") = request.Form("descrizione")
    rs("mq") = request.Form("mq")
    rs("prezzo") = request.Form("prezzo")
    rs("foto") = request.Form("foto")
    rs.Update

    rs.Close
    set rs = Nothing
    conn.Close
    set conn = Nothing
    Response.write "<H2>inserimento effettuato con successo</H2>"
    Response.write " <FORM METHOD='Post' ENCTYPE='multipart/form-data' name='form1' ACTION='Upload_LimitSizeAndImages1.asp'>"
    Response.write "<table align=center><tr><td>"
    Response.write "<font face='Verdana' size='2' color=yellow>File : </td><td><INPUT TYPE='file' NAME='blob'></td><td>"
    Response.write "<INPUT TYPE='submit' NAME='Enter' value='upload'></td>"
    Response.write "</tr></table>"
    Response.write "</FORM>"
    End if
    %>
    </body>
    </html>

  2. #2
    Utente di HTML.it L'avatar di viki1967
    Registrato dal
    Feb 2003
    Messaggi
    1,757
    hai postato tutto ciò che non serve... bastava qualche riga prima e dopo l'errore.... e naturalmente l'errore restituito...

  3. #3
    l'errore è l'errore 500 solito di quando cè qualcosa di sbagliato nel codice

    poi ce il file outputfile.asp


    <%Response.Expires=0
    Response.Buffer = TRUE
    Response.Clear
    byteCount = Request.TotalBytes
    RequestBin = Request.BinaryRead(byteCount)
    Dim UploadRequest
    Set UploadRequest = CreateObject("Scripting.Dictionary")
    BuildUploadRequest RequestBin
    contentType = UploadRequest.Item("blob").Item("ContentType")
    'Content-Type è il tipo di file
    filepathname = UploadRequest.Item("blob").Item("FileName")
    'File path name è il percorso sul client
    filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
    'Filename è il nome del file
    value = UploadRequest.Item("blob").Item("Value")

    'Create FileSytemObject Component
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

    'Create and Write to a File
    pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14

    Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & "/public/" & filename)
    'Response.write("Nome File="&Left(Server.mappath(Request.ServerVariables ("PATH_INFO")),pathEnd) & "/img/" & filename&";
    ")
    For i = 1 to LenB(value)
    MyFile.Write chr(AscB(MidB(value,i,1)))
    Next
    MyFile.Close%>

    <html>



    <body bgcolor=#608ac6>
    <p align="center"><font face="Verdana" size="2">
    File "<%=filename%>" ricevuto con successo</font>


    Torna a casa
    </body>
    </html>


    e questo qui upload.asp

    <%Sub BuildUploadRequest(RequestBin)
    PosBeg = 1
    PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
    boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
    boundaryPos = InstrB(1,RequestBin,boundary)
    Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
    Dim UploadControl
    Set UploadControl = CreateObject("Scripting.Dictionary")
    Pos = InstrB(BoundaryPos,RequestBin,getByteString("Conte nt-Disposition"))
    Pos = InstrB(Pos,RequestBin,getByteString("name="))
    PosBeg = Pos+6
    PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
    Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
    PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filen ame="))
    PosBound = InstrB(PosEnd,RequestBin,boundary)
    If PosFile<>0 AND (PosFile<PosBound) Then
    PosBeg = PosFile + 10
    PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
    FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
    UploadControl.Add "FileName", FileName
    Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
    PosBeg = Pos+14
    PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
    ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
    UploadControl.Add "ContentType",ContentType
    PosBeg = PosEnd+4
    PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
    Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
    Else
    Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
    PosBeg = Pos+4
    PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
    Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
    End If
    UploadControl.Add "Value" , Value
    UploadRequest.Add name, UploadControl
    BoundaryPos=InstrB(BoundaryPos+LenB(boundary),Requ estBin,boundary)
    Loop
    End Sub
    Function getByteString(StringStr)
    For i = 1 to Len(StringStr)
    char = Mid(StringStr,i,1)
    getByteString = getByteString & chrB(AscB(char))
    Next
    End Function
    Function getString(StringBin)
    getString =""
    For intCount = 1 to LenB(StringBin)
    getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
    Next
    End Function%>

  4. #4

  5. #5
    Utente di HTML.it L'avatar di viki1967
    Registrato dal
    Feb 2003
    Messaggi
    1,757
    disabilita dal menu di i.e. Mostra messaggi di errore HTTP brevi
    (strumenti, opzioni internet, avanzate).

  6. #6
    grazie ho risolto con il 3d :-D

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.