file:///C:\Users\j\Desktop\WebSite\User.aspx.vb_file:c:usersdhuiwdesktop-CSDN博客

本文链接：https://blog.csdn.net/eds124/article/details/86723820

这篇博客详细探讨了 ASP.NET 中 User.aspx.vb 文件的作用，包括页面生命周期、事件处理以及如何进行用户交互。通过实例解析，深入理解如何在VB.NET中实现动态网页功能。

摘要由CSDN通过智能技术生成


Partial Class User
    Inherits System.Web.UI.Page

    Private sds As SqlDataSource = New SqlDataSource(Dao.ConnectionString, "select count(*) from t_user where username = @username and userpass = @userpass and a = 1")

    Protected Sub GridView1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.Init
        If Request.Cookies("username") Is Nothing Or Request.Cookies("userpass") Is Nothing Then
            Response.Redirect("~/Default.aspx")
        End If

        Dim username As String = Request.Cookies("username").Value
        Dim userpass As String = Request.Cookies("userpass").Value

        sds.SelectParameters.Add("username", username) '预处理
        sds.SelectParameters.Add("userpass", userpass)
        Dim dv As System.Data.DataView = sds.Select(DataSourceSelectArguments.Empty)

        If dv(0)(0) = 0 Then
            Response.Redirect("~/Default.aspx")
        End If
    End Sub

    Protected Sub GridView1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.Load
        Me.GridView1.AllowPaging = True
        Me.GridView1.AutoGenerateDeleteButton = True
        Me.GridView1.AutoGenerateEditButton = True
        Me.GridView1.AutoGenerateSelectButton = True
        Me.GridView1.Caption = "用户管理"
        Me.GridView1.DataKeyNames = New String() {"p_user_id"}
    End Sub

    Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
        Me.GridView1.PageIndex = e.NewPageIndex
        Me.GridView1.EditIndex = -1
    End Sub

    Protected Sub GridView1_PreRender(ByVal sender As Object, ByVal e As System.Ev