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

 
一般来说很多的人在控制浏览器滚动条都是用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