codice:
<%
Dim QSID, QSTitolo, QSIMG, QSTesto, SQL, RS, QSTestolink, QSLink
dim w_ID, w_Cod_Old, w_codice, w_Prodotto, w_PDescrizione, w_GDescrizione, w_PFoto, w_GFoto
dim w_CPrezzo, w_RPrezzo, w_PuntiSconto, w_Iva, w_GiacenzaInfinita, w_Giacenza, w_Offerta
dim w_Spedizione, w_SpeseSpedizione, w_Tipologia, w_Categorie
dim percorso, ByteRicevuti, FileBinario, DatiRicevuti, FirmaFile, ArrPezzi, item, Inizio
dim Intestazione, ContenutoFile, NomeUpload, NomeFile, Upload1, DimensioneFile1, EstensioneFile1, textStream, i, j
dim FSO, NomeFile1, Upload2, DimensioneFile2, EstensioneFile2, NomeFile2, maxdimp, maxdimg, Home, Position, w_Home, w_Position, w_Testo
'Questa variabile setta il percorso di dove effettuare l'upolad
'la cartella non puo non esistere lo script non la crea ! ! !
percorso = "/public/"
maxdimp=50000 ' dimensione massima immagine piccola
maxdimg=110000 ' dimensione massima immagine grande
ByteRicevuti = Request.TotalBytes
if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
FileBinario = RSBinaryToString(DatiRicevuti)
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)
if instr(Intestazione,"Titolo") > 0 then
w_codice = ContenutoFile
end if
if instr(Intestazione,"Testo") > 0 then
w_Testo = ContenutoFile
end if
' Recupero i campi se sono compilati
if instr(Intestazione,"IMG") > 0 then
w_PFoto = ContenutoFile
end if
'if instr(Intestazione,"GFoto") > 0 then
'w_GFoto = ContenutoFile
'end if
' Qui recupero il file da uploadare (se presente) e lo scrivo
' sul server
if instr(Intestazione,"UPlFotop") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")
NomeFile="" ' max
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
' if i<>0 then
if NomeFile<>"" then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
if len(w_PFoto)=0 then
NomeFile1 = NomeFile
w_PFoto = NomeFile
else
NomeFile1 = w_PFoto
end if
if DimensioneFile1 > maxdimp then
Errore = Errore & "Dimensione immagine piccola ("&DimensioneFile1*0.001 & " kb) maggiore del limite consentito ("&maxdimp*0.001 & " kb)
"
else
EstensioneFile1 = LCase(right(NomeFile,4))
if EstensioneFile1 <>".jpg" and EstensioneFile1 <>".gif" then
Errore = Errore & "Tipo di file non corretto : "&EstensioneFile1&"
"
else
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
end if
end if
Set FSO = Nothing
end if
end if
if instr(Intestazione,"UPlFotog") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")
NomeFile="" ' max
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
' if i<>0 then
if NomeFile<>"" then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload2 = True
DimensioneFile2 = len(ContenutoFile)
if len(w_GFoto)=0 then
NomeFile2 = NomeFile
w_GFoto = NomeFile
else
NomeFile2 = w_GFoto
end if
if DimensioneFile2 > maxdimg then
Errore = Errore & "Dimensione immagine grande ("&DimensioneFile2*0.001 & " kb) maggiore del limite consentito ("&maxdimg*0.001 & " kb)
"
else
EstensioneFile2 = LCase(right(NomeFile,4))
if EstensioneFile2 <>".jpg" and EstensioneFile2 <>".gif" then
Errore = Errore & "Tipo di file non corretto : "&EstensioneFile2&"
"
else
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile2), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
end if
end if
Set FSO = Nothing
end if
end if
next
End if
Dim Cod_Old, Errore, Tipologia, Codice, Prodotto, PDescrizione, GDescrizione, PFoto, GFoto, CPrezzo, RPrezzo, PuntiSconto, IVA, GiacenzaInfinita, Giacenza, Offerta, Spedizione, SpeseSpedizione, SCategoria, Categoria, Categorie
On Error Resume Next
'QSID = w_ID
'Cod_Old = w_Cod_Old
If w_Codice = "" Then
Errore = Errore & "Codice prodotto
"
Else
QSTitolo = Replace(w_Codice, "'", "''")
End If
If w_Testo = "" Then
Errore = Errore & "Nome prodotto
"
Else
QSTesto = Replace(w_Testo, "'", "''")
End If
'PDescrizione = Replace(w_PDescrizione, "'", "''")
'QSTestolink = Replace(w_GDescrizione, "'", "''")
'QSTesto = Replace(w_CPrezzo, "'", "''")
'Position = Replace(w_Position, "'", "''")
if w_PFoto<>"" then
QSIMG = "public/"&Replace(w_PFoto, "'", "''")
else
QSIMG=""
end if
If QSID <> "" Then
SQL = "UPDATE News Set Titolo = '" & QSTitolo & "', IMG = '" & QSIMG & "', Testo = '" & QSTesto & "', Testolink = '" & QSTestolink & "', Link = '" & QSLink & "' WHERE ID = " & QSID
Else
SQL = "INSERT INTO News (Titolo, IMG, Testo, Testolink, Link) VALUES ('" & QSTitolo & "','" & QSIMG & "','" & QSTesto & "','" & QSTestolink & "','" & QSLink & "')"
End If
Set RS = Conn.Execute(SQL)
Set RS = Nothing
Conn.close
Set Conn = Nothing
If Err = 0 Then Response.Redirect "ok.asp"
%>
Rispondi quotando
