274 messaggi dal 21 luglio 2001
mi giri gli include !!!
<!--#include file="class_upload.asp" -->
ecc !!!

perche mi da questo errore

Errore di run-time di Microsoft VBScript errore "800a01fa"

Classe non definita: 'FileUploader'

/registra utenti/addutenti.asp, riga 10

:-)
879 messaggi dal 09 luglio 2002
www.i-studio.it
Allora, ti consiglio di seguire l'indicazione che ti ha dato prima degasperi.
Ho dato un'occhiata all'esempio che trovi a questo indirizzo:

http://www.byluciani.com/public/asp/visualizza.asp?sezione=pratica&ID=3&titolo=UPLOAD

Si tratta di una procedura per l'upload interamente scritta in ASP/VBScript senza l'uso di componenti esterni.

Crea una pagina che chiami CLASS_UPLOAD.ASP dove inserisci la prima parte del codice che trovi a quell'indirizzo.

La pagina in HTML a te non interessa perche' hai gia' la tua.

Per ultimo, devi modificare la pagina ASP dove prima leggevi solo i vari valori e li inserivi nel DB. La parte di lettura dei valori e scrittura nel DB la puoi lasciare cosi' come e'. L'unica differenza e' che se prima usavi nome=request.form("nome") ora devi usare nome=uploader.form("nome").
Infine (come vedi nella parte finale dello script), puoi leggere il nome del file che e' stato "uploadato" e quindi puoi inserirlo nel DB come fai con gli altri valori.

Lo script mi sembra molto semplice. Penso che potrai modificarlo a tuo piacimento.

Ciao
Alex

Internetworking Studio Srl
www.i-studio.it
274 messaggi dal 21 luglio 2001
ma dove sbaglio ??
sto impazzendo !!!

connessione al db !!!!
<%
If IsObject(Session("DataBase_conn")) Then
Set conn = Session("DataBase_conn")
Else
curDir = Server.MapPath("db/DataBase.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/db/") & "\DataBase.mdb;Persist Security Info=False"

Set Session("db/DataBase_conn") = conn
End If

'sql="select * from utenti"
username=request("username")
sql="select * from Utenti where Utenti.username='" & username& "'"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

if not rs.eof then
'se trovi il valore nel campo nome
response.write "Nome utente già presente nel database"
else

'username = Request.QueryString("username")

rs.AddNew
username=uploader.form("usernamame")
Rs.Update

'username=uploader.form("usernamame")
'rs("IP") = Request.servervariables("SERVER_NAME")

rs.Update
rs.Close
response.write "Registrazione corretta"
response.write"<br></br>"
response.write"<a href=../index.asp>Effettua ora il tuo LOGIN</a>"
'response.write "Registrazione corretta"
'response.write"<a href=registra utenti/index.asp>Effettua ora il tuo LOGIN</a>"
end if
%>

mi da questo cacchio di errore !!!

Errore di run-time di Microsoft VBScript errore "800a01a8"

Necessario oggetto: ''

/include/add.asp, riga 38

:-)
12 messaggi dal 18 giugno 2001
Scaricati tutto dall'URL

http://www.byluciani.com/public/asp/visualizza.asp?sezione=pratica&ID=3&titolo=UPLOAD - Gestiamo i nostri upload con VBScript
274 messaggi dal 21 luglio 2001
GIA FATTO...MA NON MI INSERISCE LA STRINGA NEL DATABASE !!!

:-)
879 messaggi dal 09 luglio 2002
www.i-studio.it
L'errore che hai nella pagina:
"Necessario oggetto" te lo da perche' stai usando l'oggetto uploader senza aver fatto prima la dichiarazione:

Set Uploader = New FileUploader

Nella pagina dove fai l'inserimento nel DB, devi includere il file class_upload.asp con la direttiva include:

<!--#include file="class_upload.asp" -->

Poi, devi creare l'istanza del tuo oggetto FileUploader:

<%
' Creiamo l'oggetto FileUploader ed assegnamogli il nome Uploader
Dim Uploader, File
Set Uploader = New FileUploader
'Impostiamo la dimensione max del file in byte
Uploader.maxSize = 50000 '50kb
'Impostiamo il tipo di file ammessi
Uploader.fileExt = "jpg,gif,bmp"
'Iniziamo il processo di upload
Uploader.Upload()
...
e subito dopo puoi recuperare i valori della tua form

'Recuperiamo i campi del form
nome = Uploader.Form("nome")
...

A questo punto, al posto di "nome", leggi tutti i valori della tua form.

Infine, devi salvare l'immagine sul disco e leggi il nome in modo da poterlo poi inserire nel DB:

<%
For Each File In Uploader.Files.Items
'Salvo il file
File.SaveToDisk strPath ' <-- strPath deve essere il path fisico dove vuoi memorizzare il file es. c:\miacartella\

nomeImmagine = File.FileName
Next
%>

Quindi, alla fine avrai una serie di variabili che contengono i valori della tua form (nome, cognome, ecc.) oltre al nome dell'immagine (nomeImmagine) e puoi procedere con l'inserimento dei dati nel DB.

Ciao
Alex

Internetworking Studio Srl
www.i-studio.it

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.