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 & "首页 前页 " 
End If
If curpage = rs.pagecount Then 
retval = retval & "后页 末页"
Else
retval = retval & "后页 末页"
End if
retval = retval & "
"
BasePage = (curpage \ 10) * 10
If BasePage > 0 Then retval = retval & " <<"
For j = 1 to 10
pageNumber = BasePage + j
If PageNumber > rs.pagecount Then Exit For
If pageNumber = Cint(curpage) Then
retval = retval & " " & pageNumber & ""
Else
retval = retval & " " & pageNumber & ""
End If
Next
If rs.pagecount > BasePage Then retval = retval & " >>"
ExportPageInfo = retval
End Function