
| Private Sub RetainScrollPosition() Dim saveScrollPosition As New StringBuilder Dim setScrollPosition As New StringBuilder ReGISterHiddenField("__SCROLLPOS", "0") saveScrollPosition.Append("<script language='JavaScript'>") saveScrollPosition.Append("function saveScrollPosition() {") saveScrollPosition.Append(" document.forms[0].__SCROLLPOS.value = thebody.scrollTop;") saveScrollPosition.Append("}") saveScrollPosition.Append("thebody.onscroll=saveScrollPosition;") saveScrollPosition.Append("</script>") RegisterStartupScript("saveScroll", saveScrollPosition.ToString()) If (Page.IsPostBack = True) Then setScrollPosition.Append("<script language='Javascript'>") setScrollPosition.Append("function setScrollPosition() {") setScrollPosition.Append(" thebody.scrollTop = " & Request("__SCROLLPOS") & ";") setScrollPosition.Append("}") setScrollPosition.Append("thebody.onload=setScrollPosition;") setScrollPosition.Append("</script>") RegisterStartupScript("setScroll", setScrollPosition.ToString()) End If End Sub Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RetainScrollPosition() End Sub |