手机怎么样安装尾数挂:asp.net编程源代码，要求用vb语言写的

也不知道你要得是什么代码,现将一个读取数据库数据并绑定到DATAGRID的给你:
Imports System.Data
Imports System.Data.SqlClient

Public Class WebForm1
Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label4 As System.Web.UI.WebControls.Label
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Button2 As System.Web.UI.WebControls.Button
Protected WithEvents Datagrid3 As System.Web.UI.WebControls.DataGrid
Protected WithEvents Datagrid2 As System.Web.UI.WebControls.DataGrid
Protected WithEvents Datagrid4 As System.Web.UI.WebControls.DataGrid

'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region
Dim objConnection As New SqlConnection
Dim objDataAdapter As New SqlDataAdapter
Dim objDataSet As New DataSet
Dim objDataView1 As New DataView
Dim objDataView2 As New DataView
Dim objDataView3 As New DataView
Dim objDataView4 As New DataView

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Me.objConnection.ConnectionString = System.Configuration.ConfigurationSettings.AppSettings("connstr")
Me.objDataAdapter.SelectCommand = New SqlCommand
Me.objDataAdapter.SelectCommand.Connection = objConnection
Me.objDataAdapter.SelectCommand.CommandText = "select id,sort_id,title,edit_date from fb_baseinfo where getdate()<=expired_date"
Me.objConnection.Open()
Me.objDataAdapter.Fill(Me.objDataSet, "fb_baseinfo")
Me.objConnection.Close()

'绑定数据到DataGrid1
Me.objDataView1 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
Me.objDataView1.RowFilter = "sort_id = 1"
Me.DataGrid1.DataSource = Me.objDataView1
Me.DataGrid1.DataMember = "fb_baseinfo"
Me.DataGrid1.DataBind()

'绑定数据到DataGrid2
Me.objDataView2 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
Me.objDataView2.RowFilter = "sort_id=2"
Me.DataGrid2.DataSource = Me.objDataView2
Me.DataGrid2.DataMember = "fb_baseinfo"
Me.DataGrid2.DataBind()

'绑定数据到DataGrid3
Me.objDataView3 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
Me.objDataView3.RowFilter = "sort_id=3"
Me.DataGrid3.DataSource = Me.objDataView3
Me.DataGrid3.DataMember = "fb_baseinfo"
Me.DataGrid3.DataBind()

'绑定数据到DataGrid4
Me.objDataView4 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
Me.objDataView4.RowFilter = "sort_id=4"
Me.DataGrid4.DataSource = Me.objDataView4
Me.DataGrid4.DataMember = "fb_baseinfo"
Me.DataGrid4.DataBind()
'清空连接对象
Me.objDataAdapter = Nothing
Me.objConnection = Nothing

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Redirect("insert.aspx")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Response.Redirect("updata_delete.aspx")
End Sub

End Class