upload di baol

[ISE]

Non ti spaventare...l'upload funziona bene...volve chiederti se posso caricare file autocad e quanto è la dimensione massina di caricamento per i file di upload...

[ISE]

Il funzionamento è ok ma quando carico i pdf mi carica lo stesso file 2 volte...come mai?

[ISE]

Ciao...senti il file da un giorno all'altro mi ha dato errore.

Funzionava tutto in maniera regolare ma oggi mi da questo tipo di errore

Microsoft VBScript runtime error '800a01a8' 

Object required: 'Files' 

/area/Upload.asp, line 279

A cosa è dovuto?
Stavo caricando una jpg, anche molto leggera...

[fabiusriders]

Ciao a tutti riprendo il post..
sto utilizzando l'upload di baol, dopo un pò di settaggi funziona tutto upload del file nella cartella public e il database viene popolato, ma l'indirizzo dell'immagine è corretto solo per metà.
Spiego meglio:
nel record del database mi ritrovo questo:
d:\inetpub\webs\ridersitaliait\public\public\codim age\fotouucopia_1.jpg

dove posso inserire il corretto indirizzo dell'immagine? le ho provate tutte

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../mdb-database/condimage.mdb"),"SELECT Top 1 * FROM [image]"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "/"
.Load
.MoveFirst
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
else
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "il file " & .GetFileName &" � stato salvato 
"
			'Inserimento dei valori
			.Database.Fields("Titolo") = .Form("Titolo")
			.Database.Fields("Percorso") = .GetCompletePathFile
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing
%>

grazie in anticipo

[fabiusriders]

problema risolto!!

ho un'altro dubbio! se conoscete lo script potete dirmi come faccio ad evitare di far caricare file superiori a kb che imposto io?

[Jumpychan]

oUpload.Files("Size") ti restituisce le dimensioni del file

[fabiusriders]

grazie Jumpychan per la risposta!!
il codice che mi hai scritto non riesco a trovarlo ne nel file upload ne su upload_database

negli esempi di baol c'è il file Upload_LimitSizeAndImages.asp che servirebbe per il size delle immagini ma come faccio ad implementarlo con l'upload_database???

grazie

[Jumpychan]

Nel file upload c'è la funzione InitUploadFiles che contiene

Files.Fields.append "Size"

Ti posto un esempio di come lo usavo:

Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = False
oUpload.Overwrite = true
oUpload.SetPath "immagini"
		
oUpload.Load		
oUpload.movefirst		
oUpload.UploadOnly "Images"
		
if not oUpload.EOF then
	dim dimensioni
	dimensioni=oUpload.Files("Size")
	if clng(dimensioni)<51200 then
		oUpload.SaveAs "miofile.jpg"
	end if
end if

Set oUpload=Nothing

[fabiusriders]

mah sembra che io stia leggendo un file diverso la funzione che mi hai scritto l'ho trovata solo su questa parte del codice della pagina upload.asp
in rosso ho messo il valore che ho modificato che prima era 1024 * 20 adesso ho messo 24 * 20 che fa 480kb ma ho provato a caricare una foto di 3 mb e la carica lo stesso


'*** Impostazione Valori in Byte ****
If VarType(Files)<>9 then
cContentDisp = getByteString("Content-Disposition")
cContentType = getByteString("Content-Type:")
cName = getByteString("name=""")
cFileName = getByteString("filename=")
c13b = getByteString(chr(13))
c34b = getByteString(chr(34))
cEndBin = getByteString("--")
cVbCrLf = getByteString(vbCrLf)
Set Files = Server.CreateObject("ADODB.Recordset")
Files.Fields.append "InputName" ,adVarChar,255
Files.Fields.append "FileName" ,adVarChar,255
Files.Fields.append "DestPath" ,adVarChar,255
Files.Fields.append "Name" ,adVarChar,255
Files.Fields.append "Ext" ,adVarChar,255
Files.Fields.append "FileExists" ,adBoolean,1
Files.Fields.append "ContentType" ,adVarChar,255
Files.Fields.append "Size" ,adBigInt,-1
Files.Fields.append "StreamType" ,adSmallInt,2
Files.Fields.append "Date" ,adDate,-1
Files.Fields.append "OverWrite" ,adBoolean,1
Files.Fields.append "AutoRename" ,adBoolean,1
Files.Fields.append "Cancel" ,adBoolean,1
Files.Fields.append "Saved" ,adBoolean,1
If EnabledImageSize then
Files.Fields.append "Height" ,adInteger,-1
Files.Fields.append "Width" ,adInteger,-1
Files.Fields.append "Info" ,adVarChar,255
end if
Files.Fields.append "ErrorNumber" ,adInteger,4
Files.Fields.append "Error" ,adVarChar,255
Files.Fields.append "Content" ,adLongVarBinary,-1

Files.Open
end if
end function

Private function BinaryStringRead()
Dim bR,bTr
bR = 0:bTr = 24 * 20
Rs.AddNew
while bR< iTotalBytes
if iTotalBytes - (br + bTr)< 0 then bTr = iTotalBytes - bR
rs.fields("sBinary").AppendChunk Request.BinaryRead(bTr)
bR = bR + bTr
wend
Rs.Update
BinaryStringRead = rs.fields("sBinary")
Rs.CancelUpdate
end function

Private function BinaryRead()
Dim bR,bTr,iT,eT,ePT
Stream.Type = 1
Stream.Open
bR = 0:bTr = 24 * 20
iT = Timer()
do while bR< iTotalBytes
if iTotalBytes - (br + bTr)< 0 then bTr = iTotalBytes - bR
Stream.Write Request.BinaryRead(bTr)
bR = bR + bTr
loop

eT = Timer()
if (Et-iT)<>0 then
ConnectionSpeed = cStr(round((bR / (Et-iT)) / 1024,1)) & " [kb/s]"
else
ConnectionSpeed = cStr(round(bR/1024,1)) & " [kb/ms]"
end if
Stream.Position = 0
end function