upload multiple

**forte78** · 16-07-2010, 11:07

salve ho trovato questo script x l'upload multiplo di foto.....

<%@ Language="VBScript" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
Form - Keeping state after submitting
</title>
<link href="demo.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div class="demo">

<h2>Keeping state after submitting</h2>

A sample demonstrates how to keep uploaded file state during page postbacks.</p>

<form id="form1" method="POST">
<%

Dim uploader
Set uploader=new AspUploader
uploader.MaxSizeKB=10240
uploader.Name="myuploader"
uploader.SaveDirectory="savefiles"
uploader.InsertText="Select multiple files (Max 10M)"
uploader.AllowedFileExtensions="*.jpg,*.png,*.gif"
uploader.MultipleFilesUpload=true

%>

<%=uploader.GetString() %>

<%

Dim processedlist,guidarr
processedlist=Request.Form("processedlist") & ""
'If processedlist<> "" Then
' guidarr=Split(processedlist,"/")
' processedlist=""
' For i=0 To UBound(guidarr)
' Set mvcfile=uploader.GetUploadedFile(guidarr(i));
' Next
'End If

If Request.Form("myuploader")&""<>"" Then

If processedlist="" Then
processedlist=Request.Form("myuploader")
Else
processedlist=processedlist & "/" & Request.Form("myuploader")
End If
End If

If processedlist<>"" Then
Dim list,i
list=Split(processedlist,"/")

Response.Write("<table style='border-collapse: collapse' class='Grid' border='0' cellspacing='0' cellpadding='2'>")
For i=0 to Ubound(list)

Dim mvcfile
Set mvcfile=uploader.GetUploadedFile(list(i))

Response.Write("<tr>")
Response.Write("<td>")
Response.Write("[img]aspuploader/resources/circle.png[/img]")
Response.Write("</td>")
Response.Write("<td>")
Response.Write(mvcfile.FileName)
Response.Write("</td>")
Response.Write("<td>")
Response.Write(mvcfile.FileSize)
Response.Write("</td>")
Response.Write("</tr>")

Next

Response.Write("</table>")

End If

%>

<input type='hidden' name='processedlist' value='<%= processedlist %>' />

<input type='submit' value="Submit Form" />
Now: <%=Time() %>

</form>

</div>
</body>
</html>

l'upload funziona e carica correttamente tutte le foto sulla cartella specifica

la mia domanda è questa quando mi visualizza i risultati cioe esempio :

foto1.jpg
foto2.jpg
foto3.jpg
foto4.jpg

vorrei associare per ogni riga di valore di response.write un <input type="hidden"> con value="" il response.write e il name = "foto1" naturalmente ad ogni riga il cambiamento del n.della foto cioe foto2 x la riga 3 foto3 e cosi via

come form name un input submit che mi spedisca questi hidden ad un salvataggio su db.

cioe in sostanza una volta elencati tutti gli hidden vorrei cliccare un pulsante per salvarli poi in un altra pagina

Fatemi sapere come operare
grazie saluti

**forte78** · 16-07-2010, 17:06

ci sono novità ragazzi potete aiutarmi ??

**Roby_72** · 16-07-2010, 20:28

codice:

<input type="hidden" name="foto<%=i+1%>" value="<%=mvcfile.FileName%>" />

Dentro al ciclo...

Roby

**forte78** · 19-07-2010, 09:28

ho fatto cosi

<%

Dim processedlist,guidarr
processedlist=Request.Form("processedlist") & ""
'If processedlist<> "" Then
' guidarr=Split(processedlist,"/")
' processedlist=""
' For i=0 To UBound(guidarr)
' Set mvcfile=uploader.GetUploadedFile(guidarr(i));
' Next
'End If

If Request.Form("myuploader")&""<>"" Then

If processedlist="" Then
processedlist=Request.Form("myuploader")
Else
processedlist=processedlist & "/" & Request.Form("myuploader")
End If
End If

If processedlist<>"" Then
Dim list,i
list=Split(processedlist,"/")

Response.Write("<table style='border-collapse: collapse' class='Grid' border='0' cellspacing='0' cellpadding='2'>")
For i=0 to Ubound(list)

