pagebar.asp

来自「数值计算方法网络课件系统是浙江大学过程装备与控制工程专业2001级本科生毕业设计」· ASP 代码 · 共 42 行

<%
Function ExportPageInfo(ByRef rs,curpage,i,LinkFile)
	Dim retval, j, pageNumber, BasePage
	retval = "第" & curpage & "页/总" & rs.pagecount & "页 "
	retval = retval & "本页" & i & "条/总" & rs.recordcount & "条 "
	If curpage = 1 Then
		retval = retval & "首页 前页 "
	Else
		retval = retval & "<a href='" & LinkFile & "page=1'>首页</a> <a href='" & LinkFile & "page=" & cstr(curpage - 1) & "'>前页</a> "
	End If
	If curpage = rs.pagecount Then
		retval = retval & "后页 末页"
	Else
		retval = retval & "<a href='" & LinkFile & "page=" & cstr(curpage + 1) & "'>后页</a> <a href='" & LinkFile & "page=" & cstr(rs.pagecount) & "'>末页</a>"
	End if
	retval = retval & "<br/>"
	BasePage = (curpage\10) * 10
	If BasePage > 1 Then 
		retval = retval & " <a href='" & LinkFile & "page=" & (BasePage - 9) & "'><<</a>"
	

		For j = 1 to 10
			pageNumber = BasePage + j
			If PageNumber > rs.pagecount Then Exit For
			If pageNumber = Cint(curpage) Then
				retval = retval & " <font color='#FF0000'>" & pageNumber & "</font>"
			Else
				retval = retval & " <a href='" & LinkFile & "page=" & pageNumber & "'>" & pageNumber & "</a>"
			End If
		Next
	If rs.pagecount > BasePage Then
		if BasePage+11 < rs.pagecount then
			retval = retval & " <a href='" & LinkFile & "page=" & (BasePage + 11) & "'>>></a>"
		else
			retval = retval & " <a href='" & LinkFile & "page=" & (rs.pagecount) & "'>>></a>"
		end if
	end if
	End If
	ExportPageInfo = retval 
End Function 

%>