Redirect a tempo stabilito

**carlostefano** · 24-11-2006, 23:51

Ciao,
ho la seguente subroutine:

sub panel_message(strContent)
%>

<%
server.Execute(STR_TEMPLATES_FOLDER & STR_CURRENT_CP_TEMPLATE_FOLDER & "/includes/toppage_cp-inc.asp" )

server.Execute(STR_TEMPLATES_FOLDER & STR_CURRENT_CP_TEMPLATE_FOLDER & "/includes/navigationbar_cp-inc.asp")

Response.write strContent & vbcrlf
Response.write "<script type=""text/javascript"">" & vbcrlf
Response.write "location.href = """ & STR_CONTROLPANEL_PAGE & """;" & vbcrlf
Response.write "</script>"
server.Execute(STR_TEMPLATES_FOLDER & STR_CURRENT_CP_TEMPLATE_FOLDER & "/includes/bottompage_cp-inc.asp" )
end sub

Essa permette di stampare a video un messaggio, mantenendo la grafica del pannello di controllo. Vorrei però che il redirect avvenga dopo tot secondi, non immediatamente come adesso. Come posso fare?

Saluti,
carlostefano

**Lak3d** · 25-11-2006, 00:07

con una funzione in js?

codice:

<script type="text/javascript">
<!--
function Redirect() 
{
   location.href = "http://.........asp";
}
//-->

<script>window.setTimeout("Redirect()", 3000);</script>
</script>

**carlostefano** · 25-11-2006, 00:25

**Lak3d** · 25-11-2006, 01:44

va inserito dove vuoi richiamare la funzione redirect()...
L'implementazione della funzione puoi anche inserirla in un file js e includerlo volendo... dipende se ti serve redirezionare sempre alla stessa pagina o meno...

**carlostefano** · 25-11-2006, 02:43

Ho provato a fare così:

codice:

sub panel_message(strContent)
	%>
	
	<% 
	server.Execute(STR_TEMPLATES_FOLDER & STR_CURRENT_CP_TEMPLATE_FOLDER & "/includes/toppage_cp-inc.asp" )

	server.Execute(STR_TEMPLATES_FOLDER & STR_CURRENT_CP_TEMPLATE_FOLDER & "/includes/navigationbar_cp-inc.asp")
	
	Response.write strContent & vbcrlf
	Response.write "<script type=""text/javascript"">" & vbcrlf
	Response.write  "window.setTimeout(""doRedirect('" & STR_CONTROLPANEL_PAGE & "'), 4000);" & vbcrlf
	Response.write "</script>" & vbcrlf
	server.Execute(STR_TEMPLATES_FOLDER & STR_CURRENT_CP_TEMPLATE_FOLDER & "/includes/bottompage_cp-inc.asp" )
end sub

funzione da inserire nella header:

codice:

	function doRedirect(strUrl) 
	{
	   location.href = strUrl;
	}

con la sub richiamo la funzione dove mi serve...ma non fa il redirect. Dove sbaglio?

**Lak3d** · 25-11-2006, 03:03

hai aspettato i 4 secondi vero?

Se sì, prova mettere la funzione insieme al codice ASP invece che inclusa...

**carlostefano** · 25-11-2006, 03:04

Avevo commesso un errore, il codice corretto nella subroutine è :

codice:

sub panel_message(strContent)
	%>
	
	<% 
	response.write "</head>" & vbcrlf
	response.write "<body>" & vbcrlf
	server.Execute(STR_TEMPLATES_FOLDER & STR_CURRENT_CP_TEMPLATE_FOLDER & "/includes/toppage_cp-inc.asp" )

	server.Execute(STR_TEMPLATES_FOLDER & STR_CURRENT_CP_TEMPLATE_FOLDER & "/includes/navigationbar_cp-inc.asp")
	
	Response.write strContent & vbcrlf
	Response.write "<script type=""text/javascript"">" & vbcrlf
	Response.write  "window.setTimeout(""doRedirect('" & STR_CONTROLPANEL_PAGE & "')"", 5000);" & vbcrlf
	Response.write "</script>" & vbcrlf
	server.Execute(STR_TEMPLATES_FOLDER & STR_CURRENT_CP_TEMPLATE_FOLDER & "/includes/bottompage_cp-inc.asp" )
end sub

ciao e grazie :-)

carlostefano

**Lak3d** · 25-11-2006, 03:06

che errore?
edit:visto

Discussione: Redirect a tempo stabilito

Strumenti discussione

Ricerca discussione

Visualizza

Redirect a tempo stabilito

Permessi di invio