Upload immagini modificato..

[Iron83]

Ciao a tutti ragazzi,

una piccola info, ho uno script per l'upload delle immagini (che funziona benissimo), lo sto modificando aggiungendo diversi parametri (nome sito internet, link sito internet e breve descrizione visto che servirà per l'inserimento di siti partner). Come dicevo l'upload va che è una meraviglia, riesco ad inserire il nome del sito internet e il link, ma riscontro due problemucci che per voi "master" sembrerà una stupidaggine

1. I link vengono memorizzati con uno spazio davanti e quindi si crea questo (es. http://%20pablo.it/)

2. La descrizione del sito internet non viene memorizzata nel db (è un campo textarea)

<%



percorso = "/immagini_acquisite/siti/"

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)
                'prelevo il link del sito internet
        ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)

        INIZIO PEZZO MODIFICATO

                         'prelevo il nome del sito internet
        link= mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)
        'prelevo la descrizione
        contenuto= mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)
        if instr(Intestazione,"link_sito") > 0 then
            link_sito = link
        end if
        
        if instr(Intestazione,"nome_sito") > 0 then
            nome_sito = ContenutoFile
        end if
        if instr(Intestazione,"descrizione") > 0 then
            contenuto = descrizione
            
            
        end if
        
        
                          FINE MODIFICA
        
        

        
        if instr(Intestazione,"file1") > 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
                DimensioneFile1 = len(ContenutoFile)
                EstensioneFile1 = right(ContenutoFile,3)
                NomeFile1 = NomeFile
                Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
                textStream.Write ContenutoFile
                textStream.Close
                Set textStream = Nothing
                   Set FSO = Nothing
           end if
        end if

        


    next







Response.Write "Il valore immesso nella nome_sito è " & nome_sito & "
"





End if
%>

<%

AGGIUNTA PEZZO

dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn


Set rs = Server.CreateObject("ADODB.Recordset")
 
SQL = "INSERT INTO consigliati (nomefile, nome_sito, link_sito, descrizione) values"&_
 "('"&nomefile&"',' "&nome_sito&"',' "&link_sito&"',' "&descrizione&"')"
 
conn.Execute (SQL)



 conn.Close
Set conn=Nothing

%>

FINE AGGIUNTA 

Ho commentato i pezzi che ho modificato e aggiunto. Potete aiutarmi? Grazie mille

[Iron83]

Un piccolo UP per me

[Iron83]

Ho aggiustato un pò lo script, il fatto (che sarà sicuramente banale) è che quando inserisce i dati nel db li inserisce lasciando uno spazio a sinistra. Io vorrei che lo spazio a sinistra lo lasciasse solo per la voce descrizione, come posso fare?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%



percorso = "immagini_acquisite/siti/"

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-0)
        Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
        
        ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)
        
        
        
        
        
        
        if instr(Intestazione,"link_sito") > 0 then
            link_sito = ContenutoFile
        end if
        
        if instr(Intestazione,"nome_sito") > 0 then
            nome_sito = ContenutoFile
        end if
        if instr(Intestazione,"descrizione") > 0 then
            descrizione = ContenutoFile
            
            
        end if
        
        

        
        

        
        if instr(Intestazione,"file1") > 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
                DimensioneFile1 = len(ContenutoFile)
                EstensioneFile1 = right(ContenutoFile,3)
                NomeFile1 = NomeFile
                Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
                textStream.Write ContenutoFile
                textStream.Close
                Set textStream = Nothing
                   Set FSO = Nothing
           end if
        end if

        


    next







Response.Write "Il valore immesso nella nome_sito è " & nome_sito & "
"





End if
%>

<%



dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("xxx")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn


Set rs = Server.CreateObject("ADODB.Recordset")
 
SQL = "INSERT INTO consigliati (nomefile, nome_sito, link_sito, descrizione) values"&_
 "('"&nomefile&"',' "&nome_sito&"',' "&link_sito&"',' "&descrizione&"')"
 
conn.Execute (SQL)



 conn.Close
Set conn=Nothing

%>