Asp.net保持页面滚动条位置(页面提交后不变)

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› ASP.NET›ASP.NET编程经验

原作者: [db:作者] 来自: [db:来源] 收藏邀请

一般来说很多的人在控制浏览器滚动条都是用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可以写成一个，仅供参考。