Dim mvcfile
Set mvcfile=uploader.GetUploadedFile(list(i))

Response.Write("<tr>")
Response.Write("<td>")
Response.Write("[img]aspuploader/resources/circle.png[/img]")
Response.Write("</td>")
Response.Write("<td>")
Response.Write(mvcfile.FileName)
Response.Write("</td>")
Response.Write("<td>")
Response.Write(mvcfile.FileSize)
Response.Write("</td>")

Response.Write("</tr>")
<input type="hidden" name="foto<%=i+1%>" value="<%=mvcfile.FileName%>" />

Next

Response.Write("</table>")

End If

%>

e mi da :

Microsoft VBScript compilation error '800a0400'

Expected statement

/demo02/multipleupload/form-keepingstate.asp, line 86

<input type="text" name="foto<%=i+1
^

dove sto sbagliando ?
fatemi sapere

**Roby_72** · 19-07-2010, 09:41

codice:

Response.Write("</tr>")%>
<input type="hidden" name="foto<%=i+1%>" value="<%=mvcfile.FileName%>" />
<%
Next

Roby

**forte78** · 19-07-2010, 15:29

ok

ti mostro l'attuale codice

<%
Dim cod
cod=Request.Querystring("cod")
Dim SQL,Rec
sql = "SELECT * FROM immobili WHERE codiceimmobile =" & cod
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
%>

<div class="demo">

<h2>Keeping state after submitting</h2>

A sample demonstrates how to keep uploaded file state during page postbacks.</p>

<form name="form1" method="POST">

<%

Dim uploader
Set uploader=new AspUploader
uploader.MaxSizeKB=30240
uploader.Name="myuploader"
uploader.SaveDirectory="/public/"
uploader.InsertText="Select multiple files (Max 30M)"
uploader.AllowedFileExtensions="*.jpg,*.png,*.gif"
uploader.MultipleFilesUpload=true

%>

<%=uploader.GetString() %>

<%

Dim processedlist,guidarr
processedlist=Request.Form("processedlist") & ""
'If processedlist<> "" Then
' guidarr=Split(processedlist,"/")
' processedlist=""
' For i=0 To UBound(guidarr)
' Set mvcfile=uploader.GetUploadedFile(guidarr(i));
' Next
'End If

If Request.Form("myuploader")&""<>"" Then

If processedlist="" Then
processedlist=Request.Form("myuploader")
Else
processedlist=processedlist & "/" & Request.Form("myuploader")
End If
End If

If processedlist<>"" Then
Dim list,i
list=Split(processedlist,"/")

Response.Write("<table style='border-collapse: collapse' class='Grid' border='0' cellspacing='0' cellpadding='2'>")
For i=0 to Ubound(list)

Dim mvcfile
Set mvcfile=uploader.GetUploadedFile(list(i))

Response.Write("<tr>")
Response.Write("<td>")
Response.Write("[img]aspuploader/resources/circle.png[/img]")
Response.Write("</td>")
Response.Write("<td>")
Response.Write(mvcfile.FileName)
Response.Write("</td>")
Response.Write("<td>")
Response.Write(mvcfile.FileSize)
Response.Write("</td>")

Response.Write("</tr>")%>
<input type="text" name="foto<%=i+1%>" value="<%=mvcfile.FileName%>" />
<%
Next

Response.Write("</table>")

End If

%>

<input type="text" name="codiceimmobile" value="<%=rec("codiceimmobile")%>" size="1">

<input type='hidden' name='processedlist' value='<%= processedlist %>' />

</form>

</div>

</body>
</html>

una volta caricate in upload tutte le immagini me le visualizza con la casella input type riempita corrispondenta al nome campo = foto1 come tu mi hai correttamente indicato

se io creo un pulsante

<form action="formprocess.asp?cod=<%=cod%>">

<input type="text" name="foto1" value="<%=Request.Form("foto1")%>" size="1">
<input type="text" name="foto2" value="<%=Request.Form("foto2")%>" size="1">

<input type="text" name="codiceimmobile" value="<%=rec("codiceimmobile")%>" size="1">

<input type="submit" value="inserisci">
</form>

non mi rileva il valore del input type text foto1 della parte superiore

