扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
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 |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。