会员manage.aspx.vb

来自「asp,vb.net编写,我的毕业设计,简单的网上购书系统,比较主流」· VB 代码 · 共 81 行

Public Class 会员manage
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents LinkButton2 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents LinkButton4 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents LinkButton5 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents LinkButton6 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents RFpsnew As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RFold As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RFre As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents tbpsold As System.Web.UI.WebControls.TextBox
    Protected WithEvents Tbpsnew As System.Web.UI.WebControls.TextBox
    Protected WithEvents Tbpsre As System.Web.UI.WebControls.TextBox
    Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary
    Protected WithEvents DGsy As System.Web.UI.WebControls.DataGrid
    Protected WithEvents Tmsg As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label

    '注意: 以下占位符声明是 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 myd As New main
    Dim sqlstr As String
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'If Not IsPostBack Then
        '    Dim sqlstr As String = "select 姓名,性别 from 会员表 where 会员名='" & Session("name") & "'"
        '    Dim jg() As String = myd.OneRecord(sqlstr)
        '    Dim xb As String
        '    If jg(1) = "男" Then
        '        xb = "先生"
        '    Else
        '        xb = "女士"
        '    End If
        '    Tmsg.Rows(0).Cells(0).InnerHtml = jg(0) & xb & ",欢迎您来到会员专区"
        '    sqlstr = "select * from 书籍表 where 主人='" & Session("name") & "'"
        '    DGsy.DataBind()
        'End If
        If Not IsPostBack Then
            sqlstr = "select * from 书籍表"
            DGsy.DataSource = myd.ReDataSet(sqlstr)
            DGsy.DataBind()
        End If
    End Sub

    Private Sub LinkButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton6.Click
        If myd.uppassword(Tbpsnew.Text, tbpsold.Text, Session("name")) Then
            Label1.Text = "口令修改成功！"
        Else
            Label1.Text = "修改失败!"
        End If
        tbpsold.Text = ""
        Tbpsnew.Text = ""
        Tbpsre.Text = ""

    End Sub

    Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub LinkButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class