XMLTea.net

            每个人都有追求的权力,其追求的毅力和目标决定了追求的价值!
  首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

如何在单击WEB控件引发页面刷新时定位页面?

Posted on 2005-06-17 17:20  XMLTea  阅读(385)  评论(0)    收藏  举报
如何在单击WEB控件引发页面刷新时定位页面?(不使用智能导航)

1.函数

#Region "防止页面滚动"
    Private Function RetainScrollPosition()
        Dim saveScrollPosition As StringBuilder = New StringBuilder
        Dim setScrollPosition As StringBuilder = New StringBuilder
        RegisterHiddenField("__SCROLLPOS", "0")
        saveScrollPosition.Append("<script language='javascript'>")
        saveScrollPosition.Append("function saveScrollPosition() {")
        saveScrollPosition.Append("    document.forms[0].__SCROLLPOS.value = mybody.scrollTop;")
        saveScrollPosition.Append("}")
        saveScrollPosition.Append("mybody.onscroll=saveScrollPosition;")
        saveScrollPosition.Append("</script>")
        RegisterStartupScript("saveScroll", saveScrollPosition.ToString())
        If (Page.IsPostBack) Then
            setScrollPosition.Append("<script language='javascript'>")
            setScrollPosition.Append("function setScrollPosition() {")
            setScrollPosition.Append("    mybody.scrollTop = " & Request("__SCROLLPOS") & ";")
            setScrollPosition.Append("}")
            setScrollPosition.Append("mybody.onload=setScrollPosition;")
            setScrollPosition.Append("</script>")
            RegisterStartupScript("setScroll", setScrollPosition.ToString())
        End If
    End Function
#End Region
2.调用
在page_load事件中调用RetainScrollPosition()
3.其它
将<body>的id命名为“mybody”