modify.aspx.vb

基于.net科研管理信息系统 毕业设计参考代码

Imports System.Data
Imports System.Data.SqlClient

    Partial Class WebForm23
        Inherits System.Web.UI.Page

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

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

    End Sub

        '注意: 以下占位符声明是 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
    Private connectionstring As String
    Dim conn As SqlConnection
    Dim ds As DataSet = New DataSet
    Dim sql, uid As String
    Dim mycmd As SqlCommand


    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        conn = New SqlConnection(connectionstring)
        conn.ConnectionString = "server=HP-PC;Database=SRM;uid=sa;pwd=sa;"
       
        If Session("user_id") = "" Then
            Response.Redirect("login.aspx")
        Else
            uid = Session("user_id")
        End If


    End Sub


    Private Sub Submit1_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Submit1.ServerClick

        sql = "select * from sci_user where user_id='" + uid + "'and password='" + pwd.Value + "'"
        Dim da As SqlDataAdapter = New SqlDataAdapter(sql, conn)
        conn.Open()
        da.Fill(ds)

        If (pwd.Value = "") Then
            Response.Write("<script>alert(' 你必须输入原密码！！');</script>")
        ElseIf (pwd1.Value = "" Or pwd2.Value = "") Then
            Response.Write("<script>alert(' 请输入新密码！！');</script>")
        ElseIf ds.Tables(0).Rows.Count = 0 Then
            Response.Write("<script>alert('密码错误！');</script>")
        Else

            sql = "update sci_user set password='" + pwd2.Value + "' where user_id='" + uid + "' "
            mycmd = New SqlCommand(sql, conn)
            mycmd.ExecuteNonQuery()
            mycmd.Dispose()
            conn.Close()
            Response.Write("<script>alert('密码修改成功！！！');</script>")
            pwd.Value = ""
            pwd1.Value = ""
            pwd2.Value = ""
        End If
    End Sub

    Private Sub Reset1_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset1.ServerClick
        pwd.Value = ""
        pwd1.Value = ""
        pwd2.Value = ""

    End Sub
End Class