Submit pagina automatico

**pegaso22** · 17-06-2005, 10:29

Ciao a tutti,
è possibile fare in automatico il submit del form di una pagina?
Praticamente ho una pagina dove inserisco determinati dati, clicco un pulsante che mi fa il submit richiamando un altra pagina; quest'altra pagina recupera i dati e li organizza in un altro form che in automatico dovrebbe fare il submit verso un altra pagina.
Un discorso un pò contorto per non c'è nulla di complicato credo.

Fatemi sapere.
Grazie mille.

**Baol74** · 17-06-2005, 10:33

codice:

<form name="MainForm" action="pagina.asp" Method="Post">
<input type="hidden" value="1">
</form>

<script language="javascript" type="text/javascript">
document.forms["MainForm"].submit()
</script>

**pegaso22** · 17-06-2005, 10:34

Ok, grazie mille.
Provo poi ti faccio sapere.

**pegaso22** · 17-06-2005, 10:46

Mi da errore nello script, la pagina che sto utilizzando è questa:

codice:

<%@LANGUAGE="VBSCRIPT"%>
<%server.scripttimeout = 1800%> 
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script language="javascript" type="text/javascript">
document.forms["MainForm"].submit()
</script>

</head>

<body>
<table cellpadding="0" cellspacing="0">
	<tr>
		<td>
		  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="550" height="400">
              <param name="movie" value="caricamento.swf">
              <param name="quality" value="high">
              <embed src="caricamento.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="550" height="400"></embed>
		  </object>
		</td>
	</tr>
</table>
<%
percorso = "/public/offertedelmese/"
ByteRicevuti = Request.TotalBytes