cioe esempio se nella lista visualizzata mi stampa

3.jpg sarebbe foto1
4.jpg sarebbe foto2

in basso mi deve copiare i campi corrispondenti foto1 = 3.jpg foto2=4.jpg ma non lo fa con un request.form ma mi sa che sono veramente fuori strada...................

come posso fare tutto questo per poi cliccare il pulsante e fare l'inserimento su db

un ringraziamento anticipato

**forte78** · 19-07-2010, 17:52

novita ....

**forte78** · 19-07-2010, 18:20

funziona cosi

<%@ Language="VBScript" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
Form - Keeping state after submitting
</title>
<link href="demo.css" rel="stylesheet" type="text/css" />
</head>
<body>

<%
Dim cod
cod=Request.Querystring("cod")
Dim SQL,Rec
sql = "SELECT * FROM immobili WHERE codiceimmobile =" & cod
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
%>

<div class="demo">

<h2>Keeping state after submitting</h2>

A sample demonstrates how to keep uploaded file state during page postbacks.</p>

<form name="form1" method="POST" action="form-keepingstateprocess.asp?cod=<%=cod%>">

<%

Dim uploader
Set uploader=new AspUploader
uploader.MaxSizeKB=30240
uploader.Name="myuploader"
uploader.SaveDirectory="/public/"
uploader.InsertText="Select multiple files (Max 30M)"
uploader.AllowedFileExtensions="*.jpg,*.png,*.gif"
uploader.MultipleFilesUpload=true

%>

<%=uploader.GetString() %>

<%

Dim processedlist,guidarr
processedlist=Request.Form("processedlist") & ""
'If processedlist<> "" Then
' guidarr=Split(processedlist,"/")
' processedlist=""
' For i=0 To UBound(guidarr)
' Set mvcfile=uploader.GetUploadedFile(guidarr(i));
' Next
'End If

If Request.Form("myuploader")&""<>"" Then

If processedlist="" Then
processedlist=Request.Form("myuploader")
Else
processedlist=processedlist & "/" & Request.Form("myuploader")
End If
End If

If processedlist<>"" Then
Dim list,i
list=Split(processedlist,"/")

Response.Write("<table style='border-collapse: collapse' class='Grid' border='0' cellspacing='0' cellpadding='2'>")
For i=0 to Ubound(list)

Dim mvcfile
Set mvcfile=uploader.GetUploadedFile(list(i))

Response.Write("<tr>")
Response.Write("<td>")
Response.Write("[img]aspuploader/resources/circle.png[/img]")
Response.Write("</td>")
Response.Write("<td>")
Response.Write(mvcfile.FileName)
Response.Write("</td>")
Response.Write("<td>")
Response.Write(mvcfile.FileSize)
Response.Write("</td>")

Response.Write("</tr>")%>
<input type="text" name="foto<%=i+1%>" value="<%=mvcfile.FileName%>" />
<%
Next

Response.Write("</table>")

End If

%>

<input type="text" name="codiceimmobile" value="<%=rec("codiceimmobile")%>" size="1" />

<input type='hidden' name='processedlist' value='<%= processedlist %>' />
<input type='submit' value="Submit Form" />

</form>

</div>

</body>
</html>

xo noto che quando sono su form-keepingstate.asp?cod=3 mi salva addirittura ... mi rileva infatti il valore all'interno del campo foto1,........

mentre se vado su form-keepingsta.asp?cod=10 cioe un altro record non mi rileva piu nulla perche ????

ci sono quasi datemi voi una mano.....

**forte78** · 20-07-2010, 10:47

avete novita....

**forte78** · 20-08-2010, 15:12

salve riprovando questo script mi da :

Microsoft JScript runtime error '800a139e'

License Error : License Error : (4) license expired! at function Oxd2 at function Oxbc

/demo02/multipleupload/aspuploader/resources/coreimpl.js, line 1

è possibile che c'è una licenza su questa script e che dopo un tot nn me lo fa + usare ..... è abbastanza assurda la cosa....

fatemi sapere se c'è qualcosa di simile x asp attendo notizie

Discussione: upload multiple

Strumenti discussione

Ricerca discussione

Visualizza

upload multiple

Permessi di invio