Funzione che permetta la Chiusura del Programma

**beke82** · 09-04-2004, 12:45

Ciao raga, volevo sapere se esisteva una funzione che permettese di chiudere un'applicazione invece di doverla forzare attraverso la combinazione di tasti "Alt+F4"
Muchas gracias

**Alchimista** · 10-04-2004, 12:51

Intendi dire chiudere una finestra del browser?

Tutto in Js, naturalmente la finestra non dev'essere la pricipale dell'utente, altrimenti gli sarà chiesto con un 'confirm' se chiudere realmente la finestra o meno.

<script>self.close();</script>

Ciao

**beke82** · 13-04-2004, 10:12

Hai presente in qualsiasi programma, la voce del Menù che si chiama "Esci" o "Chiudi" ? Dovrei riuscire ad implementare la stessa funzione, da associare all'evento Click di un <asp:button>, per un'applicazione Web

**Alchimista** · 13-04-2004, 19:11

Nell'evento del button:

codice:

Page.RegisterStartupScript("s","<script>self.close();</script>")

Ciao

**beke82** · 15-04-2004, 09:48

Ok, ma se io devo anche rimuovere dei valori dalle variabili di sessione, ed impostarne uno a 0, come faccio?

**Alchimista** · 15-04-2004, 15:13

All'interno di quell'evento imposti tutte le variabili sessioni che vuoi...

Session.Remove("nome_session")

Oppure

Session.Abandon()

Ciao

**beke82** · 15-04-2004, 18:16

Funziona, però c'è un problema...
Funziona bene solo nelle pagine che hanno il CodeBehind...mentre nelle altre no e viene fuori 'na schifezza disumana...come mai? :master:

Va bene anche se uso
Session.RemoveAll per cancellare il contenuto di tutte le variabili di sessione???
Muchas gracias

Beke

**Alchimista** · 15-04-2004, 19:23

Sì, RemoveAll va benone, anche se ti consiglio Session.Abandon che chiude e cancella qualsiasi istanza sul server della sessione corrente.

Che cosa intendi per "schifezze varie" se non usi il code-behind?

Ciao

**beke82** · 16-04-2004, 09:39

Ti spiego.
Dopo avere scritto correttamente il codice nella parte di script della pagina .aspx

codice:

<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<%@ Page Language="VB" Debug="true" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
	<HEAD>
		<title>Elenco Persone</title>
		<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
		<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
		<meta name="vs_defaultClientScript" content="JavaScript">
		<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
		<link href="Styles.css" rel="stylesheet" type="text/css">
		<script runat="server">
		
			Sub page_load
			
				if Session("Vialibera") = 1 then
			
					if not ispostback then
				
						BindDataGrid
				
					end if
					
				else
				
					response.redirect("Login.aspx")
					
				end if
				
			end sub
			
			sub BindDataGrid
				
				dim connessione as string
				dim conn as OleDBConnection
				dim dadPersone as OleDBDataAdapter
				dim dstPersone as DataSet
				
				connessione = ConfigurationSettings.AppSettings("conString")
				conn = New OleDbConnection(connessione)
				dadPersone= new OleDBDataAdapter ("Select Codice, Cognome, Nome, CodFisc, Telefono, EMailAddress, Tipo From tblAnagrafica_Persone Order By Tipo, Codice ", conn)
				
				dstPersone= New DataSet
				dadPersone.Fill( dstPersone )
				
				DataGrid1.DataSource = dstPersone
				DataGrid1.DataBind
				
			end sub
			
			sub DataGrid1_PageIndexChanged ( s as Object, e as DataGridPageChangedEventargs )
			
				DataGrid1.CurrentPageIndex= e.NewPageIndex
				BindDataGrid
			
			end sub
							
			sub ciao ( s as object, e as eventargs )
			
				Session.RemoveAll()
				Response.Redirect("Benvenuto.aspx")
				
			end sub
			
			sub home ( s as object, e as eventargs )
			
				response.redirect("HomeAdmin.aspx")
			
			end sub
			
			sub byebye ( s as object, e as eventargs )
			
				Session.RemoveAll()
		        Page.RegisterStartupScript("s", "<script>self.close();</script>") 
		        end sub
 </script>
 </HEAD>
