I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
cotechino
cotechino
il 5 aprile 2003 alle 09:41
18 messaggi dal 31 marzo 2003
Salve a tutti,
x uploadare sul server testo e immagini tramite un form ho trovato in rete uno script e l'ho modificato x le mie esigenze. Testo e foto verranno poi visualizzati in un'altra pagina. Fin qui tutto funziona bene, il problema è che se non carico nessun'immagine lo script non mi scrive sul database nemmeno gli altri dati...ho provato in diversi modi, ma niente...mi sapete aiutare? Questo è lo script:

<%
Response.Expires = 0
Response.Buffer = TRUE
'Response.Clear
%>
<!--#include file="adovbs.inc" -->
<!--#include file="connessione.asp" -->
<!--#include file="class_upload.asp" -->
<%
'Creiamo l'oggetto FileUploader ed assegnamogli il nome Uploader

dim miorec
set miorec = server.CreateObject("adodb.recordset")
miorec.open "select * from t_news",miacon, 1, 3
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()


%>
<html>
<head>
<title>fm</title>
</head>
<body>
<center>


<%
strPath = Server.MapPath("images") & "\"

'Controlliamo se sono stati inviati dei file


'Ciclo tra i file inviati
For Each File In Uploader.Files.Items

'Salvo il file
File.SaveToDisk strPath

'eseguo un addnews sul database

dim img
img=file.FileName
miorec.addnew
miorec("immagine")=img
miorec("titolonews")=uploader.form("titolo")
miorec("corponews")=uploader.form("corponews")
miorec("data")=uploader.form("data")
miorec("autore")=uploader.form("autore")
miorec("mail")=uploader.form("mail")
miorec.update
response.redirect("segnalazioneok.asp")

%>




<%
Set Uploader = Nothing


Next

%>
</center>
</body>
</html>
RispondiQuoting
Sh4nK
Sh4nK
il 6 aprile 2003 alle 09:51
78 messaggi dal 19 marzo 2003
Innanzitutto ti spiego perché non funziona... in pratica tu gli dici:
PER OGNI FILE UPLOADATO, FAI UN ADDNEW SCRIVENDO QUESTE COSE NEL DB.

Ovviamente non ti scrive nulla nel db se non uppi almeno un file... ecco come puoi correggere la cosa:

___
Function miaFunz()

Set Uploader = Nothing
miorec("titolonews")=uploader.form("titolo")
miorec("corponews")=uploader.form("corponews")
miorec("data")=uploader.form("data")
miorec("autore")=uploader.form("autore")
miorec("mail")=uploader.form("mail")
miorec.update
response.redirect("segnalazioneok.asp")

End Function

Dim iCounter
iCounter = 0

For Each File In Uploader.Files.Items


File.SaveToDisk strPath

iCounter = iCounter + 1

dim img
img=file.FileName
miorec.addnew
miorec("immagine")=img
miaFunz()

Next

If iCounter = 0 Then
miaFunz2()
End If


Function miaFunz2()

miorec.AddNew
Set Uploader = Nothing
miaFunz()

End Function
_____
Così dovrebbe funzionare... cerca di capire quello che ho scritto, e se propio non riesci a capirlo chiedi che te lo spiego, scusa ma ora devo scappare e non ho tempo di spiegartelo, cmq vedi se funziona e dimmi. :)
Ciau.
Modificato da Sh4nK il 06 aprile 2003 10.52 -
____
Ciao :)
RispondiQuoting
cotechino
cotechino
il 6 aprile 2003 alle 11:44
18 messaggi dal 31 marzo 2003
Grazie mille Shank..ora ci provo...ti farò sapere! Grazie di cuore!
RispondiQuoting
cotechino
cotechino
il 7 aprile 2003 alle 16:59
18 messaggi dal 31 marzo 2003
Sono riuscito a far funzionare lo script che mi avevi consigliato, riadattandolo un po'x le mie esigenze.
Se lo provo in localhost funziona tutto alla xfezione, ma quando lo metto sul server e provo ad uploadare foto e testo insieme mi da errore 500 errore interno del server.(se invece provo ad uploadare solo testo funziona tutto alla xfezione).
In teoria non dovrebbe usare componenti esterni come dll cui il server magari non può disporre...xò l'errore è simile a quello!
Vi riporto di seguito lo script, facendo notare che le classi sono specificate in un file incluso chiamato class_upload.asp
Sapete risolvere il mio problema?
ecco lo script:

<%
Response.Expires = 0
Response.Buffer = TRUE
'Response.Clear
%>
<!--#include file="adovbs.inc" -->
<!--#include file="connessione.asp" -->
<!--#include file="class_upload.asp" -->
<%
'Creiamo l'oggetto FileUploader ed assegnamogli il nome Uploader

dim miorec
set miorec = server.CreateObject("adodb.recordset")
miorec.open "select * from t_news",miacon, 1, 3
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()


'Visualizziamoli
titolo=uploader.form("titolo")
news=uploader.form("corponews")
data=uploader.form("data")
autore=uploader.form("autore")
mail=uploader.form("mail")
%>
<html>
<head>
<title>fm</title>
</head>
<body>
<center>


<%

Function miaFunz()

Set Uploader = Nothing
miorec("titolonews")=titolo
miorec("corponews")=news
miorec("data")=data
miorec("autore")=autore
miorec("mail")=mail
miorec.update
response.redirect("segnalazioneok.asp")

End Function

strPath = Server.MapPath("images") & "\"

'Controlliamo se sono stati inviati dei file


Dim iCounter
iCounter = 0

For Each File In Uploader.Files.Items


File.SaveToDisk strPath

iCounter = iCounter + 1

dim img
img=file.FileName
miorec.addnew
miorec("immagine")=img
miaFunz()

Next

If iCounter = 0 Then
miaFunz2()
End If


Function miaFunz2()

miorec.AddNew
Set Uploader = Nothing
miaFunz()

End Function



%>



</center>
</body>
</html>
RispondiQuoting

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.