Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall

Customers/Invoices.aspx.vb

@@ -26,6 +26,18 @@ Partial Class Customers_Default3
             Else
                 lbl_status.Text = "Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!"
             End If
+            'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall
+            Dim csm1 As ClientScriptManager = Page.ClientScript
+            Dim cstype As Type = Page.GetType
+            If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then
+                Dim string1 As String = "<script language=\""JavaScript\"">"
+                string1 += "</"
+                string1 += "window.addEventListener('beforeunload', (event) => {"
+                string1 += " event.preventDefault();"
+                string1 += "event.returnValue = '';"
+                string1 += "script>"
+                csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
+            End If
 
             DataBind()
                 tbl_Header_row.TableSection = TableRowSection.TableHeader