Imports AppVariable

Partial Class changepass
    Inherits System.Web.UI.Page

#Region "***************** コントロールイベント *****************"

    Protected Sub ChangePassword_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChangePassword.Click
        If NewPassword.Text = "" OrElse Pass変更後.Text = "" Then
            Pass変更後.Text = "パスワードが入力されていません。"
            Pass変更後.ForeColor = Drawing.Color.Red
        End If

        If NewPassword.Text <> "" Then
            If NewPassword.Text = ConfirmNEWpassword.Text Then
                UPDATE_PassWord()
                Pass変更後.Text = "パスワードを変更しました。"
                Pass変更後.ForeColor = Drawing.Color.Black
            Else
                Pass変更後.Text = "入力したパスワードが一致しません。"
                Pass変更後.ForeColor = Drawing.Color.Red
            End If
        End If
    End Sub

#End Region

#Region "******************* Sub及びFunction ********************"

    Private Sub UPDATE_PassWord()
        Using spm As New StoredProcedureManager("PT_DBUSER_UPDATE")
            spm.AddPrmIn("@PORTALID", Data.SqlDbType.VarChar, 200, Session(S_COM_PortalID))
            spm.AddPrmIn("@PASSWORD", Data.SqlDbType.VarChar, 20, NewPassword.Text)
            spm.AddPrmIn("@PORTAL区分", Data.SqlDbType.VarChar, 20, Session(S_COM_PortalKbn))
            spm.Exec()
        End Using
    End Sub

#End Region

End Class
