Buon Giorno, sono nuovo di ASP e in questi mesi m sto preparando alla tesi con un sito con questo linguaggio.
Ho un problema con l'upload.
difatti io devo permettere all'utente di caricare il proprio avatar e contemporaneamente verificare le dimensioni.
Per l'upload sto usando lo script di Baol, l'ho trovato in rete ed è molto potente!
Il problema, ora è effettuare il controllo della dimensione.
Inoltre sarebbe carine che, in caso di dimensioni più grosse del previsto, io possa effettuare il resize.
Qualcuno sa come aiutarmi?
l script che eseguo è il seguente: non da problemi, solo che non carica l'immagine anche se è più piccola del limitw:
<%
Dim oUpload, strNick
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "\upload" 'Impostazione del percorso
oUpload.Load
oUpload.UploadOnly "Images"
strNick = oUpload.Form("nickName")
'VERIFICO SE IL NICK DEL FORM COINCIDE CON IL NICK DELLA SESSION
'IN CASO CONTRARIO DISCONNETTO
if (strNick<>strUser) then
response.Redirect(linkhome & "?disc=1")
end if
if (strNick<>"") then
'RICERCA DEL FILE DA MODIFICARE NEL RECORD DELLA TABELLA ATTIVITA'
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open (strConn)
dim strSql
strSql = "SELECT * FROM users WHERE userName='" & strUser & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, Conn ,3,3
strNomeFile=rs("immagine")
rs.Close
set rs = Nothing
Conn.Close
set Conn = Nothing
'TROVATO IL NOME DEL FILE LO VADO A CANCELLARE DAL SERVER
if (strNomeFile<>"") then
dim fso, fileDaCancellare
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fileDaCancellare = strPathUploadCv & strNomeFile
fso.DeleteFile(fileDaCancellare)
Set fso = Nothing
end if
'CANCELLATO IL FILE DAL SERVER ESEGUO L'UPLOAD DEL NUOVO FILE
dim fileName
While Not oUpload.EOF
oUpload.Save()
fileName = oUpload.GetFileName()
oUpload.MoveNext
Wend
'DOPO L'UPLOAD DEL FILE ESEGUO L'UPDATE NELLA TABELLA
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open (strConn)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, conn ,3,3
rs("immagine")=fileName
rs.update
rs.Close
Set rs = Nothing
Conn.Close
Set Conn=Nothing
Set oUpload = Nothing
linkFileAllegato = "profilo.asp?azione=editAvatar&esito=corretto"
response.Redirect(linkFileAllegato)
else
linkFileAllegato = "profilo.asp?azione=editAvatar&esito=negativo"
response.Redirect(linkFileAllegato)
end if
%>
Grazie per la risposta!