<BODY> 		<form id="Form1" method="post" runat="server">
			<div>|<asp:Button ID="btnBye" Runat="server" Font-Names="Arial" ForeColor="#3300CC" Text="Chiudi il Programma"
					BorderColor="White" BackColor="White" BorderStyle="None" tabIndex="1" OnFocus="javascript:this.style.color='#FF6600';"
					OnMouseOver="javascript:this.style.color='#FF6600';" OnBlur="javascript:this.style.color='#3300CC';"
					OnMouseOut="javascript:this.style.color='#3300CC';" OnClick="byebye"></asp:Button>|<asp:Button ID="btnVia" Runat="server" Font-Names="Arial" ForeColor="#3300CC" Text="Log Out"
					BorderColor="White" BackColor="White" BorderStyle="None" OnClick="ciao" tabIndex="1" OnFocus="javascript:this.style.color='#FF6600';" OnMouseOver="javascript:this.style.color='#FF6600';"
					OnBlur="javascript:this.style.color='#3300CC';" OnMouseOut="javascript:this.style.color='#3300CC';"></asp:Button>
				|<asp:Button ID="btnCasa" Runat="server" Font-Names="Arial" ForeColor="#3300CC" Text="Home Page"
					BorderColor="White" BackColor="White" BorderStyle="None" OnClick="home" tabIndex="2" OnFocus="javascript:this.style.color='#FF6600';"
					OnMouseOver="javascript:this.style.color='#FF6600';" OnBlur="javascript:this.style.color='#3300CC';"
					OnMouseOut="javascript:this.style.color='#3300CC';"></asp:Button>|</div>
			<asp:dataGrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 8px; POSITION: absolute; TOP: 80px" AutoGenerateColumns="False"
				AllowPaging="True" PageSize="5" OnPageIndexChanged="DataGrid1_PageIndexChanged" CellPadding="3"
				PagerStyle-Mode="NumericPages" runat="server" HeaderStyle-Font-Name="Arial" HeaderStyle-Font-Bold="True"
				HeaderStyle-ForeColor="#3300CC" HeaderStyle-Font-Size="Medium" ItemStyle-Font-Name="Arial"
				ItemStyle-ForeColor="#3300CC" BorderColor="orange" Font-Names="Tahoma" tabIndex="3">
				<HeaderStyle Font-Size="Medium" Font-Names="Arial" Font-Bold="True" ForeColor="#3300CC"></HeaderStyle>
				<PagerStyle Mode="NumericPages"></PagerStyle>
				<ItemStyle Font-Names="Arial" ForeColor="#3300CC"></ItemStyle>
				<Columns>
					<asp:BoundColumn DataField="Codice" HeaderText="Codice"></asp:BoundColumn>
					<asp:BoundColumn DataField="Cognome" HeaderText="Cognome"></asp:BoundColumn>
					<asp:BoundColumn DataField="Nome" HeaderText="Nome"></asp:BoundColumn>
					<asp:BoundColumn DataField="CodFisc" HeaderText="Codice Fiscale"></asp:BoundColumn>
					<asp:BoundColumn DataField="Telefono" HeaderText="Telefono"></asp:BoundColumn>
					<asp:BoundColumn DataField="EMailAddress" HeaderText="E-m@il"></asp:BoundColumn>
					<asp:BoundColumn DataField="Tipo" HeaderText="Tipo Utente"></asp:BoundColumn>
					<asp:HyperLinkColumn Text="User Name &amp; Password" DataNavigateUrlField="Codice" DataNavigateUrlFormatString="NewSecret.aspx?id={0}"
						HeaderText="Dati Area Personale"></asp:HyperLinkColumn>
					<asp:HyperLinkColumn Text="Dettagli" DataNavigateUrlField="Codice" DataNavigateUrlFormatString="Details.aspx?id={0}"
						HeaderText="Details"></asp:HyperLinkColumn>
				</Columns>
			</asp:dataGrid>
		</form>
	</BODY>
</HTML>

Quello che ottengo quando torno nella pagina di Progettazione è 'sta schifezza immensa. Nella pagina di progettazione, in cima, ci viene scritto: ")end sub

Torno a vedere il codice nella pagina di HTML all'interno dei tag <Script> e </Script> e c'è quest'altra schifezza

codice:

