1.函数(参考其它网友,有作变动)
#Region "防止页面滚动"
    Private Function RetainScrollPosition()
        Dim saveScrollPosition As StringBuilder = New StringBuilder
        Dim setScrollPosition As StringBuilder = New StringBuilder
        RegisterHiddenField("__SCROLLPOS", "0")
        saveScrollPosition.Append("")
        RegisterStartupScript("saveScroll", saveScrollPosition.ToString())
        If (Page.IsPostBack) Then
            setScrollPosition.Append("")
            RegisterStartupScript("setScroll", setScrollPosition.ToString())
        End If
    End Function
#End Region
2.调用
在page_load事件中调用RetainScrollPosition()
3.其它
将的id命名为“mybody”