<script language="VB" runat="server">
Dim connstr as String ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("db\upload.mdb")&" "
Dim myconn As OleDbConnection = New OleDbConnection(connstr)
Dim Pagesize,Pagecount,RecordNum,CurrentPage as integer
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
'每页显示的个数
Pagesize=30
'联接数据库
myconn.open()
'计算总共有多少记录
Dim MyComm as OleDbCommand = new OleDbCommand("select count(*) as ID from data",myconn)
Dim dr as OleDbDataReader = MyComm.ExecuteReader()
Dim intCount as integer
if dr.Read() then
intCount =dr("ID")
else
intCount = 0
end if
dr.Close()
myconn.close()
if recordnum mod pagesize=0 then
PageCount = RecordNum\PageSize
else
PageCount = RecordNum\PageSize +1
end if
' response.write(pagecount)
ViewState("PageCount") = PageCount
If Not IsPostBack then
CurrentPage = 0
ViewState("PageIndex") = 0
ListBind()
end if
End Sub
Sub Page_OnClick(sender As Object, e As CommandEventArgs)
CurrentPage = ViewState("PageIndex")
PageCount = ViewState("PageCount")
Dim cmd as string = e.CommandName
select case cmd
case "next":
if CurrentPage<(PageCount-1) then CurrentPage=+1
case "prev":
if CurrentPage>0 then CurrentPage-=1
end select
ViewState("PageIndex") = CurrentPage
ListBind()
end sub
sub listbind()
Dim StartIndex as integer
StartIndex = CurrentPage*PageSize
Dim strSel as string = "select * from data"
Dim ds as DataSet = new DataSet()
Dim MyAdapter as OleDbDataAdapter = new OleDbDataAdapter(strSel,myconn)
MyAdapter.Fill(ds,StartIndex,PageSize,"Result")