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:
Microsoft VBScript runtime error '800a01f9'
Invalid or unqualified reference
Ecco il codice - in rosso grassettato la stringa in cui avviene l'errore:
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>