保持页面中滚动条的位置，使得页面提交后滚动条还是在原来的位置

一般来说很多的人在控制浏览器滚动条都是用Page.SmartNavigation = False，对于页面中DIV等等的滚动条控制，我在看了别人代码后，写了一个，仅供参考：

 Public Shared Sub SaveDivScrollPosition(ByVal divIDArray As String, ByVal objPage As Page)
        Dim saveScrollPosition As String
        Dim i As Integer
        Dim divID() As String

        divID = divIDArray.Split(",")

        For i = 0 To divID.Length - 1
            objPage.RegisterHiddenField(divID(i) & "__SCROLLPOS", objPage.Request.Form(divID(i) & "__SCROLLPOS"))

            saveScrollPosition = "<script language=‘’javascript‘’>" _
                & "function saveScrollPosition() {" _
                & " if (document.all[‘’" & divID(i) & "‘’] != undefined) {" _
                & "document.forms[0]." & divID(i) & "__SCROLLPOS.value = " _
                & "document.all[‘’" & divID(i) & "‘’].scrollTop + ‘’,‘’ " _
                & " + document.all[‘’" & divID(i) & "‘’].scrollLeft;}}" _
                & "if (document.all[‘’" & divID(i) & "‘’] != undefined) {document.all[‘’" & divID(i) & "‘’].onscroll=saveScrollPosition;}" _
                & "</script>"
            objPage.RegisterStartupScript("saveScroll" & divID(i), saveScrollPosition)
        Next
    End Sub

Public Shared Sub RestoreDivScrollPosition(ByVal divIDArray As String, ByVal objPage As Page)
        Dim restoreScrollPosition As String
        Dim setPositionFunction As String
        Dim i As Integer
        Dim divID() As String

        divID = divIDArray.Split(",")

        For i = 0 To divID.Length - 1
            setPositionFunction = setPositionFunction & "SetScrollPosition(‘’" & divID(i) & "‘’);"
        Next
        restoreScrollPosition = "<script language=‘’javascript‘’>" _
            & setPositionFunction _
            & "</script>"
        objPage.RegisterStartupScript("restoreScroll", restoreScrollPosition)
    End Sub

JAVASCRIPT：

function SetScrollPosition(divID){
    var e;
    var a;
    var obj;
   if (document.getElementById(divID)){
      obj = eval(‘’document.forms[0].‘’ + divID + ‘’__SCROLLPOS‘’);

  if (obj) {
   e=eval(‘’document.forms[0].‘’ + divID + ‘’__SCROLLPOS‘’).value;
   a=e.split(‘’,‘’);
   document.getElementById(divID).scrollTop= a[0];
   document.getElementById(divID).scrollLeft= a[1];
  }
 }
}

在页面后台调用的时候，写下如下的代码：

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

call SaveDivScrollPosition("div1,div2,div3",me)

call RestoreDivScrollPosition("div1,div2,div3",me)

    End Sub

不好意思，这两个SUB可以写成一个，仅供参考。

原文转自：http://www.ltesting.net