<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data.OleDb" %>
<%@ import Namespace="System.Data" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
	<HEAD>
		<title>Elenco Persone</title>
		<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
		<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
		<meta name="vs_defaultClientScript" content="JavaScript">
		<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
		<link href="Styles.css" rel="stylesheet" type="text/css">
		<script runat="server">
		
			Sub page_load
			
				if Session("Vialibera") = 1 then
			
					if not ispostback then
				
						BindDataGrid
				
					end if
					
				else
				
					response.redirect("Login.aspx")
					
				end if
				
			end sub
			
			sub BindDataGrid
				
				dim connessione as string
				dim conn as OleDBConnection
				dim dadPersone as OleDBDataAdapter
				dim dstPersone as DataSet
				
				connessione = ConfigurationSettings.AppSettings("conString")
				conn = New OleDbConnection(connessione)
				dadPersone= new OleDBDataAdapter ("Select Codice, Cognome, Nome, CodFisc, Telefono, EMailAddress, Tipo From tblAnagrafica_Persone Order By Tipo, Codice ", conn)
				
				dstPersone= New DataSet
				dadPersone.Fill( dstPersone )
				
				DataGrid1.DataSource = dstPersone
				DataGrid1.DataBind
				
			end sub
			
			sub DataGrid1_PageIndexChanged ( s as Object, e as DataGridPageChangedEventargs )
			
				DataGrid1.CurrentPageIndex= e.NewPageIndex
				BindDataGrid
			
			end sub
							
			sub ciao ( s as object, e as eventargs )
			
				Session.RemoveAll()
				Response.Redirect("Benvenuto.aspx")
				
			end sub
			
			sub home ( s as object, e as eventargs )
			
				response.redirect("HomeAdmin.aspx")
			
			end sub
			
			sub byebye ( s as object, e as eventargs )
			
				Session.RemoveAll()
		        Page.RegisterStartupScript("s", "<script>self.close();</script>
</HEAD>
<BODY>") end sub </script> 		<form id="Form1" method="post" runat="server">
			<div>|<asp:Button ID="btnBye" Runat="server" Font-Names="Arial" ForeColor="#3300CC" Text="Chiudi il Programma"
					BorderColor="White" BackColor="White" BorderStyle="None" tabIndex="1" OnFocus="javascript:this.style.color='#FF6600';"
					OnMouseOver="javascript:this.style.color='#FF6600';" OnBlur="javascript:this.style.color='#3300CC';"
					OnMouseOut="javascript:this.style.color='#3300CC';" OnClick="byebye"></asp:Button>|<asp:Button ID="btnVia" Runat="server" Font-Names="Arial" ForeColor="#3300CC" Text="Log Out"
					BorderColor="White" BackColor="White" BorderStyle="None" OnClick="ciao" tabIndex="1" OnFocus="javascript:this.style.color='#FF6600';" OnMouseOver="javascript:this.style.color='#FF6600';"
					OnBlur="javascript:this.style.color='#3300CC';" OnMouseOut="javascript:this.style.color='#3300CC';"></asp:Button>
				|<asp:Button ID="btnCasa" Runat="server" Font-Names="Arial" ForeColor="#3300CC" Text="Home Page"
					BorderColor="White" BackColor="White" BorderStyle="None" OnClick="home" tabIndex="2" OnFocus="javascript:this.style.color='#FF6600';"
					OnMouseOver="javascript:this.style.color='#FF6600';" OnBlur="javascript:this.style.color='#3300CC';"
					OnMouseOut="javascript:this.style.color='#3300CC';"></asp:Button>|</div>
			<asp:dataGrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 8px; POSITION: absolute; TOP: 80px" AutoGenerateColumns="False"
				AllowPaging="True" PageSize="5" OnPageIndexChanged="DataGrid1_PageIndexChanged" CellPadding="3"
				PagerStyle-Mode="NumericPages" runat="server" HeaderStyle-Font-Name="Arial" HeaderStyle-Font-Bold="True"
				HeaderStyle-ForeColor="#3300CC" HeaderStyle-Font-Size="Medium" ItemStyle-Font-Name="Arial"
				ItemStyle-ForeColor="#3300CC" BorderColor="orange" Font-Names="Tahoma" tabIndex="3">
				<HeaderStyle Font-Size="Medium" Font-Names="Arial" Font-Bold="True" ForeColor="#3300CC"></HeaderStyle>
				<PagerStyle Mode="NumericPages"></PagerStyle>
				<ItemStyle Font-Names="Arial" ForeColor="#3300CC"></ItemStyle>
				<Columns>
					<asp:BoundColumn DataField="Codice" HeaderText="Codice"></asp:BoundColumn>
					<asp:BoundColumn DataField="Cognome" HeaderText="Cognome"></asp:BoundColumn>
					<asp:BoundColumn DataField="Nome" HeaderText="Nome"></asp:BoundColumn>
					<asp:BoundColumn DataField="CodFisc" HeaderText="Codice Fiscale"></asp:BoundColumn>
					<asp:BoundColumn DataField="Telefono" HeaderText="Telefono"></asp:BoundColumn>
					<asp:BoundColumn DataField="EMailAddress" HeaderText="E-m@il"></asp:BoundColumn>
					<asp:BoundColumn DataField="Tipo" HeaderText="Tipo Utente"></asp:BoundColumn>
					<asp:HyperLinkColumn Text="User Name &amp; Password" DataNavigateUrlField="Codice" DataNavigateUrlFormatString="NewSecret.aspx?id={0}"
						HeaderText="Dati Area Personale"></asp:HyperLinkColumn>
					<asp:HyperLinkColumn Text="Dettagli" DataNavigateUrlField="Codice" DataNavigateUrlFormatString="Details.aspx?id={0}"
						HeaderText="Details"></asp:HyperLinkColumn>
				</Columns>
			</asp:dataGrid>
		</form>
	</BODY>
</HTML>

Come mai?

:master:

PS: Ho messo in grassetto le parti che sono interessate dalle schifezze.
Le D del Datagrid le ho messe minuscole altrimenti veniva fuori la faccina

che si ottiene dalla combinazione tra i : e la D

**Alchimista** · 16-04-2004, 14:32

Ho un sospetto.

Prova a modificare la riga:

codice:

Page.RegisterStartupScript("s", "<script>self.close();</script>")

In:

codice:

Page.RegisterStartupScript("s", "<script>self.close();</"+"script>")

Ciao

Discussione: Funzione che permetta la Chiusura del Programma

Strumenti discussione

Ricerca discussione

Visualizza

Funzione che permetta la Chiusura del Programma

Permessi di invio