fbxt_right_xggrxx.aspx.vb

vb2005电子书籍——vb.net项目开发宝典源码

Imports System
Imports System.Data
Imports System.Data.SqlClient


Namespace wsbgxt



Partial Class xggrxx
    Inherits System.Web.UI.Page

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

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

    End Sub

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

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
        If Session("jybz") Is Nothing Then
            Response.Redirect("../NotLogin.aspx?FromPageName=fbxt/fbxt_right_xggrxx")
        ElseIf CType(Session("jybz"), Boolean) = True Then
            Response.Redirect("../NotLogin.aspx?FromPageName=fbxt/fbxt_right_xggrxx")
            Return
        End If
    End Sub

    Private Sub changenbutton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles changenbutton.Click
        If Trim(OldPass.Text).Length > 0 And Trim(NewPass1.Text).Length > 0 And Trim(NewPass1.Text) = Trim(NewPass2.Text) Then
            Dim OldP As String = Trim(OldPass.Text)
            Dim NewP As String = Trim(NewPass1.Text)

            Dim myConn As New SqlConnection()
                myConn.ConnectionString = SQL_CONNECTION_STRING ' "user id=secs;password=sces;initial catalog=secs;data source=localhost;Connect Timeout=30"
            Try
                myConn.Open()
                Dim myCmdStr As String
                myCmdStr = "Update n_yhjbxx_ent SET dlmm='" + Trim(NewPass1.Text) + _
                            "'WHERE id= '" + CStr(Session("id")) + "'"
                Dim myCmd As SqlCommand = New SqlCommand(myCmdStr, myConn)
                Dim n As Integer = myCmd.ExecuteNonQuery()
                If n = 1 Then
                    Status.Text = "修改成功"
                Else
                    Status.Text = "修改不成功"
                End If
            Catch ex As SqlException
                Status.Text = ex.Message
            Finally
                myConn.Close()
            End Try
        Else
            Status.Text = "修改不成功"
        End If
    End Sub
End Class

End Namespace