网页起始处理

<script language="vb" runat="server">
    Sub page_load(ByVal sender As Object, ByVal e As EventArgs)
        Dim Conn As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
        Conn.Open()
        Dim Da As SqlDataAdapter
        Dim Rs As DataSet
        Dim Dt As DataTable
        Da = New SqlDataAdapter("select * from blog_reg order by blog_id asc", Conn)
        Rs = New DataSet()
        Da.Fill(Rs, "list1")
        Dt = Rs.Tables("list1")
      
        list00.DataSource = Rs.Tables("list1").DefaultView
        list00.DataBind()
       
      
        '指定下拉菜单显示字段
        DropDownList1.DataValueField = "blog_user"
        '绑定数据源至下拉菜单
        DropDownList1.DataSource = Rs.Tables("list1")
        DropDownList1.DataBind()
       
        pageall.Text = "共有<font color=red>" & Dt.Rows.Count & "</font>个用户, 分为<font color=red>" & list00.PageCount & "</f页显示"
        Rs = Nothing
       
    End Sub
   
    Sub this_change(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
        'pageall.text &= ", 现在是第&nbsp;&nbsp;<strong>" & CInt(e.newpageindex) + 1 & "</strong>&nbsp;&nbsp;页!"
        list00.CurrentPageIndex = e.NewPageIndex
        list00.DataBind()
    End Sub

    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim Conn As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
        Conn.Open()
        Dim Da As SqlDataAdapter
        Dim Rs2 As DataSet
        Dim Dt As DataTable
        Da = New SqlDataAdapter("select * from blog_reg where blog_user='" & DropDownList1.SelectedValue & "'", Conn)
        Rs2 = New DataSet()
        Da.Fill(Rs2, "list2")
        Dt = Rs2.Tables("list2")
        GridView1.DataSource = Rs2.Tables("list2").DefaultView
        GridView1.DataBind()
        blog_user.Text = Dt.Rows(0).Item("blog_user").ToString
        blog_nc.Text = Dt.Rows(0).Item("blog_nc").ToString
        blog_pwd.Text = Dt.Rows(0).Item("blog_pass").ToString
        blog_name.Text = Dt.Rows(0).Item("blog_name").ToString
        blog_city.Text = Dt.Rows(0).Item("city1").ToString
        regtime.Text = Dt.Rows(0).Item("reg_time").ToString
        Rs2 = Nothing
    End Sub

</script>