Salve; uso upload di Baol in ambiente ASP-VB + MySQL.
Ho provato ad inserirlo in un semplice contesto: un form con cui un utente può modificare molte delle sue opzioni. Tra questa, può anche 'uppare' un avatar personale.
Tuttavia, durante l'esecuzione della pagina, ecco il bizzarro errore che presenta - e che non mi so spiegare:
Ecco il codice - in rosso grassettato la stringa in cui avviene l'errore:Microsoft VBScript runtime error '800a01f9'
Invalid or unqualified reference
codice:<html> <head> <title>Modifika</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="stylesheet" href="hostyle.css"> <% Dim oUpload Set oUpload= new cUpload .EnabledAspUpload = True .EnabledImageSize = TRUE .EnabledLog = False .AutoRename = True .Overwrite = False .SetPath "avatar/" .Load .UploadOnly "Images" If .Files("Height")>200 or .Files("Width")>200 then Response.write ("<font face='Verdana' size=2>Le dimensioni dell'immagine " &_ .GetFileName() &" non sono corrette (" &_ .Files("Height") &"x" & .Files("Width") &"): File non caricato </font>" ) else .Save Response.Write "<font face='Verdana' size=2>Upload di " & .GetFileName() & " avvenuto con successo!! </font>" end if .MoveNext Set oUpload = Nothing 'Recupero valori form id = oUpload.Form("id") If oUpload.Form("avy")=1 Then avatar = oUpload.Form("avatar") else avatar = oUpload.Form("avatar2") end if firma = oUpload.Form("firma") bg = oUpload.Form("bg") msn = oUpload.Form("msn") newowls = oUpload.Form("newowls") If newowls <> 1 Then newowls = 0 end if music_yn = oUpload.Form("music_yn") If music_yn <> 1 Then music_yn = 0 end if If Right(music, 4) <> ".mid" AND len(music)=>1 Then response.write "<font face='Verdana' size=2>Il file musicale deve essere un midi (estensione .mid)!</font>" response.end end if 'Replace di Bg e Firma bg = Replace(bg, "<", "<") bg = Replace(bg, ">", ">") firma = Replace(firma, "<", "<") firma = Replace(firma, ">", ">") bg = replace(bg,"'","''") bg = replace(bg,vbCrLf," ") msn = Replace(msn, "<", "<") msn = Replace(msn, ">", ">") msn = replace(msn,"'","''") music_yn = replace(music_yn,"'","''") firma = replace(firma,"'","''") firma = replace(firma,vbCrLf," ") 'Stop al ciclo If perm = 0 Then response.end end if 'Impostazione di Lrg lrg = 0 If large = "1" Then lrg = 1 'Se seleziono l'avatar allora salvo il file If avy = 2 and Not oUpload.EOF Then nym = "av" & id oUpload.SaveAs nym & "." & oUpload.Files("Ext") avatar = "avatar/" & nym & "." & oUpload.Files("Ext") end if 'Inserimento nel Database strSQL = "UPDATE info SET avatar = '"&avatar&"', newowls = "&newowls&", firma = '"&firma&"', music_yn = "&music_yn&", bg = '"&bg&"', msn='"&msn&"' WHERE id ="&id Conn.Execute strSQL %> <font face='Verdana' size='1'>Modifica effettuata con successo. Torna alla scheda.</font> <font face="Verdana"><font size="2">Importante!</font><font size="2"> Se hai inserito un avatar direttamente dal tuo computer, alla prossima modifica l'avatar settato sarà quello su Internet. Lascialo settato, perché il percorso Internet porta all'avatar che hai lanciato online</font></font>. <% 'Chiusura Set oUpload=Nothing %> </html>
Rispondi quotando
