【www.gdgbn.com--安卓教程】

 
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<script Runat="Server">
Dim conNorthwind As SqlConnection
Dim strSelect As String
Dim intStartIndex As Integer
Dim intEndIndex As Integer
Sub Page_Load
  Dim cmdSelect As SqlCommand
  btnFirst.Text = "首页"
  btnPrev.Text = "上一页"
  btnNext.Text = "下一页"
  btnLast.Text = "末页"
  conNorthwind = New SqlConnection( "Server=192.168.4.1;UID=sa;PWD=XXXXXX;Database=NorthWind" )
  If Not IsPostBack Then
      " Get Total Pages
      strSelect = "SELECT COUNT(OrderID) FROM Orders"
      cmdSelect = New SqlCommand( strSelect, conNorthwind )
      conNorthwind.Open()
      dgrdProducts.VirtualItemCount = (cmdSelect.ExecuteScalar() / dgrdProducts.PageSize)
      conNorthwind.Close()
      BindDataGrid
  End If
End Sub
Sub BindDataGrid
  Dim dadProducts As SqlDataAdapter
  Dim dstProducts As DataSet
  intEndIndex = dgrdProducts.PageSize
  dadProducts = New SqlDataAdapter( "OrdersPaged", conNorthwind )
  dadProducts.SelectCommand.CommandType = CommandType.StoredProcedure
  dadProducts.SelectCommand.Parameters.Add( "@PageIndex", intStartIndex )
  dadProducts.SelectCommand.Parameters.Add( "@PageSize ", intEndIndex )
  dstProducts = New DataSet
  dadProducts.Fill( dstProducts )
  dgrdProducts.DataSource = dstProducts
  dgrdProducts.DataBind()
End Sub
Sub dgrdProducts_PageIndexChanged( s As Object, e As DataGridPageChangedEventArgs )
  intStartIndex = e.NewPageIndex
  dgrdProducts.CurrentPageIndex = e.NewPageIndex

本文来源：http://www.gdgbn.com/shoujikaifa/3344/