Private Shared m_executingPages As Hashtable = New Hashtable
Public Shared Sub refreshwindow(Optional ByVal willClose As Boolean = False)
If m_executingPages.Contains(HttpContext.Current.Handler) = False Then
Dim executingPage As Page = HttpContext.Current.Handler
If (Not executingPage Is Nothing) Then
Dim sb As StringBuilder = New StringBuilder
sb.Append("<script language='javascript'>")
If willClose = True Then
sb.Append("window.returnValue='Refresh';window.close();")
End If
sb.Append("</script>")
executingPage.RegisterStartupScript("closeScript", sb.ToString())
End If
End If
End Sub