<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ import namespace="system.data"%>
<%@ import namespace="system.data.oledb"%>
<script language="vb" runat="server">
sub page_load(sender as object ,e as eventargs)
if not ispostback then
databind()
dim i as integer
for i=1 to dg.pagecount
droppage.items.add(i)
next
end if
end sub
sub pagechange(sender as object, e as eventargs)
dg.currentpageindex=droppage.selectedindex
databind()
end sub
sub onpagechange(sender as object,e as datagridpagechangedeventargs)
dg.currentpageindex=e.newpageindex
databind()
end sub
sub databind()
dim conn as new oledbconnection() '声明access连接对象
conn.connectionstring="provider=Microsoft.Jet.oledb.4.0;" & "data source="&server.MapPath("./data/person.mdb")
conn.open() '打开对象
dim oleda as oledbdataadapter = new oledbdataadapter("select * from book order by id desc",conn)
dim ds as new dataset()
oleda.fill(ds,"book")
dg.datasource=ds.tables("book")
dg.databind()
num.text=ds.tables("book").rows.count
end sub
</script>