if ByteRicevuti > 0 then
	DatiRicevuti = Request.BinaryRead(ByteRicevuti)
	For i = 1 To lenB(DatiRicevuti)
		FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
	Next
	FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
	ArrPezzi = split(FileBinario,FirmaFile)

	for item = 1 to ubound(ArrPezzi)-1
		Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
		Intestazione = left(ArrPezzi(item),Inizio-1)
		Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
	    	ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)				

		if instr(Intestazione,"campoabilitato") > 0 then
			campoabilitato = ContenutoFile																		
		end if
				
		if instr(Intestazione,"campotitolo") > 0 then
			Ctitolo = ContenutoFile
			Ctitolo = replace(Ctitolo,"'","''")
			Ctitolo = replace(Ctitolo,"£","&pound;")
			Ctitolo = replace(Ctitolo,"&","&amp;")
			Ctitolo = replace(Ctitolo,"ì","&igrave;")
			Ctitolo = replace(Ctitolo,"<","&lt;")
			Ctitolo = replace(Ctitolo,">","&gt;")
			Ctitolo = replace(Ctitolo,"è","&egrave;")
			Ctitolo = replace(Ctitolo,"é","&eacute;")
			Ctitolo = replace(Ctitolo,"ò","&ograve;")
			Ctitolo = replace(Ctitolo,"ç","&ccedil;")
			Ctitolo = replace(Ctitolo,"à","&agrave;")
			Ctitolo = replace(Ctitolo,"°","&deg;")
			Ctitolo = replace(Ctitolo,"ù","&ugrave;")
			Ctitolo = replace(Ctitolo,"§","&sect;")
			Ctitolo = replace(Ctitolo,"€","&euro;")
			Ctitolo = replace(Ctitolo,chr(34),"''''")												
		end if
				
		if instr(Intestazione,"campobrevedescrizione") > 0 then
			Cbrevedescrizione = ContenutoFile
			Cbrevedescrizione = replace(Cbrevedescrizione,"'","''")
			Cbrevedescrizione = replace(Cbrevedescrizione,"£","&pound;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"&","&amp;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"ì","&igrave;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"<","&lt;")
			Cbrevedescrizione = replace(Cbrevedescrizione,">","&gt;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"è","&egrave;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"é","&eacute;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"ò","&ograve;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"ç","&ccedil;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"à","&agrave;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"°","&deg;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"ù","&ugrave;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"§","&sect;")
			Cbrevedescrizione = replace(Cbrevedescrizione,"€","&euro;")
			Cbrevedescrizione = replace(Cbrevedescrizione,chr(13),"
")															
		end if	
		
		if instr(Intestazione,"campodescrizione") > 0 then
			Cdescrizione = ContenutoFile
			Cdescrizione = replace(Cdescrizione,"'","''")
			Cdescrizione = replace(Cdescrizione,"£","&pound;")
			Cdescrizione = replace(Cdescrizione,"&","&amp;")
			Cdescrizione = replace(Cdescrizione,"ì","&igrave;")
			Cdescrizione = replace(Cdescrizione,"<","&lt;")
			Cdescrizione = replace(Cdescrizione,">","&gt;")
			Cdescrizione = replace(Cdescrizione,"è","&egrave;")
			Cdescrizione = replace(Cdescrizione,"é","&eacute;")
			Cdescrizione = replace(Cdescrizione,"ò","&ograve;")
			Cdescrizione = replace(Cdescrizione,"ç","&ccedil;")
			Cdescrizione = replace(Cdescrizione,"à","&agrave;")
			Cdescrizione = replace(Cdescrizione,"°","&deg;")
			Cdescrizione = replace(Cdescrizione,"ù","&ugrave;")
			Cdescrizione = replace(Cdescrizione,"§","&sect;")
			Cdescrizione = replace(Cdescrizione,"€","&euro;")
			Cdescrizione = replace(Cdescrizione,chr(13),"
")															
		end if
		
		if instr(Intestazione,"campofoto1P") > 0 then
			Cfoto1P = ContenutoFile															
		end if	

		if instr(Intestazione,"campofoto2P") > 0 then
			Cfoto2P = ContenutoFile															
		end if
		
		if instr(Intestazione,"campofoto3P") > 0 then
			Cfoto3P = ContenutoFile															
		end if
		
		if instr(Intestazione,"campofoto1G") > 0 then
			Cfoto1G = ContenutoFile															
		end if
		
		if instr(Intestazione,"campofoto2G") > 0 then
			Cfoto2G = ContenutoFile															
		end if
		
		if instr(Intestazione,"campofoto3G") > 0 then
			Cfoto3G = ContenutoFile															
		end if																							
								
	next

if campoabilitato <> "SI" then
	Cabilitato = "N"
else
	Cabilitato = "S"
end if

if Ctitolo = "" then
Ctitolo = " "
end if

if Cbrevedescrizione = "" then
Cbrevedescrizione = " "
end if

if Cdescrizione = "" then
Cdescrizione = " "
end if

end if

%>
<form action="aggiorna offerte del mese aggiungi2.asp" method="post" enctype="multipart/form-data" name="MainForm">
	<input type="hidden" name="campoabilitato" class="stilenero11" value="<% Response.Write(Cabilitato) %>">
	<input type="hidden" name="campotitolo" class="stilenero11" value="<% Response.Write(Ctitolo) %>">
	<input type="hidden" name="campobrevedescrizione" class="stilenero11" value="<% Response.Write(Cbrevedescrizione) %>">
	<input type="hidden" name="campodescrizine" class="stilenero11" value="<% Response.Write(Cdescrizione) %>">
	<input type="hidden" name="campofoto1P" class="stilenero11" value="<% Response.Write(Cfoto1P) %>">
	<input type="hidden" name="campofoto1G" class="stilenero11" value="<% Response.Write(Cfoto1G) %>">
	<input type="hidden" name="campofoto2P" class="stilenero11" value="<% Response.Write(Cfoto2P) %>">
	<input type="hidden" name="campofoto2G" class="stilenero11" value="<% Response.Write(Cfoto2G) %>">
	<input type="hidden" name="campofoto3P" class="stilenero11" value="<% Response.Write(Cfoto3P) %>">
	<input type="hidden" name="campofoto3G" class="stilenero11" value="<% Response.Write(Cfoto3G) %>">								
</form>
</body>
</html>

Cosa vedi di anomalo?

**Baol74** · 17-06-2005, 10:55

ci sono 2 anomalia

1. Lo script va dopo il form. Altrimenti come fa a trovare l'oggetto MainForm se ancora non è stato creato?

2. Perchè metti l'ectype? Non devi e non puoi fare un upload

**pegaso22** · 17-06-2005, 11:00

Perchè non posso farlo?
Avevo il timore di questo... praticamente i campi che ho messo hidden e che si chiamano foto1P/1G ecc... sono campi che servono per fare l'upload.
Cosa posso fare?

**Baol74** · 17-06-2005, 11:03

Ovvero? Cosa vuoi dire? che nei campi c'è il percorso del file da caricare?

Ma la pagina ha già la funzione di upload, perchè devi reinviare i files?

Ma perchè non fai l'upload direttamente da questa pagina?

**pegaso22** · 17-06-2005, 11:04

Esattamente, viene recuperato il valore di un campo file.
Sto facendo pazzie???

**Baol74** · 17-06-2005, 11:05

Ma perchè non salvi i file in questa pagina?

**pegaso22** · 17-06-2005, 11:06

Per fare l'upload utilizzo questo:

codice:

		if instr(Intestazione,"campofoto1P") > 0 then
		    i = instr(Intestazione,"filename=")
			j = instr(i + 10,Intestazione,chr(34))
			NomeUpload = mid(Intestazione,i + 10,j-i-10)
			i = instrRev(NomeUpload,"\")
			if i<>0 then
    		    NomeFile = mid(NomeUpload,i + 1)
    		else
    			NomeFile = NomeUpload
    		end if
      		if i<>0 then
				Set FSO = CreateObject("Scripting.FileSystemObject")
				Upload1 = True
				DimensioneFile1 = len(ContenutoFile)
				EstensioneFile1 = right(ContenutoFile,3)
				Cfoto1P = replace(NomeFile," ","")
    			Set textStream = FSO.CreateTextFile(server.mappath(percorso & Cfoto1P), True, False)
    			textStream.Write ContenutoFile
    			textStream.Close
    			Set textStream = Nothing
	   			Set FSO = Nothing
    	   end if
		end if

L'ho però adattato al solo recupero percorso... forse ho sbagliato quello.
Vero?

Discussione: Submit pagina automatico

Strumenti discussione

Ricerca discussione

Visualizza

Submit pagina automatico

Permessi di invio